6. Rangos y Celdas con VBA

En esta lección aprenderás a:

Referenciar celdas con Range("A1") y Cells(fila, col).
Leer y escribir con .Value, insertar fórmulas con .Formula.
Cambiar colores con .Interior.Color y RGB().
Detectar la última fila con datos usando End(xlUp).

Range vs Cells

Vista tipo Excel: la primera fila muestra las letras de columna; la primera columna muestra los números de fila. En las celdas con fórmula (=...), cada referencia lleva un color distinto. Clic en la referencia: resalta solo esa celda. Clic en el resto de la celda (por ejemplo el = o los operadores): resalta todas las celdas citadas. Repetir el mismo gesto sobre lo ya resaltado lo oculta.

Formas de referenciar celdasResumen

Cells(3, 2) y Range("B3") apuntan exactamente a la misma celda B3.

	A	B	C
1	Forma	Ejemplo	Cuándo usarla
2	Range("dirección")	Range("B3")	Cuando la dirección es fija o conocida
3	Range("rango")	Range("A1:C10")	Para operar sobre un bloque de celdas
4	Cells(fila, col)	Cells(3, 2)	En bucles donde fila o columna varían
5	Sheets("Hoja").Range()	Sheets("Ventas").Range("A1")	Para acceder a una hoja específica

Leer y escribir: .Value, .Formula, .Text

PropiedadesCelda.bas

VBA

  Range("A1").Value = 500           ' escribe el número 500 
  Range("B1").Value = "Laptop"      ' escribe texto 
  Range("C1").Formula = "=A1*1.19"  ' inserta una fórmula 
    
  Dim precio As Double 
  precio = Range("A1").Value         ' lee el valor numérico 
    
  ' .Text lee el texto formateado visible (ej. "$500.00") 
  Dim texto As String 
  texto = Range("A1").Text 

Formato: colores, negrita, alineación

FormatearEncabezado.bas

VBA

  Sub FormatearEncabezado() 
      With Range("A1:D1") 
          .Interior.Color = RGB(29, 107, 68) 
          .Font.Color = RGB(255, 255, 255) 
          .Font.Bold = True 
          .Font.Size = 12 
          .HorizontalAlignment = xlCenter 
      End With 
  End Sub 

Última fila con datos — End(xlUp)

ProcesarTabla.bas

VBA

  Sub ProcesarTabla() 
      Dim ultimaFila As Long 
      Dim i As Long 
      ultimaFila = Cells(Rows.Count, 1).End(xlUp).Row 
    
      For i = 2 To ultimaFila 
          Cells(i, 3).Value = Cells(i, 1).Value & " - " & Cells(i, 2).Value 
      Next i 
  End Sub 

Limpiar un rango

Métodos para limpiar celdasResumen

Usa ClearContents antes de re-generar un reporte para evitar datos residuales.

	A	B
1	Método	Qué hace
2	Range("A1:C10").ClearContents	Borra el contenido pero conserva el formato
3	Range("A1:C10").ClearFormats	Borra el formato pero conserva el contenido
4	Range("A1:C10").Clear	Borra contenido Y formato completamente
5	Range("A1:C10").Delete	Elimina las celdas y desplaza filas/columnas

Practica en Excel

Abre Excel (o copia los datos con el botón de la tabla), sigue los pasos y comprueba el resultado en tu hoja.

Escribe nombres en A2:A10 y números en B2:B10. Ejecuta ProcesarTabla() y verifica C.
Agrega FormatearEncabezado() y ejecútala.
Borra valores del medio y vuelve a ejecutar ProcesarTabla() — debe detenerse en la última fila con datos.
Usa ClearContents en A1:C20 y vuelve a ejecutar.

Ejercicios de práctica

Ejercicio 1 — Escribir en celda específica

Crea una Sub que escriba el texto "¡Hola desde VBA!" en la celda D5 usando Range, y el número 42 en E5 usando Cells.

Ver solución sugerida

EscribirCeldas.bas

VBA

  Sub EscribirCeldas() 
      Range("D5").Value = "¡Hola desde VBA!" 
      Cells(5, 5).Value = 42 
  End Sub 

Ejercicio 2 — Fórmula con .Formula

Escribe números en B2:B10. Usa .Formula para insertar la fórmula =SUMA(B2:B10) en la celda B11 y =PROMEDIO(B2:B10) en B12.

Ver solución sugerida

InsertarFormulas.bas

VBA

  Sub InsertarFormulas() 
      Range("B11").Formula = "=SUM(B2:B10)" 
      Range("B12").Formula = "=AVERAGE(B2:B10)" 
  End Sub 

Ejercicio 3 — Formatear encabezado azul

Crea una Sub que formatee A1:E1 con fondo azul oscuro (RGB(13, 71, 161)), letra blanca, negrita y alineación centrada usando With.

Ver solución sugerida

EncabezadoAzul.bas

