Offset VBA intervallo denominato
-
19-09-2019 - |
Domanda
Sto cercando di scrivere codice VBA che selezionerà un intervallo denominato, copiarlo e incollarlo per un certo numero di righe. Che cosa ho bisogno di sapere è come selezionare l'intervallo di celle corrispondenti a quelli di cui sopra.
es. Ho una gamma "myRange" che si riferisce a: "= $ A $ 1: D $ 1 $, $ F $ 1, $ K $ 1". Voglio copiare questo e incollarlo in. "= $ A $ 2: D $ 2 $, $ F $ 2, $ K $ 2" facendo riferimento a "myRange" al posto della alla stringa di riferimenti di cella
Qualsiasi aiuto?
Soluzione
Una cosa come questa?
Sub Test()
Dim oRange As Range
Set oRange = ActiveSheet.Range("A1:D1") ' Change this to point at the range to be copied
Dim i As Integer
For i = 1 To 10
oRange.Copy
oRange.Offset(i, 0).PasteSpecial xlPasteAll
Next i
End Sub
Modifica : OK, qualcosa di simile quindi (per far fronte a intervalli disgiunti):
Sub Test()
Dim oRange As Range
Set oRange = ActiveSheet.Range("A1,C1:D1") ' Change this to point at the range to be copied
Dim i As Integer
For i = 1 To 10
Dim oArea As Range
For Each oArea In oRange.Areas
oArea.Copy
oArea.Offset(i, 0).PasteSpecial xlPasteAll
Next oArea
Next i
End Sub
Autorizzato sotto: CC-BY-SA insieme a attribuzione
Non affiliato a StackOverflow