VBA -将特定值从一个图纸列复制到下一个图纸行

Sub CopyValues()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 设置源工作表和目标工作表
    Set sourceSheet = ThisWorkbook.Sheets("源工作表名称")
    Set targetSheet = ThisWorkbook.Sheets("目标工作表名称")
    
    ' 获取源工作表中最后一行的行号
    lastRow = sourceSheet.Cells(sourceSheet.Rows.Count, "A").End(xlUp).Row
    
    ' 循环复制每个图纸列的特定值到下一个图纸行
    For i = 1 To lastRow
        targetSheet.Cells(i + 1, "A").Value = sourceSheet.Cells(i, "A").Value
    Next i
End Sub