根据VBA的最后一行值选择特定列

Question

请支持VBA根据最后一行值选择特定列

，以便仅粘贴此选择

由于我正在处理一个项目，我只能选择整个exist数据到最后一行并正常地复制它，但是有些列我不想选择它们

任何帮助请！此代码选择整个数据Imported1ws.Range("A2:C“& Imported1LastRow).Copy目的地

但是实际上，我只需要将A2:复制到它的最后一行，C2:复制到它的最后一行，F复制到它的最后一行，也可以将这个选择粘贴到我的目的地

Answer 1

复制不相邻的列

• Application.Intersect
• Range.Copy
• Adjust "A:A,C:C,F:F"，"Sheet1"，"A" (源最后一行)，"2:" (源第一行)，"Sheet2"，"A2" (目标第一单元格)。

--常见场景

Option Explicit

Sub copyNonAdjacentColumns()
    ' Constants
    Const sCols As String = "A:A,C:C,F:F"
    ' Workbook
    Dim wb As Workbook: Set wb = ThisWorkbook ' workbook containing this code
    ' Source
    Dim sws As Worksheet: Set sws = wb.Worksheets("Sheet1")
    Dim sLastRow As Long
    sLastRow = sws.Range("A" & sws.Rows.Count).End(xlUp).Row
    Dim srg As Range
    Set srg = Intersect(sws.Range(sCols), sws.Rows("2:" & sLastRow))
    ' Destination
    Dim dws As Worksheet: Set dws = wb.Worksheets("Sheet2")
    Dim dCell As Range: Set dCell = dws.Range("A2")
    ' Copy
    srg.Copy dCell ' A,C,F to A,B,C
End Sub