求大神帮忙写一段vba

a963 · 发表于 2024-1-8 15:14

表一中名称需要批量修改为表二中的名称，表二里a列为原名称，b列为修改后名称，需要vba实现功能：1.批量替换，a列名称逐条替换成b列名称2.替换时需要单元格内容整个替换，执行把‘苹果’替换为“富士苹果”时，只会出现苹果’替换为“富士苹果”，而“国光苹果”不能替换成“国光富士苹果”，感谢大神不吝赐教

taller · 发表于 2024-1-8 15:24

shiruiqiang · 发表于 2024-1-8 15:39

like "苹果" 就 ="富士苹果"

a963 · 发表于 2024-1-8 15:51

本帖最后由 a963 于 2024-1-8 16:01 编辑

taller 发表于 2024-1-8 15:24

抄写了一遍，为何报错呢？谢谢大神指教

taller · 发表于 2024-1-8 16:01

行末尾的下划线之前增加一个空格

taller · 发表于 2024-1-8 16:02

Sub Demo()
Dim i As Long
Dim arrData, rngData As Range
Set rngData = Sheet2.Range("A1").CurrentRegion
arrData = rngData.Value
For i = LBound(arrData) + 1 To UBound(arrData)
      If arrData(i, 1) <> arrData(i, 2) Then
         Sheet1.Cells.Replace What:=arrData(i, 1), _
         Replacement:=arrData(i, 2), LookAt:=xlWhole, _
         SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
         ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
      End If
Next i
End Sub

a963 · 发表于 2024-1-8 16:03

taller 发表于 2024-1-8 16:01
行末尾的下划线之前增加一个空格

换行符的问题搞定了，谢谢，又出来一个提示

wang-way · 发表于 2024-1-8 16:05

两个L 你怎么一个数字
ceL1

a963 · 发表于 2024-1-8 16:06

wang-way 发表于 2024-1-8 16:05
两个L 你怎么一个数字
ceL1

谢谢你

洋务德雷 · 发表于 2024-1-8 16:08

这个不需要vba的。SQL就可以了。看一下吧

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

[求助] 求大神帮忙写一段vba