Determinando o tamanho de uma área mesclada
-
16-09-2019 - |
Pergunta
Certo, antes de sairmos de células mescladas, eu as odeio também, mas tenho que lidar com elas de qualquer maneira. Não posso mudar nada sobre isso agora ou no futuro. Tanto quanto eu gostaria de;)
Digamos que eu tenho algumas células mescladas, preciso determinar a quantidade de células que ela abrange. Digamos A1: A4 são mesclados, então eu preciso ter o número de células mescladas, 4, retornadas. Existe alguma maneira de conseguir isso?
Solução
Você pode usar
Dim r As range
Dim i As Integer
Set r = range("A1")
i = r.CurrentRegion.Count
Isso dará A1: A4 como 4, A1: B4 como 8.
Outras dicas
ActiveCell.MergeArea.Count
Licenciado em: CC-BY-SA com atribuição
Não afiliado a StackOverflow