[已解决]单个单元格内 要替换多个文本怎么弄？ 求大神

Mahdi

单个单元格内 要替换多个文本怎么弄？ 求大神
没有办法上传附件 只能这样了。

例如我有一个单元格内容如下

0302，0304，0401，0307，0310，0401，0402

要把单元格内的数字内容  用公式  替换成下面数字对应的 文字内容

0302	消化内科专业
0303	神经内科专业
0304	心血管内科专业
0305	血液内科专业
0306	肾病学专业
0307	内分泌专业
0308	免疫学专业
0309	变态反应专业
0310	老年病专业
0311	其他
0312	重症监护(内科)
04	外科
0401	普通外科专业
0402	神经外科专业
0403	骨科专业

最佳答案

月排行榜 / 总排行榜

爱疯

2015-4-24 16:00

Sub Click()
    Dim A, B, d, i, j
    A = Range("c2:d" & Range("c65536").End(xlUp).Row)
    Set d = CreateObject("scripting.dictionary")
    For i = 1 To UBound(A)
        d(CStr(A(i, 1))) = A(i, 2)
    Next i

    A = Range("a1").CurrentRegion
    For i = 2 To UBound(A)
        B = VBA.Split(A(i, 1), Chr(41900))
        For j = 0 To UBound(B)
            B(j) = d(CStr(B(j)))
        Next j
        A(i, 1) = VBA.Join(B, Chr(41900))
    Next i
    [f1].Resize(UBound(A)) = A
End Sub
替换案例2.rar (20.08 KB, 下载次数: 14)

2015-4-24 16:00 上传

点击文件名下载附件

跳转到最佳答案楼层

Mahdi

因为要替换的 列里面 有很多 都是 这样的数字内容  手动 替换 太花时间了。。求大神帮忙

心正意诚身修

上傳附檔.用一般的引用公式就可以了.常用VLOOKUP.

Mahdi

心正意诚身修 发表于 2015-4-24 14:10
上傳附檔.用一般的引用公式就可以了.常用VLOOKUP.

附件点了  上传不了。。一上传就是空的。

  在单个单元格内 有多项内容要替换。。如果 用VLOOKUP  会匹配不上的吧。

Mahdi

有没有人帮忙看一下 怎么弄才行啊。。 谢谢大神们了。。 应该会用到VBA的吧。

爱疯

Sub Click()
    Dim A, B, d, i, j
    A = Range("c2:d" & Range("c65536").End(xlUp).Row)
    Set d = CreateObject("scripting.dictionary")
    For i = 1 To UBound(A)
        d(CStr(A(i, 1))) = A(i, 2)
    Next i

    A = Range("a1").CurrentRegion
    For i = 2 To UBound(A)
        B = VBA.Split(A(i, 1), Chr(41900))
        For j = 0 To UBound(B)
            B(j) = d(CStr(B(j)))
        Next j
        A(i, 1) = VBA.Join(B, Chr(41900))
    Next i
    [f1].Resize(UBound(A)) = A
End Sub
替换案例2.rar (20.08 KB, 下载次数: 14)

2015-4-24 16:00 上传

点击文件名下载附件

Mahdi

爱疯 发表于 2015-4-24 16:00
Sub Click()
    Dim A, B, d, i, j
    A = Range("c2:d" & Range("c65536").End(xlUp).Row)

感谢大神！！！{:091:}