Determinare la dimensione di un'area fusione
-
16-09-2019 - |
Domanda
A destra, prima di scendere sulle celle unite, io li odio anche, ma ho a che fare con loro in ogni caso. Non posso cambiare nulla ora o in futuro. Per quanto mi piacerebbe;)
Dire che ho alcune celle unite, ho bisogno di determinare la quantità di cellule si estende. Di 'A1: A4 sono fusi, quindi ho bisogno di avere il numero di celle unite, 4, tornato. Esiste un modo per raggiungere questo obiettivo?
Soluzione
È possibile utilizzare
Dim r As range
Dim i As Integer
Set r = range("A1")
i = r.CurrentRegion.Count
Questo darà A1: A4 come 4, A1: B4 di 8
.Altri suggerimenti
ActiveCell.MergeArea.Count
Autorizzato sotto: CC-BY-SA insieme a attribuzione
Non affiliato a StackOverflow