Question

我想获取E列中每个单元格的格式属性。如果文本是每个单元格中都有一个唯一的Font.Name，Font.Size，Font.ColorIndex和Font.FontStyle。

我的问题是，在某些单元格中存在一种格式的文本，而另一种格式的文本，在这种情况下，我当前的代码似乎只是在打印第一个字符的格式。

例如在一个单元格中为abc def.，其中abc是Arial，9，黑色，Regular，而def是Calibri，18，绿色，粗体：

如何识别每个单元格中的所有格式属性？

我当前的代码如下：

Sub GetFormat()
    For i = 1 To 8
        nName = Cells(i, "E").Font.Name
        sSize = Cells(i, "E").Font.Size
        cColor = Cells(i, "E").Font.ColorIndex
        sStyle = Range("E" & i).Font.FontStyle
        Cells(i, "A") = nName
        Cells(i, "B") = sSize
        Cells(i, "C") = cColor
        Cells(i, "D") = sStyle
    Next
End Sub

Answer 1

您需要遍历每个单元格的int32集合并依次检查每个字符。

例如：

Characters

如何识别每个单元VBA中的所有格式属性？

1 个答案: