Excel VBA根据第二个列单元格值将列从一个工作表复制到另一个工作表

Sub CopyColumns()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim sourceRange As Range
    Dim targetRange As Range
    Dim lastRow As Long
    Dim cell As Range
    
    ' 设置源工作表和目标工作表
    Set sourceSheet = ThisWorkbook.Worksheets("源工作表名称")
    Set targetSheet = ThisWorkbook.Worksheets("目标工作表名称")
    
    ' 获取源工作表中第二个列的最后一行
    lastRow = sourceSheet.Cells(sourceSheet.Rows.Count, 2).End(xlUp).Row
    
    ' 设置源范围和目标范围
    Set sourceRange = sourceSheet.Range("B1:B" & lastRow)
    Set targetRange = targetSheet.Range("A1")
    
    ' 遍历源范围中的每个单元格
    For Each cell In sourceRange
        ' 检查单元格的值是否符合条件
        If cell.Value = "条件值" Then
            ' 将对应的列复制到目标范围
            sourceSheet.Columns(cell.Column).Copy targetRange
            ' 调整目标范围的位置
            Set targetRange = targetRange.Offset(0, 1)
        End If
    Next cell
End Sub