请高手看能否解决！！！

fcchl · 发表于 2010-5-22 15:20

请老师根据附件问题解决

yangrongguan · 发表于 2010-5-22 15:41

............................

name004 · 发表于 2010-5-22 16:07

4&6都给出了极好的答案，

涅磐86970 · 发表于 2010-5-22 15:27

我只会挨个if- -...其实最多才6个判断而已。。~~

name004 · 发表于 2010-5-22 15:42

需要高手vba对答案解析累加。关注！

fcchl · 发表于 2010-5-22 15:36

2楼
找出的答案有和 K 列一样。
如；A、盘活人员存量 B、优化人员结构 D、优化人员结构

youliqi · 发表于 2010-5-22 15:45

Sub test()
n = Range("a65536").End(xlUp).Row
For i = 3 To n
da = ""
bzda = Cells(i, 10)
m = Len(bzda)
For j = 1 To m
x = Mid(bzda, j, 1)
Select Case Asc(x) - 64
Case Is = 1
da = da & x & "、" & Cells(i, 4) & " "
Case Is = 2
da = da & x & "、" & Cells(i, 5) & " "
Case Is = 3
da = da & x & "、" & Cells(i, 6) & " "
Case Is = 4
da = da & x & "、" & Cells(i, 7) & " "
Case Is = 5
da = da & x & "、" & Cells(i, 8) & " "
Case Is = 6
da = da & x & "、" & Cells(i, 9) & " "
End Select
Next
Cells(i, 11) = da
Next
End Sub

复制代码

youliqi · 发表于 2010-5-22 15:49

看看运行结果

问题-多项选择.rar (9.35 KB, 下载次数: 14)

h5519306 · 发表于 2010-5-22 16:03

长公式

J3=IF(D3="","",IF(ISNUMBER(FIND(D3,$K3)),D$2,""))&IF(E3="","",IF(ISNUMBER(FIND(E3,$K3)),E$2,""))&IF(F3="","",IF(ISNUMBER(FIND(F3,$K3)),F$2,""))&IF(G3="","",IF(ISNUMBER(FIND(G3,$K3)),G$2,""))&IF(H3="","",IF(ISNUMBER(FIND(H3,$K3)),H$2,""))&IF(I3="","",IF(ISNUMBER(FIND(I3,$K3)),I$2,""))

fcchl · 发表于 2010-5-22 17:37

4楼
非常感谢！
但你的答案中有的含有“、”如何在答案后面的“、”去掉！！！

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

[原创] 请高手看能否解决！！！

浏览过的版块