David aggiungeva i totali parziali (Dati | Totali parziali) a fogli di lavoro di grandi dimensioni e cercava un modo per spostare le celle del totale parziale in celle diverse. Ad esempio, si supponga che quando Excel ha aggiunto i totali parziali automatici, questi sono stati aggiunti nella colonna S e la formula SUBTOTALE aggiunta da Excel si riferiva a intervalli di celle nella colonna S. David voleva spostare le formule SUBTOTALE (e solo quelle formule) fuori da dalla colonna S alla colonna T, e le formule si riferiscono ancora ai dettagli nella colonna S.

Un’opzione è scorrere e spostare le formule SUBTOTALE, una alla volta, nelle posizioni desiderate. (Dovresti usare Ctrl + X e Ctrl + V per spostare le celle, piuttosto che Ctrl + C e Ctrl + V per creare semplicemente copie delle celle.) Se i fogli di lavoro sono grandi, con molti subtotali, questo può diventare molto noioso molto velocemente.

La noia in Excel è spesso l’impulso principale per la creazione di una macro. Questo caso non fa eccezione. È possibile creare una macro che eseguirà lo spostamento effettivo delle formule SUBTOTALE. Considera il seguente esempio:

Sub MoveSubtotals()

Dim rCell As Range     Dim rng As Range     Dim iCol As Integer     Dim iOffset As Integer

iCol = 19  '19 is Column S     iOffset = 1 'Positives go right, negatives go left     Set rng = Intersect(Selection.CurrentRegion, Columns(iCol))

For Each rCell In rng         If InStr(rCell.Formula, "SUBTOTAL") Then             rCell.Offset(0, iOffset).Formula = _                 rCell.Formula             rCell.ClearContents         End If     Next End Sub

Questo esempio funziona esaminando ogni cella selezionata nella colonna S. Se la formula nella cella contiene la parola SUBTOTALE, la formula viene copiata una colonna a destra, nella colonna T, ed eliminata dalla cella nella colonna S. È possibile modificare la distanza a sinistra oa destra di cui vengono spostati i subtotali semplicemente modificando il valore assegnato alla variabile iOffset. (Nota che devi eseguire la macro con un intervallo di celle selezionato e parte di quella selezione deve includere la colonna S.)

_Nota: _

Se desideri sapere come utilizzare le macro descritte in questa pagina (o in qualsiasi altra pagina dei siti ExcelTips), ho preparato una pagina speciale che include informazioni utili.

Fare clic qui per aprire quella pagina speciale in una nuova scheda del browser.

ExcelTips è la tua fonte di formazione economica su Microsoft Excel.

Questo suggerimento (2119) si applica a Microsoft Excel 97, 2000, 2002 e 2003. Puoi trovare una versione di questo suggerimento per l’interfaccia a nastro di Excel (Excel 2007 e versioni successive) qui:

Moving Subtotals.