尝试基于另一个单元格值VBA将列复制并粘贴到另一个工作表中

Sub CopyColumnBasedOnCellValue()
    Dim sourceSheet As Worksheet
    Dim destinationSheet As Worksheet
    Dim sourceColumn As Range
    Dim destinationColumn As Range
    Dim cellValue As Variant
    
    ' 设置源工作表和目标工作表
    Set sourceSheet = ThisWorkbook.Sheets("源工作表名称")
    Set destinationSheet = ThisWorkbook.Sheets("目标工作表名称")
    
    ' 设置源列和目标列
    Set sourceColumn = sourceSheet.Range("源列范围")
    Set destinationColumn = destinationSheet.Range("目标列起始单元格")
    
    ' 获取源单元格的值
    cellValue = sourceSheet.Range("源单元格地址").Value
    
    ' 检查源单元格的值是否与目标列的值匹配
    If cellValue = destinationColumn.Value Then
        ' 复制源列到目标列
        sourceColumn.Copy destinationColumn
    End If
End Sub