如何在Excel中将单个单元格内的长数字拆分为类MAC地址格式并输出多行

核心需求是将单元格内连续字符串按「每2位加冒号分隔，每4组（共8个字符）换行」的规则处理，以下是不同版本Excel的实现方案：

方案1：Excel 365/2021 版本（支持动态数组函数） #

假设原始长数据存储在A1单元格，直接在目标输出单元格输入以下公式即可：

=TEXTJOIN(CHAR(10),TRUE,BYROW(WRAPCOLS(MID(A1,SEQUENCE(LEN(A1)),1),8),LAMBDA(arr,TEXTJOIN(":",TRUE,BYROW(WRAPCOLS(arr,2),LAMBDA(p,CONCAT(p)))))))

注意：需要右键点击目标单元格→设置单元格格式→对齐→勾选「自动换行」，才能正常显示换行效果

方案2：旧版Excel（无LAMBDA函数，用辅助列实现） #

步骤如下：

• 新建辅助列B，B1单元格输入公式提取每8位字符：=MID($A$1,ROW(A1)*8-7,8)，下拉公式直到B列出现空白
• 新建辅助列C，C1单元格输入公式转换为带冒号的格式：=TEXT(B1,"00\:00\:00\:00")，下拉和B列对齐
• 全选C列所有生成的内容，复制后右键粘贴为值，再整体复制到目标单元格，开启自动换行即可

方案3：批量处理用VBA自定义函数 #

如果需要频繁处理这类需求，可以用VBA自定义函数，操作如下：

1. 按Alt+F11打开VBA编辑器，右键点击当前工作簿→插入→模块
2. 在模块编辑区粘贴以下代码：

Function SplitToMacFormat(inputRng As Range) As String
    Dim rawStr As String, resultStr As String, i As Long
    rawStr = inputRng.Value
    For i = 1 To Len(rawStr) Step 8
        Dim lineStr As String
        lineStr = Mid(rawStr, i, 8)
        '每2位插入冒号
        lineStr = Left(lineStr, 2) & ":" & Mid(lineStr, 3, 2) & ":" & Mid(lineStr, 5, 2) & ":" & Mid(lineStr, 7, 2)
        resultStr = resultStr & lineStr & vbCrLf
    Next
    '移除末尾多余的换行符
    SplitToMacFormat = Left(resultStr, Len(resultStr) - 2)
End Function

3. 回到Excel界面，在目标单元格输入=SplitToMacFormat(A1)即可，同样需要开启单元格自动换行。

内容的提问来源于stack exchange，提问作者Bakhodir Ibragimov