Quando scriviamo la codifica VBA per salvarci dal lavoro ripetitivo, la selezione dei dati gioca un ruolo molto importante. Quindi, in questo articolo imparerai come selezionare i dati per riga, colonna e interi dati di documenti tramite la codifica VBA in Microsoft Excel.
Imparerai:
- Come selezionare l'intera colonna?
- Come selezionare l'intera riga?
- Come selezionare interi dati?
Come selezionare l'intera colonna tramite VBA?
Abbiamo dati nell'intervallo A1: C19, in cui la colonna A contiene Nome, la colonna B Sesso e la colonna C contiene Età.
Per selezionare l'intera colonna A in questi dati, seguire i passaggi e il codice indicati di seguito: -
- Apri la pagina VBA premi il tasto Alt+F11
- Inserisci un modulo
- Scrivi il codice sotto indicato:
Sub Columnselect() Range("A1").Entirecolumn.Select End Sub
- Premi il tasto F5 per eseguire la macro in Excel
- La colonna A verrà selezionata
Se si desidera che i dati vengano selezionati fino all'ultima cella attiva nella colonna, seguire i passaggi e il codice indicati di seguito: -
- Scrivi il codice indicato di seguito: -
Sub Columnselect() lastrow = Worksheets("Sheet1").Cells(Rows.count, 1).End(xlUp).Row Worksheets("Sheet1").Range("A1:A" & lastrow).Select End Sub
Codice Spiegazione:- Per prima cosa definiremo quale sarà l'ultima cella attiva nei dati, quindi l'ultima riga che utilizzeremo per definire l'intervallo nella codifica.
- Premi il tasto F5 per eseguire la macro in Excel
- La colonna A1: A19 verrà selezionata
In questo modo, utilizzando VBA, è possibile selezionare il codice per selezionare la colonna fino all'ultima cella attiva. Quando non sappiamo quale sia l'ultima cella attiva, possiamo usare questo codice mentre scriviamo il codice VBA per la selezione in Microsoft Excel.
Come selezionare l'intera riga tramite VBA?
Abbiamo dati nell'intervallo A1: C19, in cui la colonna A contiene Nome, la colonna B Sesso e la colonna C contiene Età.
Per selezionare l'intera riga in questi dati, seguire i passaggi e il codice indicati di seguito: -
- Apri la pagina VBA premi il tasto Alt+F11
- Inserisci un modulo
- Scrivi il codice indicato di seguito: -
Sub rowselect() Range("A2").EntireRow.Select End Sub
- Premi il tasto F5 per eseguire la macro in Excel
- La colonna A verrà selezionata
Se si desidera che i dati vengano selezionati fino all'ultima cella attiva da rigare, seguire i passaggi e il codice indicati di seguito: -
- Scrivi il codice indicato di seguito: -
Sub rowselect() Dim lastcolumn As Long lastcolumn = Worksheets("Sheet1").Cells(1, Columns.count).End(xlToLeft).Column Worksheets("Sheet1").Range("A1", Cells(1, lastcolumn) )).Seleziona Fine Sotto
Codice Spiegazione: In questo codice abbiamo definito prima l'ultima colonna, quindi la useremo per definire l'intervallo.
- Premi F5 per eseguire la macro in Excel
- La prima riga verrà selezionata fino all'ultima cella attiva nella riga
In questo modo possiamo selezionare l'intera riga o selezionare la riga fino all'ultima cella attiva in Microsoft Excel tramite VBA.
Come selezionare interi dati tramite VBA?
Facciamo un esempio e capiamo: -
Abbiamo dati nell'intervallo A1: C19, in cui la colonna A contiene Nome, la colonna B Sesso e la colonna C contiene Età.
Per selezionare i dati dalla prima cella all'ultima cella attiva, seguire i passaggi e il codice indicati di seguito: -
- Apri la pagina VBA premi il tasto Alt+F11
- Inserisci un modulo
- Scrivi il codice sotto indicato:
Sub Selectionoflastcell() Dim lastrow As Long, lastcolumn As Long lastrow = Worksheets("Sheet1").Cells(Rows.count, 1).End(xlUp).Row lastcolumn = Worksheets("Sheet1").Cells(1, Columns .count).End(xlToLeft).Column Worksheets("Sheet1").Range("A1", Cells(lastrow, lastcolumn)).Select End Sub
Codice Spiegazione: Prima abbiamo definito il Nome Soggetto del Codice, poi abbiamo definito tutte le variabili. Quindi abbiamo definito quale sarebbe la nostra ultima riga e l'ultima colonna.
- Premi il tasto F5 per eseguire la macro in Excel
- Nel foglio di lavoro tutti i dati verranno selezionati
Ora, se vuoi copiare gli stessi dati e incollarli, usa il codice indicato di seguito: -
Sub Selectionoflastcell() Dim lastrow As Long, lastcolumn As Long lastrow = Worksheets("Sheet1").Cells(Rows.count, 1).End(xlUp).Row lastcolumn = Worksheets("Sheet1").Cells(1, Columns .count).End(xlToLeft).Column Worksheets("Sheet1").Range("A1", Cells(lastrow, lastcolumn)).Copy Sheets("Sheet2").Range("A1") End Sub
Esegui il codice, tutti i dati verranno copiati e incollati in sheet2.
Questo è il modo in cui possiamo scrivere la macro per selezionare i dati dalla prima cella all'ultima cella attiva e quindi incollare in un altro foglio in Microsoft Excel.
Se ti è piaciuto il nostro blog, condividilo con i tuoi amici su Facebook. E puoi anche seguirci su Twitter e Facebook.
Ci piacerebbe avere tue notizie, facci sapere come possiamo migliorare, completare o innovare il nostro lavoro e renderlo migliore per te. Scrivici al sito di posta elettronica.