在VBA中复制整行时，是否可以排除某些列？

Sub CopyRowsWithExclusion()
    Dim sourceRange As Range
    Dim targetRange As Range
    Dim lastRow As Long
    Dim lastColumn As Long
    Dim currentColumn As Long
    
    ' 设置源范围
    Set sourceRange = Range("A1").CurrentRegion
    lastRow = sourceRange.Rows.Count
    lastColumn = sourceRange.Columns.Count
    
    ' 设置目标范围
    Set targetRange = Range("E1")
    
    ' 复制数据
    For i = 1 To lastRow
        For j = 1 To lastColumn
            currentColumn = sourceRange.Cells(i, j).Column
            ' 判断是否需要排除某些列
            If currentColumn <> 2 And currentColumn <> 4 Then
                sourceRange.Cells(i, j).Copy targetRange.Cells(i, j)
            End If
        Next j
    Next i
    
    ' 释放对象并清除内存
    Set sourceRange = Nothing
    Set targetRange = Nothing
    Application.CutCopyMode = False
End Sub