VBA 每次複製一個數據，並按列順序粘貼到新表格的空白單元格的代碼

以下是VBA复制和粘贴数据的代码示例：

Sub copyPaste()
'定义表格和单元格范围
Dim sourceSheet As Worksheet, destSheet As Worksheet
Dim sourceRange As Range, destRange As Range
Set sourceSheet = Worksheets("Sheet1")
Set destSheet = Worksheets("Sheet2")
Set sourceRange = sourceSheet.Range("A1:A10")
Set destRange = destSheet.Range("A1")

'循环复制并粘贴数据
Dim i As Integer
For i = 1 To sourceRange.Rows.Count
sourceRange.Rows(i).Copy
destRange.Offset(i - 1, 0).PasteSpecial xlPasteValues
Next i
End Sub

请注意，此代码仅将源单元格中的值粘贴到目标单元格中，并且假定目标单元格是可以按顺序粘贴的空白单元格。如需更多帮助，请提供更详细的信息。