查找字符串，然后替换接下来的5个字符

Question

我需要一些VBA代码，这些代码可以在单元格的中间找到一个字符串（[EPM-BPM-），然后删除整个单元格中的最后6个字符，然后在末尾添加*。我尝试了许多不同的方法，但是没有任何效果。下面的图像说明了我的尝试。

Example Excel

Answer 1

您可以使用Replace()对象的Range方法：

Sub main()

    Range("A1", Cells(Rows.Count, 1).End(xlUp)).Replace "EPM-BPM-*]", "EPM-BPM-" & Chr(42) & "]", lookat:=xlPart

End Sub