Определение размера объединенной области
-
16-09-2019 - |
Вопрос
Ладно, прежде чем мы перейдем к объединенным ячейкам, я их тоже ненавижу, но мне все равно приходится с ними иметь дело.Я ничего не могу изменить в этом ни сейчас, ни в будущем.Столько, сколько мне бы хотелось ;)
Допустим, у меня есть несколько объединенных ячеек, мне нужно определить количество ячеек, которые она охватывает.Допустим, A1: A4 объединены, тогда мне нужно вернуть количество объединенных ячеек 4.Есть ли какой-нибудь способ добиться этого?
Решение
Вы можете использовать
Dim r As range
Dim i As Integer
Set r = range("A1")
i = r.CurrentRegion.Count
Это даст A1: A4 как 4, A1:B4 как 8.
Другие советы
ActiveCell.MergeArea.Count
Не связан с StackOverflow