VBA

  Sub EncabezadoAzul() 
      With Range("A1:E1") 
          .Interior.Color = RGB(13, 71, 161) 
          .Font.Color = RGB(255, 255, 255) 
          .Font.Bold = True 
          .HorizontalAlignment = xlCenter 
      End With 
  End Sub 

Ejercicio 4 — Última fila de la col B

Crea una Sub que encuentre la última fila con datos en la columna B usando End(xlUp) y muestre el número de fila con MsgBox.

Ver solución sugerida

UltilaFila.bas

VBA

  Sub UltimaFilaB() 
      Dim uf As Long 
      uf = Cells(Rows.Count, 2).End(xlUp).Row 
      MsgBox "Última fila con datos en col B: " & uf 
  End Sub 

Ejercicio 5 — Limpiar y llenar

Crea una Sub que: (1) limpie el rango A1:C10 con ClearContents, (2) escriba "Producto", "Precio", "Stock" como encabezados en la fila 1.

Ver solución sugerida

LimpiarYLlenar.bas

VBA

  Sub LimpiarYLlenar() 
      Range("A1:C10").ClearContents 
      Range("A1").Value = "Producto" 
      Range("B1").Value = "Precio" 
      Range("C1").Value = "Stock" 
  End Sub 

Ejercicio 6 — Copiar valor a rango ⭐⭐

Escribe un valor en A1. Usa un bucle For i = 2 To 10 para copiar ese mismo valor en A2:A10.

Ver solución sugerida

CopiarValor.bas

VBA

  Sub CopiarValor() 
      Dim valor As Variant 
      Dim i     As Integer 
      valor = Range("A1").Value 
      For i = 2 To 10 
          Cells(i, 1).Value = valor 
      Next i 
  End Sub 

Ejercicio 7 — Formato de moneda ⭐⭐

Escribe números en B2:B20. Crea una Sub que aplique el formato de moneda "$#,##0.00" a ese rango usando NumberFormat.

Ver solución sugerida

FormatoMoneda.bas

VBA

  Sub FormatoMoneda() 
      Range("B2:B20").NumberFormat = "$#,##0.00" 
  End Sub 

Ejercicio 8 — Verificar si tiene fórmula ⭐⭐

Selecciona una celda antes de ejecutar la macro. Crea una Sub que use ActiveCell.HasFormula para verificar si la celda activa contiene una fórmula y muestre el resultado con MsgBox.

Ver solución sugerida

TieneFormula.bas

VBA

  Sub TieneFormula() 
      If ActiveCell.HasFormula Then 
          MsgBox "La celda " & ActiveCell.Address & " contiene una fórmula." 
      Else 
          MsgBox "La celda " & ActiveCell.Address & " NO tiene fórmula." 
      End If 
  End Sub 

Ejercicio 9 — Longitud de texto en col B ⭐⭐

Escribe textos en A1:A15. Usa un bucle For para escribir en B la longitud (Len()) de cada texto de la columna A.

Ver solución sugerida

LongitudTexto.bas

VBA

  Sub LongitudTexto() 
      Dim i As Integer 
      For i = 1 To 15 
          If Cells(i, 1).Value <> "" Then 
              Cells(i, 2).Value = Len(Cells(i, 1).Value) 
          End If 
      Next i 
  End Sub 

Ejercicio 10 — Usar Offset ⭐⭐

Selecciona cualquier celda antes de ejecutar. Crea una Sub que use ActiveCell.Offset(0, 1) para escribir "Celda vecina" en la celda a la derecha de la activa, y Offset(1, 0) para escribir "Celda abajo" en la celda debajo.

Ver solución sugerida

UsarOffset.bas

VBA

  Sub UsarOffset() 
      ActiveCell.Offset(0, 1).Value = "Celda vecina" 
      ActiveCell.Offset(1, 0).Value = "Celda abajo" 
  End Sub 

Ejercicio 11 — Ocultar filas ⭐⭐⭐

Crea una Sub que oculte las filas 3, 5 y 7 usando Rows("3:3").Hidden = True. Crea otra Sub MostrarFilas que las vuelva a mostrar con Hidden = False.

Ver solución sugerida

OcultarFilas.bas

VBA

  Sub OcultarFilas() 
      Rows("3:3").Hidden = True 
      Rows("5:5").Hidden = True 
      Rows("7:7").Hidden = True 
  End Sub 
    
  Sub MostrarFilas() 
      Rows("3:3").Hidden = False 
      Rows("5:5").Hidden = False 
      Rows("7:7").Hidden = False 
  End Sub 

Ejercicio 12 — Resaltar duplicados ⭐⭐⭐

Escribe nombres en A1:A20 con algunos repetidos. Usa dos bucles For anidados para comparar cada celda con las demás; si encuentra un duplicado, colorea ambas en amarillo.

Ver solución sugerida

ResaltarDuplicados.bas

