Excel vba 复制粘贴到下一个空列

Question

我在单元格 D8:E30 中有计算和文本。 我想创建按钮来复制 D8:E30 的范围，并按原样粘贴所有填充颜色、边框、公式和文本，然后粘贴到下一个空列。 在起点 F8 是第一个可以复制 D8:E30 范围的地方。 通过按下按钮 D8:E30 被复制到 F8，然后再次按下按钮 D8:E30 被复制到下一个空列，它将是 H8...等等。 我设法想出了下面的代码，但它正在插入下一个空行（非常）我需要它成为下一个空列（水平）。 任何人都可以帮助解决这个问题吗？ 谢谢！

Sub CopyPaste()
Application.ScreenUpdating = False
Dim copySheet As Worksheet
Dim pasteSheet As Worksheet

Set copySheet = Worksheets("Price calculation")
Set pasteSheet = Worksheets("Price calculation")

copySheet.Range("D8:E30").Copy
pasteSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteFormulas

Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

Answer 1

这部分代码决定粘贴的位置：

pasteSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)

分解：现在它设置为从单元格 (1048576, 1)

pasteSheet.Cells(Rows.Count, 1)

直到它找到一个不是空白的单元格。

.End(xlUp)

Offset 只是将单元格值偏移 1 行。 （例如，如果最后一个空白行是 12，它将粘贴到单元格 13）

.Offset(1, 0)

你需要的是：

pasteSheet.Cells(1, columns.count).End(xlToLeft).Offset(0, 1)