（请教高手！）单元格内字符串部分用另一个表格对应的数值代替

长春鱼鱼

有2个表格（如下，更多数据见附件）。表格1，A列每个单元格由多个数值组成,数值间用分号;隔开。每个数值前面是图片名( 如 683a97c248a1.jpg),后面是图片对应的颜色名(如193#Black),中间用::隔开.

现在需要对颜色名进行替换。
1）如果颜色名带有#，则用#后面的字符替代。（如193#Black，就变成Black）。如果这些字符有重复的（如A7中的颜色名就是重复的：都是multicolor），则在后面加上1、2、3..以示区别（A7颜色名就替换成multicolor1，multicolor2，multicolor3...）。替换后的颜色名，要求每个单词首字母大写。

2）如果颜色名都是数字（如771），则用表2中对应的属性值替换这些数字。

A列单元格内其它内容不变。替换后的结果放到B列

表格1：

原始数据

683a97c248a1.jpg::193#Black;74cd3a6e5326.jpg::29#White

d749bbdb7ecd.jpg::193#Black;f66628eb0385.jpg::200001438#Dark  Khaki;d506771a661a.jpg::496;9bfdda525a46.jpg::350852#Orange;ed350b72b061.jpg::10#Red

1ac6eb63ced3.jpg::771#beige white;1bbad586ad91.jpg::173#Blue  Red;2686b9af0873.jpg::175#green;024fbd4a83bd.jpg::10#Red  Black;42e98f76f670.jpg::29#Red White

c59cccddbd64.jpg::193;4e97d88dab3b.jpg::1052;1c911a03dcde.jpg::29

c4dc506bccd5.jpg::193#Black;bab79c6a0c34.jpg::10#Burgundy;1c8581482b1f.jpg::175#Green;8efbee97e42f.jpg::1052#Pink;4fa72246f0ef.jpg::29#White;702a16e2872a.jpg::366#Yellow

1cb597fc60b4.jpg::771#multicolor;d23ca02470bb.jpg::173#multicolor;a4db851a54bf.jpg::1254#multicolor;114fe830c85c.jpg::175#multicolor

替换后结果

683a97c248a1.jpg::Black;74cd3a6e5326.jpg::White

d749bbdb7ecd.jpg::Black;f66628eb0385.jpg::Dark  Khaki;d506771a661a.jpg::Purple;9bfdda525a46.jpg::Orange;ed350b72b061.jpg::Red

1ac6eb63ced3.jpg::Beige White;1bbad586ad91.jpg::Blue  Red;2686b9af0873.jpg::Green;024fbd4a83bd.jpg::Red Black;42e98f76f670.jpg::Red  White

c59cccddbd64.jpg::Black;4e97d88dab3b.jpg::Pink;1c911a03dcde.jpg::White

c4dc506bccd5.jpg::Black;bab79c6a0c34.jpg::Burgundy;1c8581482b1f.jpg::Green;8efbee97e42f.jpg::Pink;4fa72246f0ef.jpg::White;702a16e2872a.jpg::Yellow

1cb597fc60b4.jpg::Multicolor1;d23ca02470bb.jpg::Multicolor2;a4db851a54bf.jpg::Multicolor3;114fe830c85c.jpg::Multicolor4

表格2：

属性	对应属性值
200004889	Army Green
771	Beige
193	Black
173	Blue
365458	Brown
200004890	Dark Grey
350850	Gold
175	Green
691	Grey
200002130	Ivory
200001438	Khaki
200004891	Lavender
200003699	Multi-Color
350852	Orange
1052	Pink
496	Purple
10	Red
350853	Silver
1254	Sky Blue
29	White
366	Yellow

提提苏

193#Black变成Black

长春鱼鱼

提提苏 发表于 2015-7-14 18:41
193#Black变成Black

你这个只能解决小半的问题啊。无法满足要求阿

doitbest

Public Sub abc()
Dim ar, rep, i, ii, iii, str, tmp, d
Set d = CreateObject("Scripting.Dictionary")
ar = Range([a2], [a65536].End(3))
Set rep = CreateObject("vbscript.regexp")
rep.Global = True
For i = 1 To UBound(ar)
    rep.Pattern = "\d+#|[\w-]+\.jpg::"
    If ar(i, 1) <> "" Then
      ar(i, 1) = rep.Replace(ar(i, 1), "")
      str = Split(ar(i, 1), ";")
      For ii = 0 To UBound(str)
        str(ii) = StrConv(str(ii), 3)
        If IsNumeric(str(ii)) And Not Sheet2.[a:a].Find(str(ii), , , 1) Is Nothing Then
            str(ii) = Sheet2.[a:a].Find(str(ii), , , 1).Offset(, 1)
        End If
        d(str(ii)) = d(str(ii)) + 1
      Next
      For ii = 0 To UBound(str) - 1
        For iii = ii + 1 To UBound(str)
            If str(iii) < str(ii) Then tmp = str(ii): str(ii) = str(iii): str(iii) = tmp
        Next
      Next
      tmp = ""
      For ii = 0 To UBound(str)
          If d(str(ii)) > 1 Then
             d(str(ii) & "@") = d(str(ii) & "@") + 1
              tmp = tmp & "," & str(ii) & d(str(ii) & "@")
          Else
              tmp = tmp & "," & str(ii)
          End If
      Next
      ar(i, 1) = Right(tmp, Len(tmp) - 1)
      tmp = ""
      d.RemoveAll
    End If
Next
[b2].Resize(UBound(ar)) = ar
End Sub

长春鱼鱼

doitbest 发表于 2015-7-14 21:10
Public Sub abc()
Dim ar, rep, i, ii, iii, str, tmp, d
Set d = CreateObject("Scripting.Dictionary") ...

：：以及它前面的图片名怎么没有了阿。比如（09cee640-56c4-45f9-b7ea-683a97c248a1.jpg::Black;）给改改吧？如附件所有，左侧是函数返回值（有误），右侧才是正确的哦。

多谢！

doitbest

请参考附件

长春鱼鱼

doitbest 发表于 2015-7-15 09:29
请参考附件

能否把代码帖下阿？我不太清楚这种带按钮的，哪里可以找到代码。

我在你提供的附件中（1-157行）修改数据，得到的结果OK；但是，在后面增加数据（行158-1000），再点击按钮，结果就不对呢。见附件。

doitbest

因为你出错单元格中字符串连接是逗号，而不是多数的分号

长春鱼鱼

doitbest 发表于 2015-7-15 10:23
因为你出错单元格中字符串连接是逗号，而不是多数的分号

哎呀，是我的错。测试了下，结果Perfect!! 多谢呢。

不用贴代码给我了哈，我在附件看到了哟。

P.S. 不知道为啥，今天鲜花还没有用就没了。明天再给哦。

doitbest

可在代码前面加一条替换语句，将逗号替换为分号，就正常了