Excel VBA如何为列中数字第三位后插入实际横杠（非格式设置）

方法一：VBA批量修改（实际修改单元格内容） #

这个方法会直接修改单元格文本，而非仅调整格式，完全适配后续系统上传的需求。

基础遍历版代码 #

Sub AddDashAfterThirdDigit()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim cell As Range
    
    ' 指定目标工作表，可替换为具体表名如Sheets("Sheet1")
    Set ws = ActiveSheet
    lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
    
    ' 遍历B列有效数据（从B2开始）
    For Each cell In ws.Range("B2:B" & lastRow)
        ' 仅处理长度≥3的内容
        If Len(cell.Value) >= 3 Then
            ' 拼接带"-"的新内容
            cell.Value = Left(cell.Value, 3) & "-" & Mid(cell.Value, 4)
            ' 强制设置为文本格式，避免数字自动转格式
            cell.NumberFormat = "@"
        End If
    Next cell
End Sub

大数量优化版（数组批量处理） #

如果数据量较大，用数组处理能大幅提升速度：

Sub AddDashWithArray()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim dataArr As Variant
    Dim i As Long
    
    Set ws = ActiveSheet
    lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
    ' 将数据读入数组
    dataArr = ws.Range("B2:B" & lastRow).Value
    
    ' 遍历数组处理内容
    For i = LBound(dataArr) To UBound(dataArr)
        If Len(dataArr(i, 1)) >= 3 Then
            dataArr(i, 1) = Left(dataArr(i, 1), 3) & "-" & Mid(dataArr(i, 1), 4)
        End If
    Next i
    
    ' 将处理后的数据写回单元格
    ws.Range("B2:B" & lastRow).Value = dataArr
    ' 设置文本格式
    ws.Range("B2:B" & lastRow).NumberFormat = "@"
End Sub

方法二：工作表函数（无需VBA） #

不想用VBA的话，可通过公式生成结果：在C2单元格输入以下公式，下拉填充后复制C列，右键选择「粘贴值」到B列即可。

=IF(LEN(B2)>=3,LEFT(B2,3)&"-"&MID(B2,4,100),B2)

注意事项 #

• 确保原数据为纯数字或文本格式的数字，避免特殊字符干扰
• 若原数据长度不足3位，代码和公式会保留原内容，不会添加“-”

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