需要添加粘贴特殊条件copy.destination for循环-Java 学习之路

我有一系列数据在书中的每个工作表中处于相同位置，并且始终处于该位置 . 运行宏时，应复制数据并将其添加到报告表中 . 我有那部分工作，但我需要使用特殊的粘贴：

.PasteSpecial xlPasteValues

因为该范围内有公式 . 我不确定在此代码中添加粘贴特殊条件的位置，因为我正在使用 .Copy, Destination .

Option Explicit
Sub CreateTempPSDReport()

    Dim WS As Worksheet, Rept As Worksheet

    Set Rept = Sheets("Temporary PSD Report")

    Application.ScreenUpdating = False

    '--> Loop through each worksheet except the report and
    '--> Copy the set range to the report
    For Each WS In ThisWorkbook.Worksheets
        If Not WS.Name = "Temporary PSD Report" Then
            WS.Range("A42", "I42").Rows.Copy _
            Destination:=Rept.Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)
        End If
    Next

    Application.ScreenUpdating = True

End Sub

1 回答

2
我需要使用特殊粘贴：
WS.Range（“A42”，“I42”） . Rows.Copy _
Destination：= Rept.Cells（Rows.Count，“A”） . End（xlUp）.Offset（1,0）

在这种情况下，您不使用上述方法 . 你用它
```
WS.Range("A42", "I42").Rows.Copy

Rept.Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).PasteSpecial _
Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
```
回复于 2024-05-17T11:48:49+08:00

需要添加粘贴特殊条件copy.destination for循环

1 回答

相关问题