如何用VBA或Excel函数获取单元格自定义格式？

核心解决方法 #

VBA中可通过Range.NumberFormatLocal属性直接获取单元格的完整自定义格式字符串，这是区分不同货币格式的关键（CELL函数返回的是简化格式代码，无法区分）。

自定义函数：检查单元格是否为EUR格式 #

创建自定义函数，快速判断单元格格式是否包含[$EUR]：

Function HasEURFormat(rng As Range) As Boolean
    If InStr(1, rng.NumberFormatLocal, "[$EUR]", vbTextCompare) > 0 Then
        HasEURFormat = True
    Else
        HasEURFormat = False
    End If
End Function

使用方式：在任意单元格输入=HasEURFormat(A1)，返回TRUE则该单元格是EUR自定义格式，之后可配合SUMIF等函数计算，例如：

=SUMIF(B:B, TRUE, A:A)

（假设B列是用上述函数生成的判断结果）

VBA宏：直接计算所有EUR格式单元格的总和 #

如果需要批量处理，可使用以下宏直接计算目标单元格的总和：

Sub CalculateEURCells()
    Dim ws As Worksheet
    Dim total As Double
    Dim cell As Range
    
    Set ws = ActiveSheet ' 替换为你的目标工作表名称
    total = 0
    
    ' 遍历A列数据范围（根据实际情况调整范围）
    For Each cell In ws.Range("A1:A100")
        If InStr(1, cell.NumberFormatLocal, "[$EUR]", vbTextCompare) > 0 Then
            total = total + cell.Value
        End If
    Next cell
    
    ' 将结果输出到C1单元格，并设置为EUR格式
    ws.Range("C1").Value = total
    ws.Range("C1").NumberFormatLocal = "[$EUR ]#.##0,00"
End Sub

关键说明 #

• NumberFormatLocal返回的格式字符串与Excel界面中设置的自定义格式完全一致，能精准区分[$EUR]和[$PLN]格式；
• InStr函数用于检测格式字符串中是否包含目标标识，vbTextCompare表示不区分大小写（如需严格区分可改为vbBinaryCompare）。

内容的提问来源于stack exchange，提问作者Krešo