Option Explicit
Sub TEST_1()
Dim Brr, Y, i&, j&, N&, T$
'↑宣告變數
Set Y = CreateObject("Scripting.Dictionary")
'↑令Y變數是 字典
Brr = Range([D1], Cells(Rows.Count, "A").End(xlUp))
'↑令Brr變數是 二維陣列,以儲存格值帶入陣列裡
For i = 2 To UBound(Brr)
'↑設順迴圈
For j = 2 To 4: T = T & Brr(i, j) & "|": Next
'↑設內順迴圈!收集字串以"|"符號間隔
If Y(T) = "" Then
'↑如果以T變數查Y字典得item是 空字元?
N = N + 1: Y(T) = "@": T = ""
'↑令N變數累加1(指定結果資料列號),
'令T變數當key,item是 "@",納入Y字典(這是要註記item不是 "")
'令T變數是 空字元(因為下個迴圈執行前要清空此變數)
For j = 1 To 4: Brr(N + 1, j) = Brr(i, j): Next
'↑設內順迴圈!將符合條件的資料逐次帶入結果列
End If
Next
[H:K].ClearContents
'↑令清除舊結果資料
[H1].Resize(N + 1, 4) = Brr
'↑令Brr陣列資料從[H1]儲存格開始寫入值
'(N+1:是因為第一列是標題列,而N的累計不包含標題列)
Set Y = Nothing: Erase Brr
'↑令釋放變數
End Sub
發表於 2023-5-10 11:43
| 
