如何在Excel VBA中为文本中的数字添加逗号

Sub AddCommaToNumbers()
    Dim rng As Range
    Dim cell As Range
    Dim text As String
    Dim numbers() As String
    Dim formattedNumbers() As String
    Dim i As Integer
    
    ' 选择要处理的文本范围
    Set rng = Selection
    
    ' 遍历每个单元格
    For Each cell In rng
        ' 获取单元格的文本
        text = cell.Value
        
        ' 使用正则表达式提取数字
        ' 这里使用了一个简单的正则表达式，仅适用于整数
        ' 如果需要处理小数，可以修改正则表达式
        numbers = Split(text, "[^0-9]+")
        
        ' 格式化数字并添加逗号
        ReDim formattedNumbers(0 To UBound(numbers))
        For i = 0 To UBound(numbers)
            formattedNumbers(i) = Format(CLng(numbers(i)), "#,##0")
        Next i
        
        ' 将格式化后的数字替换回原文本中的数字
        For i = 0 To UBound(numbers)
            text = Replace(text, numbers(i), formattedNumbers(i))
        Next i
        
        ' 将处理后的文本赋值回单元格
        cell.Value = text
    Next cell
End Sub