Cuando escribimos la codificación VBA para salvarnos del trabajo repetitivo, la selección de datos juega un papel muy importante. Entonces, en este artículo, aprenderá cómo seleccionar los datos por fila, columna y datos de documentos completos a través de la codificación VBA en Microsoft Excel.
Aprenderás:
- ¿Cómo seleccionar la columna completa?
- ¿Cómo seleccionar la fila completa?
- ¿Cómo seleccionar datos completos?
¿Cómo seleccionar toda la columna a través de VBA?
Tenemos datos en el rango A1: C19, en el que la columna A contiene Nombre, la columna B Género y la columna C contiene Edad.
Para seleccionar la columna A completa en estos datos, siga los pasos y el código que se indican a continuación: -
- Abra la página de VBA presione la tecla Alt + F11
- Insertar un módulo
- Escriba el código mencionado a continuación:
Sub Columnselect () Range ("A1"). Toda la columna.Select End Sub
- Presione la tecla F5 para ejecutar la macro en Excel
- Se seleccionará la columna A
Si desea que los datos se seleccionen hasta la última celda activa de la columna, siga los pasos y el código que se mencionan a continuación: -
- Escriba el código mencionado a continuación: -
Sub Columnselect () lastrow = Worksheets ("Sheet1"). Cells (Rows.count, 1) .End (xlUp) .Row Worksheets ("Sheet1"). Range ("A1: A" & lastrow) .Select End Sub
Explicación del código: - Primero definiremos cuál será la última celda activa en los datos, y luego la última fila que usaremos para definir el rango en la codificación.
- Presione la tecla F5 para ejecutar la macro en Excel
- Columna A1: Se seleccionará A19
De esta manera, al usar VBA, puede seleccionar el código para seleccionar la columna hasta la última celda activa. Cuando no sabemos cuál es la última celda activa, podemos usar este código mientras escribimos el código VBA para la selección en Microsoft Excel.
¿Cómo seleccionar la fila completa a través de VBA?
Tenemos datos en el rango A1: C19, en el que la columna A contiene Nombre, la columna B Sexo y la columna C contiene Edad.
Para seleccionar la fila completa en estos datos, siga los pasos y el código que se indican a continuación: -
- Abra la página de VBA presione la tecla Alt + F11
- Insertar un módulo
- Escriba el código mencionado a continuación: -
Fila secundaria seleccione () Rango ("A2"). Fila completa.Seleccione Finalizar secundaria
- Presione la tecla F5 para ejecutar la macro en Excel
- Se seleccionará la columna A
Si desea que los datos se seleccionen hasta la última celda activa en la fila, siga los pasos y el código que se mencionan a continuación: -
- Escriba el código mencionado a continuación: -
Sub rowselect () Dim lastcolumn As Long lastcolumn = Hojas de trabajo ("Hoja1"). Celdas (1, Columns.count) .End (xlToLeft) .Column Worksheets ("Hoja1"). Rango ("A1", Celdas (1, última columna )). Seleccione End Sub
Explicación del código: En este código habíamos definido la última columna primero, luego la usaremos para definir el rango.
- Presione F5 para ejecutar la macro en Excel
- La primera fila se seleccionará hasta la última celda activa de la fila
De esta manera podemos seleccionar la fila completa o seleccionar la fila hasta la última celda activa en Microsoft Excel a través de VBA.
¿Cómo seleccionar datos completos a través de VBA?
Tomemos un ejemplo y entendamos: -
Tenemos datos en el rango A1: C19, en el que la columna A contiene Nombre, la columna B Sexo y la columna C contiene Edad.
Para seleccionar los datos de la primera celda a la última celda activa, siga los pasos y el código que se indican a continuación: -
- Abra la página de VBA presione la tecla Alt + F11
- Insertar un módulo
- Escriba el código mencionado a continuación:
Sub Selectionoflastcell () Dim lastrow As Long, lastcolumn As Long lastrow = Hojas de trabajo ("Hoja1"). Celdas (Rows.count, 1) .End (xlUp) .Row lastcolumn = Hojas de trabajo ("Hoja1"). Celdas (1, Columnas .count) .End (xlToLeft) .Column Worksheets ("Sheet1"). Range ("A1", Cells (lastrow, lastcolumn)). Seleccione End Sub
Explicación del código: Primero hemos definido el nombre del sujeto del código, luego hemos definido todas las variables. Luego hemos definido cuál sería nuestra última fila y última columna.
- Presione la tecla F5 para ejecutar la macro en Excel
- En la hoja de trabajo se seleccionarán todos los datos
Ahora, si desea copiar los mismos datos y pegarlos, use el código mencionado a continuación:
Sub Selectionoflastcell () Dim lastrow As Long, lastcolumn As Long lastrow = Hojas de trabajo ("Hoja1"). Celdas (Rows.count, 1) .End (xlUp) .Row lastcolumn = Hojas de trabajo ("Hoja1"). Celdas (1, Columnas .count) .End (xlToLeft) .Column Worksheets ("Sheet1"). Range ("A1", Cells (lasttrow, lastcolumn)). Copy Sheets ("Sheet2"). Range ("A1") End Sub
Ejecute el código, todos los datos se copiarán y pegarán en sheet2.
Esta es la forma en que podemos escribir la macro para seleccionar los datos desde la primera celda hasta la última celda activa y luego pegar en otra hoja en Microsoft Excel.
Si te gustaron nuestros blogs, compártelo con tus amigos en Facebook. Y también puedes seguirnos en Twitter y Facebook.
Nos encantaría saber de usted, háganos saber cómo podemos mejorar, complementar o innovar nuestro trabajo y hacerlo mejor para usted. Escríbanos al sitio de correo electrónico.