如何利用VBA執行有效數據查找功能

Day-Day · 发表于 2013-5-28 15:44

老师及大虾

Have nice day !

本人刚刚涉及VBA，很多地方还在学习中。
拜托前辈帮忙，如何利用VBA根据条件執行有效數據查找功能，详细说明如附件结果表中所见。

如何利用VBA執行有效數據查找功能.rar (12.83 KB, 下载次数: 18)

谢谢！

Day-Day · 发表于 2013-5-28 17:42

在线等待，希望老师帮帮忙。。

Day-Day · 发表于 2013-5-28 17:48

真心求助，非常急。 {:soso_e109:} Thank you for your help !

KCFONG · 发表于 2013-5-28 18:01

SEE IF HELP YOU

Day-Day · 发表于 2013-5-28 19:03

KCFONG 发表于 2013-5-28 18:01
SEE IF HELP YOU

谢谢老师，测试OK.

但是，在工作中结果表的日期是在第2行，根据老师的代码，我调试了很久，还是搞不定。

有劳老师再次帮忙修改一下新上传的附件(Thank you so much).

如何利用VBA執行有效數據查找功能 V1.rar (14.31 KB, 下载次数: 7)

Day-Day · 发表于 2013-5-28 19:19

Day-Day 发表于 2013-5-28 19:03
谢谢老师，测试OK.

但是，在工作中结果表的日期是在第2行，根据老师的代码，我调试了很久，还是搞不定 ...

拜托，真的非常急

KCFONG · 发表于 2013-5-28 19:50

Sub test()
Set DIC = CreateObject("SCRIPTING.DICTIONARY")
[A2].CurrentRegion.Offset(1, 2).ClearContents
Workbooks.Open ThisWorkbook.Path & "\数据源.xls"
RNG = Sheets("SHEET1").UsedRange
ActiveWorkbook.Close False
For R = 7 To UBound(RNG)
For C = 5 To UBound(RNG, 2)
   Y = RNG(R, 3) & RNG(6, C)
   DIC(Y) = RNG(R, C)
Next C
Next R

RNG1 = ActiveSheet.[A2].CurrentRegion

For R = 2 To UBound(RNG1)
  For C = 3 To UBound(RNG1, 2)
   Y = RNG1(R, 1) & RNG1(1, C)
   RNG1(R, C) = DIC(Y)

  Next C
Next R
ActiveSheet.[A2].CurrentRegion = RNG1
End Sub

KCFONG · 发表于 2013-5-28 19:52

please test

Day-Day · 发表于 2013-5-28 20:24

KCFONG 发表于 2013-5-28 19:52
please test

大哥，如果第一行中有数据，貌似不行哦，烦请大哥测试一下

KCFONG · 发表于 2013-5-28 22:09

UPLOAD YOUR FILE

		自动登录	找回密码
密码			免费注册

[求助] 如何利用VBA執行有效數據查找功能