excel vba如何实现通过表一对表二的数据进行查询与修改，表一为查询表，表二为数据库表
发布网友
发布时间：2022-05-05 00:41
共1个回答
热心网友
时间：2023-10-02 14:06
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用真实的表名和文件路径替换追问运行提示出错，ElseI没有if
