[已解决]工作簿里多個表間內容讀取的宏

010203400

大家好。求一個宏：
在不使用Sheets("def").select進入工作表[def]的情況下，在此表[abc]中，用宏直接讀取工作表[def]中aaa右邊的單元格內容，如果工作表[def]中沒有aaa，則偉回0。

最佳答案

月排行榜 / 总排行榜

望帝春心

2017-2-7 12:19

试试sheets("def").cells.find

跳转到最佳答案楼层

爱疯

用vlookup函数不行吗

010203400

爱疯 发表于 2017-2-7 10:07
用vlookup函数不行吗

如果只有查找這個動作，我就用函數了；
但這個是我一個宏里面的過程，因為要來回在10幾個表中去查對应的值，所在宏运行很慢。

就想着能不能有这样的方法。

爱疯

最好上传这个宏的附件，说明整个题意，不然写的代码可能得改。

这样别人容易看懂为什么要这么做，才可能有人回复。

010203400

爱疯 发表于 2017-2-7 10:23
最好上传这个宏的附件，说明整个题意，不然写的代码可能得改。

这样别人容易看懂为什么要这么做，才可能 ...

不好意思，整個宏檔案很大，并且有好多公司內部信息，不能給出來。

您可以幫忙就用附件來寫一個嗎，我可以自己改宏的。

謝謝了。

望帝春心

010203400 发表于 2017-2-7 10:34
不好意思，整個宏檔案很大，并且有好多公司內部信息，不能給出來。

您可以幫忙就用附件來寫一個嗎，我 ...

模拟部分数据上传就可以了

爱疯

不清楚意图，所以不知需写成怎样。
比如，如1楼，有2个表。

这个宏，执行后有什么效果？

望帝春心

1. Sub test()
   
2.     arr = Sheets("def").UsedRange
   
3.     brr = Sheets("abc").Cells(4, 3).CurrentRegion.Resize(, 2)
   
4.     For i = 1 To UBound(brr)
   
5.         For j = 1 To UBound(arr)
   
6.             If arr(j, 1) = brr(i, 1) Then brr(i, 2) = arr(j, 2)
   
7.         Next
   
8.     Next
   
9.     Sheets("abc").Cells(4, 3).Resize(UBound(brr), 2) = brr
   
10. End Sub

复制代码

供参考

望帝春心

1. 附件

复制代码

010203400

望帝春心 发表于 2017-2-7 11:02

您好！我試了一下，你的代碼對我有用，我已經修改好了，謝謝！

另外，如下代碼幫我看一下，說是“物件不支援此屬性或方法”，這個要如何改啊？
（我原本的想法是，在表“abc”中，不進入表“def”中，能直接得出數據，但一直不成功。）

1. 
   
2. Sub test3()
   
3. 
   
4.     Dim myQty As String
   
5. 
   
6.     If Not Sheets("def").Find(What:="aaa", LookAt:=xlWhole) Is Nothing Then myQty = 3
   
7. 
   
8. End Sub

复制代码