利用 excel 中VBA 按列自动替换不同字符串

xjwang115 · 发表于 2020-1-15 10:57

利用 excel 中VBA控件按列自动替换不同字符串。例如：把B列中泥岩全部替换为R03；把B列中砂质岩全部替换为R04；把B列中细砂岩全部替换为R15；把B列中粉砂岩全部替换为R12。谢谢大腕

xjwang115 · 发表于 2020-1-15 10:57

求助，谢谢

carlostevez1984 · 发表于 2020-1-15 19:28

replace 很好实现或者类似VLOOKUP 字段匹配很多种方法实在不行 IF一个个判断

carlostevez1984 · 发表于 2020-1-15 19:34

Sub htt()
i2 = 65536
      Range("b2:b" & i2).Replace "泥岩", "R03", xlPart
      Range("b2:b" & i2).Replace "砂质", "R04", xlPart
      Range("b2:b" & i2).Replace "细砂岩", "R15", xlPart
         Range("b2:b" & i2).Replace "粉砂岩", "R12", xlPart

End Sub

carlostevez1984 · 发表于 2020-1-15 19:36

注意替换顺序否则会出错

ggmmlol · 发表于 2020-1-16 08:03

把对照表中的岩层代码放在右侧，如下图所示，用VLOOKUP函数就搞定了：

xjwang115 · 发表于 2020-1-19 11:23

厉害，学习了

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

[求助] 利用 excel 中VBA 按列自动替换不同字符串