Propiedades y acciones de VBA de celda y rango

Manipular rangos y celdas es una de las acciones más comunes en VBA. Puede utilizar lo siguiente para aprender o simplemente copiar y pegar en su propio código.

Hacer referencia a rangos de celdas de la hoja de trabajo

'Rango de referencia por direcciónWorkbooks("WorkbookName.xlsx").Worksheets("SheetName").Range("A1:D4").[Otras propiedades y acciones]'Hacer referencia a celdas por fila y columna - Celdas(Fila,Columna)Libros de trabajo ("WorkbookName.xlsx").Worksheets("SheetName").Cells(1, 1).[Otras propiedades y acciones]'Rangos de referencia por un nombre definidoWorkbooks("WorkbookName.xlsx").Worksheets("SheetName"). Rango("RangeName").[Otras propiedades y acciones]

Asignar un rango a una variable

'Asignar un rango a una variableDim Rng As RangeSet Rng = Workbooks("WorkbookName.xlsx").Worksheets("SheetName").Range("A1:D4")'Asignar una celda a una variableDim Rng As RangeSet Rng = Workbooks( "Nombre del libro de trabajo.xlsx"). Hojas de trabajo ("Nombre de la hoja"). Celdas (1, 1)

Seleccionar rangos y celdas

'Seleccionar rango por direcciónRango("A1:D4").Seleccionar'Seleccionar celdas por fila y columna - Celdas(Fila,Columna)Celdas(1, 1).Seleccionar'Seleccionar rangos por un nombre definidoRango("NombreRango").Seleccionar

Cambiar el valor de un rango o celda

'Cambiar valor de un rango por direcciónRange("A1:D4").Value = "Text here"'Cambiar valor de celdas por fila y columna - Celdas(Fila,Columna)Celdas(1, 1).Valor = 30

Establecer el valor de una variable en función del valor de una celda

'Establecer una variable basada en un valor de celdaDim CellValue As IntegerCellValue = Cells(1, 1).Value

Contar celdas, filas y columnas.

'Cuenta celdas en un rangoDim CellsInRange As LongCellsInRange = Range("A1:D4").Cells.Count'Cuenta filas en un rangoDim RowsInRange As LongRowsInRange = Range("A1:D4").Rows.Count 'Cuenta columnas en un rangoDim ColumnsInRange As LongColumnsInRange = Rango("A1:D4").Columnas.Count

Recorriendo celdas, filas y columnas en un rango

'Recorrer la acción para cada celda en un rangoDim Rng As RangeDim CellsInRng As RangeSet Rng = Range("A1:D4")For Each CellsInRange In Rng 'Realizar una acciónNext CellsInRange'Recorrer la acción para cada fila en un rangoDim Rng As RangeDim CellsInRng As RangeSet Rng = Range("A1:D4")Para cada CellsInRange In Rng.Rows 'Llevar a cabo una acciónNext CellsInRange'Recorre la acción para cada columna en un rangoDim Rng As RangeDim CellsInRng As RangeSet Rng = Range("A1:D4) ")Para Cada CellsInRange In Rng.Columns 'Realizar una acciónNext CellsInRange

Insertar filas, columnas, rangos y celdas

'Insertar columnasColumnas("B:B").Insertar'Insertar filasFilas("2:3").Insertar'Insertar un rango de celdas (desplazar las celdas hacia la derecha)Rango("A1:D4").Insertar Mayús:= xlToRight'Insertar un rango de celdas (desplazar las celdas hacia abajo)Rango("A1:D4").Insert Shift:=xlDown

Eliminar filas, columnas, rangos y celdas

'Eliminar columnasColumnas("B:B").Delete'Eliminar filasFilas("3:4").Delete 'Eliminar un rango de celdas (desplace las celdas hacia la derecha)Rango("A1:D4").Eliminar Shift:= xlToLeft'Eliminar un rango de celdas (desplazar las celdas hacia abajo)Rango("A1:D4").Delete Shift:=xlU

Copiar y pegar

'Copiar y pegar eachtingRange("A1:D4").CopyRange("H7").Paste'Copiar y pegar valores onlyRange("A1:D4").CopyRange("H7").PasteSpecial Paste:=xlPasteValues'Copiar y pegar formatos onlyRange("A1:D4").CopyRange("H7").PasteSpecial Paste:=xlPasteFormats

Copiar y pegar sin usar el portapapeles

'Copiar todos los rangos("A1:D4").Copiar destino:=Rango("H7")'Copiar valores soloRango("H7:K10").Valor = Rango("A1:D4").Valor

Encontrar la última celda de una fila o columna

'Última celda utilizada en una filaDim LastRow As LongLastRow = Workbooks("WorkbookName.xlsx").Worksheets("SheetName").Cells(Rows.Count, "A").End(xlUp).Row'Última celda utilizada en una columnDim LastCol As IntegerLastCol = Workbooks("WorkbookName.xlsx").Worksheets("SheetName").Cells(1, Columns.Count).End(xlToLeft).Column

Encontrar la primera celda en un rango

'Encuentre la fila de la primera celda de un rangoDim FirstRow As LongDim Rng As RangeSet Rng = Range("A1:D4")FirstRow = Rng.Row'Encuentre la columna de la primera celda de un rangeDim FirstColumn As LongDim Rng As RangeSet Rng = Range ("A1:D4")PrimeraColumna = Rng.Columna

Encontrar la fila y columna de la celda activa

'Buscar la fila de la celda activa ActiveCell.Row'Buscar las columnas de la celda activa ActiveCell.Column'Buscar la dirección de las celdas activasActiveCell.Address

---