VBA

  Sub ResaltarDuplicados() 
      Dim i As Integer 
      Dim j As Integer 
      For i = 1 To 20 
          For j = i + 1 To 20 
              If Cells(i, 1).Value <> "" And _ 
                 Cells(i, 1).Value = Cells(j, 1).Value Then 
                  Cells(i, 1).Interior.Color = RGB(255, 255, 150) 
                  Cells(j, 1).Interior.Color = RGB(255, 255, 150) 
              End If 
          Next j 
      Next i 
  End Sub 

Ejercicio 13 — Ancho de columna automático ⭐⭐⭐

Escribe datos en A1:E10. Crea una Sub que ajuste automáticamente el ancho de las columnas A a E usando Columns("A:E").AutoFit. Luego establece un ancho mínimo de 15 con ColumnWidth para cualquier columna más angosta.

Ver solución sugerida

AjustarColumnas.bas

VBA

  Sub AjustarColumnas() 
      Dim i As Integer 
      Columns("A:E").AutoFit 
      For i = 1 To 5 
          If Columns(i).ColumnWidth < 15 Then 
              Columns(i).ColumnWidth = 15 
          End If 
      Next i 
  End Sub 

Ejercicio 14 — Buscar y marcar ⭐⭐⭐

Escribe productos en A1:A20. Pide al usuario con InputBox el nombre de un producto a buscar. Recorre con For Each y si lo encuentra, colorea la celda en verde y muestra la dirección; si no existe, muestra "No encontrado".

Ver solución sugerida

BuscarYMarcar.bas

VBA

  Sub BuscarYMarcar() 
      Dim buscar    As String 
      Dim celda     As Range 
      Dim encontrado As Boolean 
      buscar     = InputBox("¿Qué producto buscas?") 
      encontrado = False 
    
      For Each celda In Range("A1:A20") 
          If LCase(celda.Value) = LCase(buscar) Then 
              celda.Interior.Color = RGB(150, 255, 150) 
              encontrado = True 
          End If 
      Next celda 
    
      If Not encontrado Then 
          MsgBox "Producto '" & buscar & "' no encontrado." 
      End If 
  End Sub 

Ejercicio 15 — Tabla con formato completo ⭐⭐⭐

Crea una Sub GenerarTablaFormateada que: (1) limpie A1:C11, (2) escriba encabezados en A1:C1 con fondo oscuro y letra blanca, (3) llene 10 filas con datos de ejemplo, (4) aplique bordes a toda la tabla con Borders(xlEdgeBottom).LineStyle = xlContinuous, y (5) ajuste el ancho de columnas con AutoFit.

Ver solución sugerida

TablaFormateada.bas

VBA

  Sub GenerarTablaFormateada() 
      ' 1. Limpiar 
      Range("A1:C11").Clear 
    
      ' 2. Encabezados 
      With Range("A1:C1") 
          .Value = Array("Producto", "Precio", "Stock")   ' truco: asignar array 
          .Interior.Color = RGB(29, 107, 68) 
          .Font.Color = RGB(255, 255, 255) 
          .Font.Bold = True 
      End With 
      Range("A1").Value = "Producto" 
      Range("B1").Value = "Precio" 
      Range("C1").Value = "Stock" 
    
      ' 3. Datos de ejemplo 
      Dim i As Integer 
      For i = 2 To 11 
          Cells(i, 1).Value = "Producto " & (i - 1) 
          Cells(i, 2).Value = (i - 1) * 10.5 
          Cells(i, 3).Value = (i - 1) * 5 
      Next i 
    
      ' 4. Bordes 
      With Range("A1:C11").Borders 
          .LineStyle = xlContinuous 
          .Weight = xlThin 
      End With 
    
      ' 5. AutoFit 
      Columns("A:C").AutoFit 
  End Sub 

Contenido

📚 Elige un curso

6. Rangos y Celdas con VBA

Range vs Cells

Formas de referenciar celdasResumen

Leer y escribir: .Value, .Formula, .Text

Formato: colores, negrita, alineación

Última fila con datos — End(xlUp)

Limpiar un rango

Métodos para limpiar celdasResumen

Practica en Excel

Ejercicios de práctica

Ejercicio 1 — Escribir en celda específica

Ejercicio 2 — Fórmula con .Formula

Ejercicio 3 — Formatear encabezado azul

Ejercicio 4 — Última fila de la col B

Ejercicio 5 — Limpiar y llenar

Ejercicio 6 — Copiar valor a rango ⭐⭐

Ejercicio 7 — Formato de moneda ⭐⭐

Ejercicio 8 — Verificar si tiene fórmula ⭐⭐

Ejercicio 9 — Longitud de texto en col B ⭐⭐

Ejercicio 10 — Usar Offset ⭐⭐

Ejercicio 11 — Ocultar filas ⭐⭐⭐

Ejercicio 12 — Resaltar duplicados ⭐⭐⭐

Ejercicio 13 — Ancho de columna automático ⭐⭐⭐

Ejercicio 14 — Buscar y marcar ⭐⭐⭐

Ejercicio 15 — Tabla con formato completo ⭐⭐⭐

Pon a prueba tus conocimientos

¡Hecho con mucho cariño! ☕