excel - 修复我的宏以将范围复制到下一个空白列？

Question

每次单击宏的表单按钮时，我都需要将单元格范围复制到单独工作表中的下一个空白列中。

这是代码。问题是它复制到下一个空白行，而我需要下一个空白列。我尝试以各种方式编辑该行*，但最终出现错误或没有效果(例如，将“行”替换为“列”)。

• 单元格(Rows.Count, 1).End(xlUp).Offset(1, 0)

如果在此处找到“复制到下一个空白行 VBA”的基础，请访问以下链接: Copy and Paste a set range in the next empty row

感谢您的帮助，我目前陷入困境。

Sub TestCopyToDB()

    Application.ScreenUpdating = False
    Dim copySheet As Worksheet
    Dim pasteSheet As Worksheet

    Set copySheet = Worksheets("sheet1")
    Set pasteSheet = Worksheets("sheet2")

    copySheet.Range("M1:M15").Copy
    pasteSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Application.ScreenUpdating = True

End Sub

Answer 1

Cells 方法有两个参数，行 和 列，即

Cells(1,1)   '<~~ equivalent to cell "A1"
Cells(1,3)   '<~~ equivalent to cell "C1"
Cells(10,13) '<~~ equivalent to cell "M10"

Offset 方法的工作原理类似，有两个参数:row_offset 和 column_offset，因此:

.Offset(1,1)   '<~~ returns the cell one row below, and one column to the right
.Offset(-1, 3) '<~~ returns the cell one row above, and 3 columns to the right

进行一些调整，并将 .End(xlUp) (对于行)更改为 .End(xlToLeft)，结果如下:

With pasteSheet
    .Cells(1, .Columns.Count).End(xlToLeft).Offset(0,1).PasteSpecial _
        Paste:=xlPasteValues, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
End With