求助！VBA 合并包含某个字符串的单元格

juin_

假设，首先需要查找单元格区域A列中包含某个字符串"ABC"的单元格个数，并且定位。如果超过一个单元格的值为ABC，则需要将所有符合条件单元格所在行B列中的值合并在一起。请问如何实现呢？需要最快的方式。

例如，如果A列只有一个格为ABC在A3单元格，B3单元格为1，则D1单元格为1

如果A列中有三个单元格的值同为ABC，分别在A3 A9 A15单元格，B9 B15的值分别是1，4 ，9。则D1单元格的值为"1,4,9"

笑着...两年过去

1. for i=1 to [a1].end(xldown).row
   
2.     if instr(cells(i,1),"ABC")>0 then s=s & "," & cells(i,2)
   
3. next i
   
4. [d1]=mid(s,2,999)

复制代码

juin_

笑着...两年过去 发表于 2018-10-19 08:08

你好！请问一下如果我在查找的for循环中要跳过以下没有规律的行数的话，一般要怎么处理会运行的最快呢？


21
30
31
32
33
35
36
37
38
40
41
42
43
45
46
47
48
50
51
52
53
55
56
57
58
60
61
63
64
66
67
69
70
78
130
131
133
135
137
139
141
143
154
156
157
161

笑着...两年过去

juin_ 发表于 2018-10-20 19:42
你好！请问一下如果我在查找的for循环中要跳过以下没有规律的行数的话，一般要怎么处理会运行的最快呢？
...

if instr("|21|30|31|32|……","|" & i & "|")=0 then
end if