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

Question

请我需要您的支持来根据 VBA 的最后一行值选择特定列
为了仅粘贴此选择
因为我正在做一个项目，我唯一能做的就是选择整个现有数据到最后一行并正常复制它，但是有些列我不想选择它们
任何帮助请!
此代码选择整个数据
Imported1ws.Range("A2:C"& Imported1LastRow).复制目的地
但实际上例如我只需要复制 A2:到它的最后一行，C2:到它的最后一行，F 到它的最后一行
还有我怎么能把这个选择粘贴到我的目的地

Answer 1

复制不相邻的列

Application.Intersect

Range.Copy

调整"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