☰

Копирование и вставка в Excel 2013

tag-icon • tag-icon copy-paste
Копирование и вставка в Excel 2013

Как скопировать ячейку H47 с Листа 2 на Лист 500, а затем вставить ее на Лист 1, где A2 для Листа 2 H47; A3 для Листа 3 H47; A4 для Листа 4 H47; A5 для Листа 5 H47.... A500 для Листа 500 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

Связанный контент