vba基于其他工作表中的单元格更改列

Sub ChangeColumnBasedOnOtherSheet()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim sourceRange As Range
    Dim targetRange As Range
    Dim i As Long
    
    ' 设置源工作表和目标工作表
    Set sourceSheet = ThisWorkbook.Sheets("源工作表名称")
    Set targetSheet = ThisWorkbook.Sheets("目标工作表名称")
    
    ' 设置源范围和目标范围
    Set sourceRange = sourceSheet.Range("源工作表范围")
    Set targetRange = targetSheet.Range("目标工作表范围")
    
    ' 循环遍历源范围中的每个单元格
    For i = 1 To sourceRange.Rows.Count
        ' 根据源范围中的单元格值更改目标范围中对应列的值
        targetRange.Columns(i).Value = sourceRange.Cells(i).Value
    Next i
End Sub