Microsoft Office Forums - View Single Post - [Solved] Overcome issues in tables with vertically merged cells

Guessed · 12-19-2016, 04:04 PM

Using Rows or Columns is problematic in non uniform tables. For that you will need to check each cell instead

Code:

Sub ExploreATable()
  Dim aCell As Cell, aRow As Row
  With Selection.Tables(1)
    If .Uniform Then
      For Each aRow In .Rows
        Debug.Print "Row: " & aRow.Index, "Cells: " & aRow.Cells.Count
      Next aRow
    Else
      For Each aCell In .Range.Cells
        Debug.Print aCell.RowIndex, aCell.ColumnIndex
      Next
    End If
  End With
End Sub