Excel计数行项目，而不是从请求的macros计数

使用一个简单的macros：

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个单元格没有合并这将计为1

但是这个： 3个单元格合并将计为3个（我合并成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