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)

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

Excel vba copy paste to next empty column

excel

copy

paste