come utilizzare la variabile “ultimo numero di riga” per impostare l’intervallo in un’altra colonna

Il file di dati è un valore da 1 a 10 da A1 a A10.

      A    B
1     1    1
2     2    1
3     3    1
4     4    1
5     5    2
6     6    2
7     7    2
8     8    2
9     9    2
10    10   3

Ho bisogno di inserire una colonna (ad esempio, colonna B) al mio file di dati. Nella Cella B1 c’è una formula (ad esempio: (=INT(A1/5)+1)). Io di solito doppio clic sull’angolo in basso a destra della cella B1, questa auto-riempimento del resto di celle nella colonna B la riga con i dati nella colonna a (come indicato nella tabella di cui sopra)

Utilizzando registra Macro, mi ha dato i codici di seguito:

Range("B1").Select
Selection.AutoFill Destination:=Range("B1:B10")
Range("B1:B10").Select

Il problema è il file di dati di diversa ultimo numero di riga con i dati(potrebbe essere la riga 8 riga o 14). In modo che la macro creata come sopra non adatta il altri file di dati.

So utilizzando la macro riportata di seguito, si trova ultima riga con i dati.

lastRow = Range("A99999").End(xlUp).Row

Come posso sostituire B10 nella gamma “B1:B10” con la variabile?
Mi piacerebbe avere un comune della macro. Qualcuno potrebbe aiutare su questo? Apprezzato!!

  • Range(“B1:B” & lastrow).Selezionare

 

2 Replies
  1. 2

    Inoltre, è stata aggiunta al mio commento, la registrazione è un grande strumento, ma può aggiungere un po ‘ inutile “Selezionare” le dichiarazioni. Le linee (con lastrow) può essere solo:

    Range("B1").AutoFill Destination:=Range("B1:B" & lastrow)
  2. 0

    Non hai bisogno di Autocompilazione per questo. È possibile assegnare la formula in un colpo solo l’intera gamma

    Range("B1:B" & Lrow).Formula = "=INT(A1/5)+1"

    Dove LRow è Ultimariga.

    lastRow = Range(“A99999”).End(xlUp).Riga

    Si prega di non rigido codice di valori come 99999 per trovare l’ultima riga. Vedere QUESTO su come trovare l’ultima riga.

Lascia un commento