Question

我一直在研究一段VBA代码，但没有任何乐趣。我正处于理解代码的开始阶段，下一步就是编写代码。我认为这可能涉及下一个循环或直到循环这就是我想要实现的目标

范围A1至A15，带字母

范围D1至D15为空

将范围A1中的值复制到B1，然后将范围C1中的值复制到D1。

然后将范围A2中的值复制到B1，然后将范围C1中的值复制到D2。

重复这些步骤，直到复制了范围A15并将结果复制到D15。

感谢您的阅读。

Answer 1

这应该按照你的要求做。

Private Sub simpleCopyLoop()
Dim row As Long

For row = 1 to 15

    Sheets("Sheet1").Cells(row, "B").Value = Sheets("Sheet1").Cells(row, "A").Value   
    Sheets("Sheet1").Cells(row, "D").Value = Sheets("Sheet1").Cells(row, "C").Value 

Next row

End Sub

复制和粘贴多个场合

1 个答案: