vba - Excel/VBA - 如何在字符串中每 N 个字符插入一个字符

Question

我有一份报告，导出时会在单个单元格中将订单号(始终为 7 位长)显示为单个字符串。例如:订单 1234567 和 9876543 将在单个单元格中显示为 12345679876543。每个单元格的订单数量没有上限，每个单元格的订单数都不同。

有没有办法可以每 7 位数字添加一个字符，以便之后可以在列中添加文本？​​

Answer 1

为了避免使用又长又复杂的公式，我建议使用 VBA。

将以下代码粘贴到标准模块中，然后您可以在工作表上使用如下公式:

=InsertPipe(A1,7)

<小时/>

Function InsertPipe(s As String, interval As Long)
    If interval < 1 Then Exit Function        

    Dim i As Long, result As String

    For i = 1 To Len(s) Step interval
        On Error Resume Next
        result = result & Left(s, interval) & "|"
        s = Mid(s, interval + 1, Len(s) - interval)
    Next i

    InsertPipe = Left(result, Len(result) - 1)
End Function