- 帖子
- 976
- 主題
- 7
- 精華
- 0
- 積分
- 1018
- 點名
- 0
- 作業系統
- Win10
- 軟體版本
- Office 2016
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2013-4-19
- 最後登錄
- 2026-5-26
|
各位先進好
a-i欄位是原始資料
希望在L1和M1儲存格輸入資料篩選條件
只要A-I欄位內容非空白就進行篩選
...
oak0723-1 發表於 2022-5-4 21:33 
請測試看看，謝謝
Sub test()
Dim Arr, Brr(), T$, T1$, n&, R&, i&
Arr = Range("a1").CurrentRegion
ReDim Brr(1 To UBound(Arr), 1 To 3)
T = [L1] & "|" & [M1]
For i = 2 To UBound(Arr)
T1 = Arr(i, 3) & "|" & Arr(i, 2)
If T = T1 Then
n = n + 1: If n = 1 Then R = i
Brr(n, 1) = Application.Text(Arr(i, 4), "00\:00\:00")
Brr(n, 2) = Arr(i, 5): Brr(n, 3) = Arr(i, 6)
End If
Next
If n > 0 Then
[v1].CurrentRegion.Offset(1).ClearContents
Range("n2:p" & UBound(Arr)).ClearContents
Range("n" & R).Resize(n, 3) = Brr
Range("v2").Resize(n, 3) = Brr
End If
End Sub |
|
發表於 2022-5-5 10:30
| 
