复制相同的单元格并每次粘贴到下一个单元格

Question

我已经写了这个代码，复制Sheet2.Range("B4")并粘贴到Sheet3.Range("B4")。

我一直在努力寻找如何再次运行代码将Sheet2.Range("B4")粘贴到Sheet3.Range("B4")的下一个单元格，即C4，然后再次运行代码到D4然后E4。一个接一个。

所以逻辑将是每次我必须运行代码粘贴值到下一个单元格。

Sub copyPasteValues()
Dim sht2 As Worksheet
Dim sht3 As Worksheet
Set sht2 = Sheets("Sheet2")
Set sht3 = Sheets("Sheet3")
sht2.Cells(4, 2).copy
sht3.Cells(4, 2).PasteSpecial xlPasteValues
End Sub

Answer 1

查找表3第4行中最后使用的列，并添加一个

像这样:

Sub copyPasteValues()
Dim sht2 As Worksheet
Dim sht3 As Worksheet
Dim col As Long
Set sht2 = Sheets("Sheet2")
Set sht3 = Sheets("Sheet3")
col = sht3.Cells(4, sht3.Columns.Count).End(xlToLeft).Column + 1
if col = 3 then
sht2.Cells(5, 4).Copy
else
sht2.Cells(4, 2).Copy
end if
sht3.Cells(4, col).PasteSpecial xlPasteValues
End Sub

如果你需要它停在第1列，那么执行:

if col = 3 then
sht2.Cells(5, 4).Copy
elseif col <= 9 then
sht2.Cells(4, 2).Copy
else
exit sub
end if