我一直在研究一段VBA代码,但没有任何乐趣。 我正处于理解代码的开始阶段,下一步就是编写代码。 我认为这可能涉及下一个循环或直到循环 这就是我想要实现的目标
范围A1至A15,带字母
范围D1至D15为空
将范围A1中的值复制到B1,然后将范围C1中的值复制到D1。
然后将范围A2中的值复制到B1,然后将范围C1中的值复制到D2。
重复这些步骤,直到复制了范围A15并将结果复制到D15。
感谢您的阅读。
答案 0 :(得分: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