Domanda:

Come fare ad inserire in un array i valori contenuti, ad esempio, nelle celle dalla a1 alla a7?

Risposta:

Dato un intervalo A1:A7 posto in uno sheet chiamato “Mio Sheet”),
valorizzo un array chiamato MioArray in questo modo:

Dim rng As Range, r As Range, cnt As Long
Set rng = Sheets("Mio Sheet").Range(Cells(1, 1), Cells(7, 1))

For Each r In rng

    ReDim Preserve MioArray(cnt)
    MioArray (cnt) = r.Text
    cnt = cnt + 1

Next

Attenzione:
volendo lavorare sugli elementi dell’array,
il primo elemento ha coordinata MioArray(0) e non MioArray(1)

Riccardo Vincenti

The following two tabs change content below.

• Bio
• Ultimi Post

Riccardo Vincenti

Ultimi post di Riccardo Vincenti (vedi tutti)

• 073. Duplicare righe excel modificando il contenuto - 6 Ottobre 2017
• 072. Estrazione numeri casuali - 6 Ottobre 2017
• 071. Estrazione casuale valori da un elenco - 5 Ottobre 2017
• 070. Contare dati univoci senza Pivot - 21 Settembre 2017
• 069. Aggiungere intervalli ad una data: Date Add in Excel - 21 Settembre 2017

This work by Riccardo Vincenti is licensed under a Creative Commons Attribution-NonCommercial-ShareAlike 4.0 International