Excel VBA替换问题：如何删除常量段及变量段前3个字符？

嘿，我来帮你捋清楚之前操作的错误，再给你几个靠谱的解决办法～

先说说你之前的问题出在哪 #

你用的###并不是Excel查找替换功能里的合法通配符哦！Excel里的通配符只有两种：

• ?：匹配单个任意字符
• *：匹配任意长度的任意字符

而且你写的Replacement:=""+###语法完全不对，Replace方法的Replacement参数只能是纯文本或者特定的替换代码（比如^&代表匹配到的内容），没法用这种方式指定要保留的部分。你的思路是想删除"abc"和后面3个字符，但用错了工具的规则～

几种可行的解决方案 #

方法1：用查找替换（通配符版） #

这是最快捷的手动操作方式：

• 选中你要处理的所有单元格
• 按下Ctrl+H打开「查找和替换」对话框
• 在「查找内容」里输入 abc???（三个?刚好匹配"abc"后面的3个任意字符）
• 「替换为」留空什么都不填
• 点击「全部替换」，就能直接把每个字符串里的"abc"和后面3个字符删掉啦，比如abc1234就会变成4。

方法2：用公式提取剩余字符 #

如果想要保留原数据，只在旁边生成处理后的结果，用公式更灵活：
假设你的数据在A列，在B1单元格输入：

=RIGHT(A1,LEN(A1)-6)

然后下拉填充公式就行。

• 解释：LEN(A1)会算出字符串的总长度，减去6是因为我们要删掉前6个字符（"abc"占3个，后面要删的变量部分占3个），最后用RIGHT函数提取剩下的字符。

方法3：用VBA批量处理 #

如果你需要经常做这个操作，写个小宏更方便：

Sub CleanABCStrings()
    Dim targetCell As Range
    ' 遍历选中的每个单元格
    For Each targetCell In Selection
        ' 先判断单元格内容是否以"abc"开头
        If Left(targetCell.Value, 3) = "abc" Then
            ' 去掉前6个字符，保留剩下的部分
            targetCell.Value = Right(targetCell.Value, Len(targetCell.Value) - 6)
        End If
    Next targetCell
End Sub

使用方法：按下Alt+F11打开VBA编辑器，插入模块，把代码粘贴进去，回到Excel选中要处理的单元格，运行这个宏就可以了。

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