Excel VBA，计算粗体字母并给出平均值

Question

我在excel中有一个名单列表，其中一些是粗体。我必须创建一个VBA程序（宏），它给出了粗体写的名称长度的平均值。（计算名称列表中有多少字母是粗体并给出平均值）。有谁能够帮我？我真的很感激。

这是名单。

汉纳

汉纳-利萨

汉纳-玛利亚

汉纳-斯蒂娜

hannaliisa

海尔加 - 马里

海尔吉-maie

海尔吉-maret

helju-莱恩

helju - 马里

...

Answer 1

这样的事情应该适合你。

Sub AverageBold()
i = 1
j = 1
    'activate the appropriate sheet
    Sheets("Sheet1").Activate
    For Each cell In [A1:A10]
        j = j + 1
        If cell.Font.Bold = True Then i = i + 1
    Next cell
    MsgBox (i / j)
End Sub