51问答网 > excel vba如何实现通过表一对表二的数据进行查询与修改，表一为查询表，表二为数据库表

excel vba如何实现通过表一对表二的数据进行查询与修改，表一为查询表，表二为数据库表

2025-03-12 14:55:46

推荐回答（1个）

回答1：

i = 1
j = 1
Do While 表1.Cells(i, 1) <> ""
Do While 表2.Cells(j, 1) <> ""
k = InStr(表1.Cells(i, 1), 表2.Cells(j, 1))
If k Then 表1.Cells(i, 1) = Left(表1.Cells(i, 1), k - 1) + 表2.Cells(i, 2) + Right(表1.Cells(i, 1), Len(表1.Cells(i, 1)) - k - 1)
Exit Do
Else
End If
j = j + 1
Loop
i = i + 1
Loop
这里的表1和表2用真实的表名和文件路径替换