- 帖子
- 976
- 主題
- 7
- 精華
- 0
- 積分
- 1018
- 點名
- 0
- 作業系統
- Win10
- 軟體版本
- Office 2016
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2013-4-19
- 最後登錄
- 2024-4-29
|
9#
發表於 2022-5-25 11:33
| 只看該作者
回復 samwang
sam大
抱歉在更正一下，
可能是我說明不夠清楚，是將試算表科目比對參數後，
輸出參數 ...
shuo1125 發表於 2022-5-25 08:39 
更新如紅字部分，請再測試看看，謝謝
Sub test()
Dim Arr, xD, Brr(), T$, T1$, i&, n%
Set xD = CreateObject("Scripting.Dictionary")
Arr = Sheet1.[A1].CurrentRegion
For i = 2 To UBound(Arr)
T = Arr(i, 3): T1 = Arr(i, 5)
If UCase(T1) = "S" Then
xD(T) = Array(Arr(i, 4), Arr(i, 7), Arr(i, 2), Arr(i, 10))
End If
Next
Arr = Sheet2.[A1].CurrentRegion
ReDim Brr(1 To UBound(Arr), 1 To 7)
For i = 2 To UBound(Arr)
T = Arr(i, 1)
If xD.Exists(T) Then
n = n + 1: Brr(n, 3) = xD(T)(1)
Brr(n, 1) = xD(T)(2): Brr(n, 2) = xD(T)(3)
If UCase(xD(T)(0)) = "DR" Then
....
....
.... |
-
-
1.JPG
(186.15 KB)
|
