EXCEL VBA 如何跨工作簿粘贴 ???

发布网友 发布时间：2022-04-24 03:38

我来回答

共1个回答

热心网友 时间：2023-10-25 10:42

Sub 宏1()
Dim RNG2 As Range
With Sheets("生成")
For Each RNG2 In .Range("C6:W80")
If RNG2.HasFormula = False Then RNG2.Copy Destination:=Sheets("上报").Range(RNG2.Address)
Next RNG2
End With
End Sub

热心网友 时间：2023-10-25 10:42

Sub 宏1()
Dim RNG2 As Range
With Sheets("生成")
For Each RNG2 In .Range("C6:W80")
If RNG2.HasFormula = False Then RNG2.Copy Destination:=Sheets("上报").Range(RNG2.Address)
Next RNG2
End With
End Sub

热心网友 时间：2023-11-16 11:40

Sub 宏1()
Dim RNG2 As Range
With Sheets("生成")
For Each RNG2 In .Range("C6:W80")
If RNG2.HasFormula = False Then RNG2.Copy Destination:=Sheets("上报").Range(RNG2.Address)
Next RNG2
End With
End Sub

热心网友 时间：2023-10-25 10:42

Sub 宏1()
Dim RNG2 As Range
With Sheets("生成")
For Each RNG2 In .Range("C6:W80")
If RNG2.HasFormula = False Then RNG2.Copy Destination:=Sheets("上报").Range(RNG2.Address)
Next RNG2
End With
End Sub