excel - 将复制的内容粘贴到行尾

Question

我有一个表格，您可以在其中填写内容，并且应将其中的特定部分复制到列表末尾的另一张纸上。

With Sheets("Sheet1")
If Application.WorksheetFunction.CountA(.Columns(2)) <> 0 Then
    lastrow = .Cells(rows.Count, "B").End(xlUp).Row
Else
    lastrow = 1
End If
.Cells(lastrow + 1, "B") = "my new value"
End With

我有这段代码可以找到最后一行并在其中粘贴/写入“我的新值”。
但我需要它粘贴的不仅仅是一个单元格。我只需要它选择它写“我的新值(value)”的那部分。我应该能够做剩下的
我现在正在使用下面的代码。但它仍然从工作表“Tabelle3”复制东西，但它应该从工作表“Tabelle2”复制东西

Private Sub CommandButton1_Click()
    Dim lastRow As Long

    With Sheets("Tabelle3")
        If Application.WorksheetFunction.CountA(.Columns(1)) <> 0 Then
            lastRow = .Cells(Rows.Count, "A").End(xlUp).Row + 1 '<~~ Add 1 here and not as you are doing
        Else
            lastRow = 1
        End If

        Sheets("Tabelle2").Select
        Range("B85:S85").copy
        Sheets("Tabelle3").Select

        '~~> Paste special
        .Range("C" & lastRow).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    End With
 End Sub

Answer 1

您必须找到最后一个空行，然后简单地进行粘贴或特殊粘贴，如下所示。

Sub Sample()
    Dim lastRow As Long

    With Sheets("Sheet1")
        If Application.WorksheetFunction.CountA(.Columns(2)) <> 0 Then
            lastRow = .Cells(Rows.Count, "B").End(xlUp).Row + 1 '<~~ Add 1 here and not as you are doing
        Else
            lastRow = 1
        End If

        Range("Z10:Z100").Copy

        '~~> Paste special
        .Range("B" & lastRow).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    End With
End Sub

上面的代码将复制范围 "Z10:Z100"并在 Col B 的下一个可用行上执行 pastespecial。如果您不想执行 pastespecial 并想要直接粘贴，请查看此

Sub Sample()
    Dim lastRow As Long

    With Sheets("Sheet1")
        If Application.WorksheetFunction.CountA(.Columns(2)) <> 0 Then
            lastRow = .Cells(Rows.Count, "B").End(xlUp).Row + 1 '<~~ Add 1 here and not as you are doing
        Else
            lastRow = 1
        End If

        Range("Z10:Z100").Copy .Range("B" & lastRow)
    End With
End Sub