查看: 2114|回复: 8
如何把VLOOKUP(A1,Sheet2!A:B,2,FALSE)用VBA实现呢
直接放在表格里老是会被人弄乱的。锁起来有时候复制过来的比较麻烦
可以帮忙加个IF进去提示无此信息，请检查
Sheet1表单里B1=VLOOKUP(A1,Sheet2!A:B,2,FALSE）这样直接写在B1不好看哈，有时候直接是复制过来的，公式被覆盖了，而且在后面弄乱了或被删了都不好，，我需要隐藏在后面自动识别。有点笨
不清楚题意，建议上传excel文件。
爱疯 发表于
不清楚题意，建议上传excel文件。
16:02 上传
点击文件名下载附件
8.22 KB, 下载次数: 14
sheet1表中，B35单元格中的&无匹配&，是什么意思？
Sub test()
& & Dim d, A, i
& & Set d = CreateObject(&scripting.dictionary&)
& & A = Sheet2.Range(&a1&).CurrentRegion
& & For i = 1 To UBound(A)
& && &&&d(A(i, 1)) = A(i, 2)
& & Next i
& & A = Sheet1.Range(&A1:B& & Sheet1.Range(&a65536&).End(xlUp).Row)
& & For i = 1 To UBound(A)
& && &&&If d.exists(A(i, 1)) Then A(i, 2) = d(A(i, 1))
& & Next i
& & [a1].Resize(UBound(A), UBound(A, 2)) = A
(17.37 KB, 下载次数: 26)
16:15 上传
点击文件名下载附件
爱疯 发表于
Sub test()
& & Dim d, A, i
& & Set d = CreateObject(&scripting.dictionary&)
老师你好：
我重新弄了一下，数据颠倒了一下，帮我重新写一下，不要按钮，直接出来
16:45 上传
点击文件名下载附件
8.83 KB, 下载次数: 6
(15.89 KB, 下载次数: 50)
16:52 上传
点击文件名下载附件
改为当该工作簿被打开时，自动执行。
爱疯 发表于
改为当该工作簿被打开时，自动执行。
不能用呀，没反应呢
<font color="#0202631 发表于
不能用呀，没反应呢
你看到没反应，是因为已经执行过了
你看原来的有公式的单元格，不是已经变成值了么
Powered by12-0612-0612-0612-0612-0612-06
也许你感兴趣}