請問如何將FORMULAR 轉寫成VBA??

cdcc

Date        Description         Amount        New Category                       
1/5/2010         PRC Salaries         71,904         Payroll in PRC                Criteria                        Type
1/5/2010        HK Salaries         92,129         Payroll in HK                PRC Salaries        Payroll in PRC
7/6/2010        EE Transfer 2010/01 73,038         Fund Transfer                HK Salaries        Payroll in HK


CELL D4  = {INDEX(G:G,LARGE(IF(ISERROR(FIND($F$5:$F$8,$B4)),0,ROW($F$5:$F$8)),1))}

因為大量DATA, 所以FORMULAR 運算速度比較慢.

請問如何判斷範圍, 作出計算?

謝謝

cdcc

最好上傳實際文件
這樣排版看不出資料位置
chin15 發表於 2011-5-11 23:03

   已經上傳文件

   希望大家幫忙解答

cdcc

回復 4# Hsieh


首先謝謝幫忙
   
但可否解釋"CreateObject("Scripting.Dictionary"這句的功能是什麼用途?

keys的功能是什麼用途?

而且那一句語法是寫 陣列{}??



謝謝.

cdcc

Sub ex()
Set d = CreateObject("Scripting.Dictionary")  '建立一個字典變數
For Each a In Range([F5], ...
Hsieh 發表於 2011-5-12 23:13

    謝謝耐心教導.