確定合併區域的大小

Question

對，在我們結束合併單元格之前，我也討厭它們，但我仍然要處理它們。我現在或將來都無法改變任何事情。盡我所願;）

說我有一些合併的單元格，我需要確定它跨越的單元格的數量。 說A1：A4合併，然後我需要合併單元的數量，4，返回。 有什麼辦法可以做到這一點？

Answer 1

您可以使用

Dim r As range 
Dim i As Integer 
    Set r = range("A1") 
    i = r.CurrentRegion.Count 

這會給A1：A4爲4，A1：B4爲8

Answer 2

ActiveCell.MergeArea.Count