i = 1
j = 1
Do While 表1Cells(i, 1) <> ""
Do While 表2Cells(j, 1) <> ""
k = InStr(表1Cells(i, 1), 表2Cells(j, 1))
If k Then 表1Cells(i, 1) = Left(表1Cells(i, 1), k - 1) + 表2Cells(i, 2) + Right(表1Cells(i, 1), Len(表1Cells(i, 1)) - k - 1)
Exit Do
Else
End If
j = j + 1
Loop
i = i + 1
Loop
这里的表1和表2用真实的表名和文件路径替换
以上就是关于excel vba如何实现通过表一对表二的数据进行查询与修改,表一为查询表,表二为数据库表全部的内容,包括:excel vba如何实现通过表一对表二的数据进行查询与修改,表一为查询表,表二为数据库表、、等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)