excel怎么给数字中间加点

在Excel中给数字中间加点的方法包括：使用公式、使用自定义格式、使用VBA宏。这些方法可以帮助您在数据处理和展示时，更加灵活和专业。

使用公式

一种常见的方法是使用Excel的公式功能。通过公式，您可以动态地生成带有分隔符的数字。

使用CONCATENATE或&符号

假设您希望在单元格A1的数字中间加点，可以使用以下公式：

=LEFT(A1,2) & "." & MID(A1,3,2) & "." & RIGHT(A1,2)

这个公式假设您的数字是六位数，并在每两个数字之间加一个点。例如，如果A1的值是123456，那么结果将是12.34.56。

使用TEXT函数

另一种方法是使用TEXT函数来格式化数字：

=TEXT(A1, "00.00.00")

这个公式将数字格式化为六位数，并在每两个数字之间加一个点。注意，这种方法同样假设您的数字是六位数。

使用自定义格式

自定义格式是一种不改变单元格内实际值的方法，它只改变显示的方式。

选中需要格式化的单元格或区域。
右键单击，选择“设置单元格格式”。
在“数字”选项卡中，选择“自定义”。
在“类型”框中输入类似以下的格式：

00"."00"."00

这个格式同样假设您的数字是六位数，并在每两个数字之间加一个点。

使用VBA宏

如果您需要处理大量数据或更加复杂的格式化，可以使用VBA宏。

创建简单的VBA宏

按ALT + F11打开VBA编辑器。
选择“插入”>“模块”。
输入以下代码：

Sub AddDots()
    Dim cell As Range
    For Each cell In Selection
        If IsNumeric(cell.Value) Then
            cell.Value = Format(cell.Value, "00.00.00")
        End If
    Next cell
End Sub

关闭VBA编辑器。
选择需要格式化的单元格，然后按ALT + F8，选择“AddDots”，点击“运行”。

使用复杂的VBA宏

如果您的数据格式更复杂，可以调整VBA代码以满足特定需求。例如，处理可变长度的数字：

Sub AddDotsVariableLength()
    Dim cell As Range
    Dim num As String
    For Each cell In Selection
        If IsNumeric(cell.Value) Then
            num = cell.Value
            cell.Value = ""
            For i = 1 To Len(num) Step 2
                cell.Value = cell.Value & Mid(num, i, 2) & "."
            Next i
            cell.Value = Left(cell.Value, Len(cell.Value) - 1) ' 去掉最后一个点
        End If
    Next cell
End Sub

使用文本编辑工具

如果您不希望使用Excel的内置功能，还可以考虑将数据导出到文本编辑器（如Notepad++），进行批量处理后再导入回Excel。这种方法适用于需要进行大量复杂替换的情况。

结论

在Excel中给数字中间加点有多种方法，每种方法都有其适用的场景和优缺点。使用公式，适用于简单、动态的需求；自定义格式，适用于不改变实际值的展示需求；VBA宏，适用于大量数据的批量处理和复杂格式化需求。根据具体情况选择最合适的方法，可以有效提升您的数据处理效率和展示效果。