我正在尝试将一个工作簿中的多个单元格复制/粘贴到另一个工作簿中。
基本上，makro会在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

这是我正在用的两本练习册。
发件人：

涂黑了不应该显示的信息。
收件人：

提前感谢您！