Excel VBA 单元格公式未将值插入正确的单元格答案

【问题标题】：Excel VBA Cells formula is not inserting Values into correct cellsExcel VBA 单元格公式未将值插入正确的单元格
【发布时间】：2022-11-22 22:52:29
【问题描述】：

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

基本上，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

这些是我正在使用的两本工作簿：

从：

涂黑不应显示的信息。

至：

先感谢您！

【问题讨论】：

Range("X25").End(xlUp).Row + 1 不是指 ws。如果你想让它引用ws，你需要在Range前面加上一个.。
天哪，非常感谢你，我很沮丧，因为我丝毫没有看到

标签： excel vba copy paste

【解决方案1】：

.Range("X 25") 立即解决问题。

With ws

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

End With

【讨论】：

或者.Range("X25").End(xlUp).Offset(1).PasteSpecial。