将多个单元格从一个工作簿复制/粘贴到另一个工作簿中

Question

我正在尝试将多个单元格从一个工作簿复制/粘贴到另一个工作簿中。

宏在 H 列中搜索粗体文本并复制右侧的小时数。我需要它们在工作簿 2 列 X2 及其下面的行中，但公式将该列插入到 X19 中，并用新列替换旧列。

搜索并复制/粘贴公式：

Dim startRow As Long

Dim RA As Range
Dim checkcell As Range
Dim dest As Workbook
Dim ws As Worksheet

Set ws = Sheets("Schichtplan")
ws.Range("X2:AI200").Delete

Set src = Workbooks.Open("P:\resource*" & ".xlsx") 'resourceshiftcalplanningmatrix.xlsx

Set dest = ThisWorkbook

Set RA = Range("H18:H100")

For Each checkcell In RA
    If checkcell.Font.Bold = True Then

        checkcell.Offset(0, 7).Range("A1:L1").Copy

        With ws
            .Cells(Range("X25").End(xlUp).Row + 1, 24).PasteSpecial
        End With

    End If
Next checkcell

两本练习册：

来自：

涂黑了不应该显示的信息。

致：

Answer 1

.Range("X25") 立即解决了问题。

With ws

.Cells(.Range("X25").End(xlUp).Row + 1, 24).PasteSpecial

End With