Vba编程，如何保留一列单元格中的特定字段，删除其它无关字段。

zxpdd 发布于 2021-11-21 13:47， 1402 次点击

如下，将项目一个列中的内容，变成缩减后的内容

序号    缩减前                    缩减后
1        喝奶茶小鹿                 奶茶
2        吃火锅海底捞                 火锅
3        喝奶茶蜜雪冰城             奶茶
4        吃火锅大吉利                 火锅

5 回复

约定的童话2021-11-21 14:05

for i = 2 to [a65536].end(3).row
cells(i,3)=right(split(cells(i,2)," ")(0),2)
next

zxpdd2021-11-21 19:03

回复 2楼约定的童话

感谢大佬，这个特别好，又学到了一点。想问还有没有其它的方式呢，如果检索字段不是第二第三个字，能不能用奶茶，火锅去匹配，然后保留可以吗？怎么写呢？

约定的童话2021-11-22 10:23

需要建立字典匹配库
ar=[a1].currentregion
for i = 1 to ubound(ar)'装入字典
  d(ar(i,1))=""
next
for i = 2 to [a65536].end(3).row
  for k = 0 to d.count-1
    if instr(cells(i,2),d.keys()(k))>0 then cells(i,3)=d.keys()(k):exit for
  next
next

zxpdd2021-11-22 12:34

回复 3楼 zxpdd

好的谢谢哥

zwstwqq2022-01-03 16:03

好好学习中