Come estendere una formula di Excel fino all'ultima cella non vuota di una colonna adiacente?

Question

Ciao a tutti,

il mio problema è questo: ho una colonna contenente dati, diciamo da A1 a Ax dove x non mi è noto. Scrivo una formula in B1, dopodiché vorrei copiare tale formula in tutte le celle da B2 a Bx, cioè fermandomi all'ultima cella per cui l'adiacente è non vuota. Posso farlo ovviamente trascinando la formula con il mouse e fermandomi quando incontro l'ultima cella non vuota, ma se il numero di celle è molto grande l'operazione è un po' noiosa. Esiste un'alternativa più immediata?

Answer 1

Ciao a tutti,

il mio problema è questo: ho una colonna contenente dati, diciamo da A1 a Ax dove x non mi è noto. Scrivo una formula in B1, dopodiché vorrei copiare tale formula in tutte le celle da B2 a Bx, cioè fermandomi all'ultima cella per cui l'adiacente è non vuota. Posso farlo ovviamente trascinando la formula con il mouse e fermandomi quando incontro l'ultima cella non vuota, ma se il numero di celle è molto grande l'operazione è un po' noiosa. Esiste un'alternativa più immediata?

Fai doppio click sul quadratino in basso a dx in B1(quello che utilizzi per trascinare).

Answer 2

Ok, grazie per la risposta.

Answer 3

Mi aggiungo alla domanda. A me servirebbe una macro che faccia questa cosa.

Grazie

Semplificando, immaginiamo tu abbia una siruazione come questa nel Foglio1:

A1: 5

B1: 2

C1: =A1+A2

e voglia espandere la tua formula da C1 fino all'ultima riga di colonna C che ha dati in A/B. Questa la macro che fa quanto chiedi:

Public Sub m()

    Dim sh As Worksheet

    Dim lRiga As Long

    Set sh = ThisWorkbook.Worksheets("Foglio1")

    With sh

        lRiga = .Range("A" & .Rows.Count).End(xlUp).Row

        With .Range("C1")

            .Value = "=A1+B1"

            .AutoFill Destination:=Range("C1:C" & lRiga), Type:=xlFillDefault

        End With

        '.Range("C1:C" & lRiga).Value = .Range("C1:C" & lRiga).Value

    End With

    Set sh = Nothing

End Sub

NOTA. C'è una riga commentata. Se nelle celle C1:C(n) vuoi vedere il risultato e non la formula, elimina il commento. Io ho utilizzato una formula basilare(la somma di due celle), ma ovviamente puoi sostituirla con le tue funzioni/formule. L'importante è che passi i parametri corretti.

Answer 4

Mi aggiungo alla domanda. A me servirebbe una macro che faccia questa cosa.

Grazie