时间戳

首页 > 解决方案 > 查找字符串，然后替换接下来的 5 个字符

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

问题描述

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

示例 Excel

标签： vba

解决方案

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

Sub main()

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

End Sub

推荐阅读