复制和粘贴多个场合

时间:2014-11-29 21:02:03

标签: excel-vba vba excel

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

范围A1至A15,带字母

范围D1至D15为空

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

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

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

感谢您的阅读。

1 个答案:

答案 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