通过列复制粘贴循环

Question

我要实现的目标如下：

• 从第A列到第Z列遍历第1行
• 如果第1行的单元格大于0，则复制第1行的单元格，并将其粘贴到第2行中。

下面是我正在使用的代码。

Sub CopyData()

Dim LastRow As Long, ws As Worksheet

Set ws = Sheets("Sheet3")

For x = A To Z
If ws.Range(x & "1").Value <> 0 Then
    ws.Range(x & "1").Copy
    ws.Range(x & "2").PasteSpecial xlPasteValues
End If
Next x

End Sub