Copiando e colando no Excel 2013

Question

Como faço para copiar a célula H47 da Folha 2 para a Folha 500 e depois colá-la na Folha 1, onde A2 para a Folha2 H47; A3 para Sheet3 H47; A4 para Sheet4 H47; A5 para Sheet5 H47 .... A500 para Sheet500 H47

    

Answer 1

Se eu entendi sua pergunta, no VBA, você poderia fazer:

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