- 帖子
- 1447
- 主題
- 40
- 精華
- 0
- 積分
- 1471
- 點名
- 0
- 作業系統
- Windows 7
- 軟體版本
- Excel 2010 & 2016
- 閱讀權限
- 50
- 性別
- 男
- 來自
- 台灣
- 註冊時間
- 2020-7-15
- 最後登錄
- 2024-12-5
|
回復 16# 准提部林
謝謝前輩
後學用比較笨的方法練習陣列與字典!
請前輩撥空指正並指導!謝謝
Option Explicit
Sub 陣列與字典練習()
Dim Arr, N&, i&, Y, A&, S, TT$
Dim B#, j&, K%, P$, Q, Ra
Set Y = CreateObject("Scripting.Dictionary")
S = Timer
[O4:AA20000].Clear
Set Y = CreateObject("Scripting.Dictionary")
Arr = Range([M4], Cells(Rows.Count, 1).End(xlUp).Offset(1))
ReDim Brr(1 To UBound(Arr), 1 To 13)
For i = 2 To UBound(Arr) - 1
TT = Arr(i, 1) & Arr(i, 4) & Arr(i, 8)
Y(A & "|" & TT & "|" & i) = i
Y(A & "|" & TT) = Y(A & "|" & TT) + 1
If Arr(i + 1, 1) = "座標" Then
A = i + 1
i = A
End If
Next
For i = 1 To UBound(Arr) - 1
If i = A Then
N = A - 1
End If
TT = Arr(i, 1) & Arr(i, 4) & Arr(i, 8)
If Y("0|" & TT) = Y(A & "|" & TT) And i <> 1 And i <> A Then
ElseIf Y("0|" & TT) > 1 Then
Y("0|" & TT) = Y("0|" & TT) - 1 '若相同!留最後一筆
ElseIf Y(A & "|" & TT) > 1 Then
Y(A & "|" & TT) = Y(A & "|" & TT) - 1 '若相同!留最後一筆
Else
N = N + 1
For j = 1 To 13
Brr(N, j) = Arr(i, j)
Next
End If
Next
With [O4:AA4].Resize(UBound(Brr))
.NumberFormatLocal = "@"
.Value = Brr
.Borders.LineStyle = 1
End With
MsgBox Timer - S & " 秒"
End Sub |
|
發表於 2022-11-1 16:18
| 