☰

在 Excel 2013 中复制和粘贴

tag-icon • tag-icon copy-paste
在 Excel 2013 中复制和粘贴

如何将 Sheet 2 的单元格 H47 复制到 Sheet 500，然后将其粘贴到 Sheet 1，其中 A2 对应于 Sheet2 H47；A3 对应于 Sheet3 H47；A4 对应于 Sheet4 H47；A5 对应于 Sheet5 H47....A500 对应于 Sheet500 H47

答案1

如果我理解你的问题，在 VBA 中你可以这样做：

Sub CopyToManySheets
Dim copyRng as Range
Set copyRng = Range ("Sheet2!$H$47")
copyRng.select
Selection.copy
Dim index as integer
For index = 1 to 500
If Not (IsError (Range ("Sheet" & index & "!A" & index))) Then
Range ("Sheet" & index & "!A" & index).Select
Selection.Paste
Else
End if
Next
Set copyRng = Nothing
Exit Sub

相关内容