Это сложно. Однако лучший способ, который я нашел, это проверить ширину ячейки. Этот код не самый лучший, поскольку он перехватывает каждую ячейку, но он может стать для вас отправной точкой:
Dim r As Row
Dim co As Column
Dim c As Cell
For Each co In tbl.Columns
For Each c In co.Cells
If c.Shape.Width <> co.Width Then
Debug.Print "Is merged cell"
End If
Next
Next
В таблице 2x2, где ячейки 2.1 и 2.2 объединены (то есть вторая строка теперь является одной ячейкой), будет напечатано «Объединенная ячейка» дважды, поскольку внутри таблицы все еще сохраняются ячейки 2.1 и 2.2. Но это отправная точка, как указано ...