excel - 将多个工作表中的单元格中的数据复制到多个工作表

Question

我想在 sheet1 的单元格“C1”中复制数据并粘贴到同一张表中的动态范围“AA:AA”（基于范围“Z”的动态）。之后，我希望它循环从每张纸的单元格“c1”复制并粘贴到每张纸的“AA：AA”范围内，这样做直到完成所有纸，但它失败了。

错误：“Sheets(i).Range("Z21").End(xlDown).Offset(0, 1).Select”上的“范围类的选择方法失败”

Sub copy()
Dim i As Long
Dim s As Worksheet

Application.ScreenUpdating = False
For i = 1 To Sheets.Count

If Worksheets(i).Range("C1").Value <> "" Then
Sheets(i).Range("Z21").End(xlDown).Offset(0, 1).Select
Range(Selection, Selection.End(xlUp).Offset(1, 0)).Select = Worksheets(i).Range("C1").Value
End If
Next
End Sub

标签： excelvba