求一段格式调整的vba代码，，去除重复内容

NieC · 发表于 2024-4-5 13:08

本帖最后由 NieC 于 2024-4-5 15:53 编辑

求一段代码，把第二个重复的省份去除。目前自己想到的办法过于复杂，比如依次截取4个字符，与目标内容相同时删除，效率不高，感觉应该有更好的办法。。示例如下：

原始内容（只有前面的省份是固定的，后面内容随机。注意，实际每个地区的行数不固定，可能没有，也可能十多行）：
【江苏】内容1：xxx
【江苏】内容2：xxxxxx
【浙江】内容3：xxxxxxx
【浙江】内容4：xxxxxxxxxx
【安徽】内容5：xxxx

希望转化后的显示格式：
【江苏】
内容1：xxx
内容2：xxxxxx
【浙江】
内容3：xxxxxxx
内容4：xxxxxxxxxx
【安徽】
内容5：xxxx
还请大神指点一二，提供思路即可，感谢！~

很抱歉没有说明清楚，，原始内容是其他的代码生成的一段长字符，，所以用公式或者字典的方法不是很合适，，模拟了一下附件，还请大神们支招，谢谢~~

limonet · 发表于 2024-4-5 13:32

用公式可以，合并—textsplit—unique。

沈默00 · 发表于 2024-4-5 13:42

函数和代码都可以解决，没见附件？

沈默00 · 发表于 2024-4-5 13:55

沈默00 · 发表于 2024-4-5 13:56

结果放在F列，试一下

ykcbf1100 · 发表于 2024-4-5 15:03

用字典去重。。。
没有附件我就不参与了。

cnmlgb9998 · 发表于 2024-4-5 15:21

这种问题用PQ，不要太简单，一句代码的事。VBA 还要字典、循环，函数还要烧脑。 PQ香不？？？？？？？

NieC · 发表于 2024-4-5 15:34

cnmlgb9998 发表于 2024-4-5 15:21
这种问题用PQ，不要太简单，一句代码的事。VBA 还要字典、循环，函数还要烧脑。 PQ香不？？？？？？？

首先呢，感谢回复
其次呢，我既然发在vba区就说明这个字符串不是在sheet中的不好用公式。
这个文本已经是我窗口中自动生成的报告中的一部分，是一串文本。

NieC · 发表于 2024-4-5 15:35

limonet 发表于 2024-4-5 13:32
用公式可以，合并—textsplit—unique。

感谢回复，这个文本内容是在一个变量里，不在sheet中

NieC · 发表于 2024-4-5 15:36

ykcbf1100 发表于 2024-4-5 15:03
用字典去重。。。
没有附件我就不参与了。

感谢。因为是一个变量的内容，所以用字典还需要对字符做处理。。

		自动登录	找回密码
密码			免费注册

求一段格式调整的vba代码，，去除重复内容

评分