gpt4 book ai didi

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

转载 作者:行者123 更新时间:2023-12-04 20:19:38 25 4
gpt4 key购买 nike

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

.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

最佳答案

       I need to use a paste special:
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

关于excel - 需要添加粘贴特殊条件a copy.destination for 循环,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/10597988/

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com