Excel英阿混合文本自动添加@分隔符及VBA代码修复需求

• D列手动输入混合文本：英文章节编码 + 单元编号 + 阿拉伯文描述（示例：NH7B-AV-06A-23 تم الانتهاء من العمل خلال 48 ساعه），其中NH7B是章节编码，AV-06A-23是单元编号
• C列用公式=LEFT(D7,SEARCH("-",D7)-1)提取章节编码，运行正常
• E列原公式=MID(D7,SEARCH("-",D7)+1,FIND("@",D7)-SEARCH("-",D7)-1)提取单元编号，但需要手动在D列文本的英文与阿拉伯文之间加@才能生效
• 之前的VBA代码存在两个问题：删除E列公式，且把D列全部英文文本（章节+单元）提取到E列，而非仅单元编号

解决方案 #

方案1：修复VBA代码，自动在D列添加@符号 #

原代码逻辑混乱、操作列错误，以下修正后的代码会在D列文本的英文与阿拉伯文分界处自动添加@，不破坏E列原有公式：

Sub AddAtSymbolAutomatically()
    Dim cell As Range
    Dim txt As String
    Dim splitPos As Integer
    
    '遍历D列所有非空单元格
    For Each cell In ActiveSheet.Range("D1:D" & ActiveSheet.Cells(ActiveSheet.Rows.Count, "D").End(xlUp).Row)
        txt = cell.Value
        If txt <> "" And InStr(txt, "@") = 0 Then
            splitPos = 0
            '定位第一个阿拉伯文字符的位置（阿拉伯文Unicode编码范围1536-1791）
            For i = 1 To Len(txt)
                If AscW(Mid(txt, i, 1)) >= 1536 Then
                    splitPos = i
                    Exit For
                End If
            Next i
            
            If splitPos > 0 Then
                '在英文末尾、阿拉伯文前插入@，保留原文本结构
                cell.Value = Trim(Left(txt, splitPos - 1)) & "@" & Trim(Mid(txt, splitPos))
            End If
        End If
    Next cell
End Sub

运行后，D列文本会变成NH7B-AV-06A-23@ تم الانتهاء من العمل خلال 48 ساعه，E列原公式即可正常提取单元编号。

方案2：直接用VBA提取单元编号到E列（无需@符号） #

如果不想依赖@符号，可直接用VBA提取单元编号到E列，仅更新需要处理的行，不覆盖其他公式：

Sub ExtractUnitNumber()
    Dim cell As Range
    Dim txt As String
    Dim parts() As String
    
    For Each cell In ActiveSheet.Range("D1:D" & ActiveSheet.Cells(ActiveSheet.Rows.Count, "D").End(xlUp).Row)
        txt = cell.Value
        If txt <> "" Then
            '按空格分割文本，分离出英文部分（章节+单元）
            parts = Split(Trim(txt), " ")
            If UBound(parts) >= 0 Then
                '按"-"分割英文部分，提取单元编号（从第二个元素开始拼接）
                Dim codeParts() As String
                codeParts = Split(parts(0), "-")
                If UBound(codeParts) >= 2 Then
                    Dim unitNum As String
                    unitNum = codeParts(1)
                    For i = 2 To UBound(codeParts)
                        unitNum = unitNum & "-" & codeParts(i)
                    Next i
                    '写入E列对应单元格
                    ActiveSheet.Range("E" & cell.Row).Value = unitNum
                End If
            End If
        End If
    Next cell
End Sub

这个代码会直接把AV-06A-23写入E列对应行，不用再维护@符号和E列公式。

方案3：不用VBA，用公式直接提取单元编号 #

如果不想用VBA，把E列原公式替换成以下公式，直接利用空格作为分界提取单元编号：

=MID(D7,SEARCH("-",D7)+1,SEARCH(" ",D7)-SEARCH("-",D7)-1)

前提是D列中单元编号和阿拉伯文描述之间有且仅有一个空格，这个公式就能准确提取出单元编号。

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