tengan - referencia celda combinada excel

Detecta celdas combinadas en VBA Excel con MergeArea

Question

Tengo un gran problema con este: tengo que detectar celdas combinadas horizontal y verticalmente desde una tabla de Excel. Tengo que almacenar los primeros acordes celulares y la longitud del área fusionada. Recorro iterando la tabla con dos ciclos, línea por línea.

¿Cómo puedo usar la propiedad MergeArea para detectar las áreas fusionadas y no fusionadas? Si la celda no está fusionada, probablemente debería devolver un rango vacío, sin embargo, esto:

"Si currentRange no es nada entonces"

No está funcionando en absoluto. ¿Algunas ideas? Muchas gracias.

Answer 1

Hay varios bits útiles de código para esto.

Coloque el cursor en una celda combinada y haga estas preguntas en la ventana de Inmigración:

¿Es la célula activa una célula fusionada?

? Activecell.Mergecells
 True

¿Cuántas celdas se fusionan?

? Activecell.MergeArea.Cells.Count
 2

¿Cuántas columnas se fusionan?

? Activecell.MergeArea.Columns.Count
 2

¿Cuántas filas se fusionan?

? Activecell.MergeArea.Rows.Count
  1

¿Cuál es la dirección de rango fusionado?

? activecell.MergeArea.Address
  $F$2:$F$3

Answer 2

Mientras que trabajar con celdas seleccionadas como lo muestra @tbur puede ser útil, tampoco es la única opción disponible.

Puedes usar Range () así:

If Worksheets("Sheet1").Range("A1").MergeCells Then
  Do something
Else
  Do something else
End If

O:

If Worksheets("Sheet1").Range("A1:C1").MergeCells Then
  Do something
Else
  Do something else
End If

Alternativamente, puedes usar Celdas () :

If Worksheets("Sheet1").Cells(1, 1).MergeCells Then
  Do something
Else
  Do something else
End If