大量資料計算

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2024-12-18

2^#

發表於 2021-10-6 08:01 | 只看該作者

回復 1# oak0723-1

不好意思，看不懂您真的需求為何? 可否在詳細說明一下
建議移除您的公式這樣檔案才不會那麼大，
另外請問有較粗淺的vba陣列相關文章可以學習嗎>> 網路找一下應該很多
謝謝

帖子: 222
主題: 56
精華: 0
積分: 285
點名: 0
作業系統: window
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2010-8-30
最後登錄: 2024-4-22

論壇贊助勳章論壇榮譽勳章

3^#

發表於 2021-10-6 10:06 | 只看該作者

回復 2# samwang
你好
感謝你對我的問題關注
我怕移除我自己所寫的函數公式更會無法把問題講清楚
我的問題就是希望用巨集來完成我函數想完成的內容
只是我“資料庫“工作表的資料數量是不固定的，
“比對“工作表第三列裡的比對資料數量也是不固定
只要兩邊有資料就進行比對,比對結果是一樣的就顯示1，不一樣就顯示0,沒資料就空白

帖子: 222
主題: 56
精華: 0
積分: 285
點名: 0
作業系統: window
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2010-8-30
最後登錄: 2024-4-22

論壇贊助勳章論壇榮譽勳章

4^#

發表於 2021-10-6 12:50 | 只看該作者

回復 2# samwang

補充圖片說明

8253011.jpg (195.84 KB)

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2024-12-18

5^#

發表於 2021-10-6 14:08 | 只看該作者

回復 4# oak0723-1

請測試看看，謝謝
Sub test()
Dim Arr, Drr, Brr(), Crr(), T, T1, T2
Tm = Timer
Arr = Range([資料庫!b6], [資料庫!b65536].End(3))
Drr = Sheets("資料庫").Range("i6:ama" & UBound(Arr) + 5)
[比對!b6].Resize(UBound(Arr)) = Arr
ReDim Brr(1 To UBound(Arr), 1 To 1000)
ReDim Crr(1 To UBound(Arr), 1 To 1)
With Sheets("比對")
Arr = .Range("i3:alt3")
For i = 1 To UBound(Drr)
      Crr(i, 1) = 0
      For j = 1 To UBound(Arr, 2)
         T = Arr(1, j): T1 = Drr(i, j): T2 = Drr(i, j + 6)
         If T = "" Or T1 = "" Then Brr(i, j) = "": GoTo 99
         If T = T2 Then
            Brr(i, j) = 1: Crr(i, 1) = Crr(i, 1) + 1
         Else
               Brr(i, j) = 0
         End If
99:    Next j
Next i
.Range("h6").Resize(UBound(Crr)) = Crr
.Range("i6").Resize(UBound(Brr), UBound(Brr, 2)) = Brr
End With
MsgBox Timer - Tm
End Sub

帖子: 222
主題: 56
精華: 0
積分: 285
點名: 0
作業系統: window
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2010-8-30
最後登錄: 2024-4-22

論壇贊助勳章論壇榮譽勳章

6^#

發表於 2021-10-6 22:52 | 只看該作者

回復 5# samwang
執行結果有點怪怪的
因為
工作表"資料庫" i6儲存格=1001
工作表"比對" i3儲存格=1001,故工作表"比對" i6 儲存格應該是 1 才對,不是 0

是否我有作錯甚麼

Image 20.jpg (346.61 KB)

Image 23.jpg (212.1 KB)

1101005-比對&合計01.rar (118.41 KB)

帖子: 222
主題: 56
精華: 0
積分: 285
點名: 0
作業系統: window
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2010-8-30
最後登錄: 2024-4-22

論壇贊助勳章論壇榮譽勳章

7^#

發表於 2021-10-7 06:23 | 只看該作者

回復 6# oak0723-1

為了表達更清楚
我是用函數寫了附件檔案
這個函數檔案就是我想用vba完成的

1101005-比對&合計01-1.rar (118.9 KB)

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2024-12-18

8^#

發表於 2021-10-7 08:09 | 只看該作者

本帖最後由 samwang 於 2021-10-7 08:12 編輯

回復 7# oak0723-1

修改如下，請再測試看看，謝謝
If T = "" Or T1 = "" Then Brr(i, j) = "": GoTo 99
修改為--> If T = "" Then Brr(i, j) = "": GoTo 99
If T = T2 Then
修改為--> If T = T1 Then