Excel的計算行項目，而不是從請求宏

Question

使用一個簡單的宏計數：

Function CountItalics(r As Range) As Long 
    Dim rI As Range 
    For Each rI In r 
     CountItalics = CountItalics - rI.Font.Italic 
    Next rI 
End Function 

這並不指望斜體的數量，但不只是用斜體該小區範圍內，這意味着信息： 3 cells not merged 這將算作1

但這： 3 cells merged 將計爲3（I合併3個單元，使一個）。

Answer 1

你可以嘗試

Function CountItalics(r As Range) 
Dim rI As Range 
For Each rI In r 
     If rI.Font.Italic Then CountItalics = CountItalics + 1/rI.Cells.MergeArea.Count 
Next rI 
End Function