標題:
[發問]
如何使用VBA控制進階篩選,條件內容不固定
[打印本頁]
作者:
kim223824
時間:
2016-4-28 22:03
標題:
挑選不重複的編號
大大:
問要如何挑選不重複的編號?
我試了好久只可以算出總個數,可是分不出單獨的編號,
請大大是否可以幫忙?函數或是VBA都可以。
作者:
kim223824
時間:
2016-4-28 22:46
標題:
如何使用VBA控制進階篩選,條件內容不固定
大大 請問:
如何用VBA控制進階篩選的條件列的列數(每次不固定,可能有兩個條件或三個條件)
資料來源的列數量也不固定,(每次都不同),請問如何控制?
作者:
Hsieh
時間:
2016-4-29 00:17
回復
1#
kim223824
Sub ex()
Dim A As Range, B As Range
Set A = Intersect([A1:E4], Range("A1").CurrentRegion) '準則
Set B = Range([A5:E5], [A5:E5].End(xlDown)) '資料範圍
B.AdvancedFilter xlFilterInPlace, A '原地篩選
End Sub
複製代碼
作者:
Hsieh
時間:
2016-4-29 00:42
回復
1#
kim223824
333不是應該對應2個嗎?
Sub ex()
Set d = CreateObject("Scripting.dictionary")
For Each A In Range([A4], [A4].End(xlDown))
If A.Offset(, 3) <> "" Then
If d(A.Value) = "" Then
d(A.Value) = A & ":" & "," & A.Offset(, 3)
ElseIf InStr(d(A.Value), A.Offset(, 3)) = 0 Then
d(A.Value) = d(A.Value) & "," & A.Offset(, 3)
End If
End If
Next
s = Split(Join(d.items, ","), ",")
[I1].Resize(, UBound(s) + 1) = s
End Sub
複製代碼
作者:
kim223824
時間:
2016-4-30 23:07
大大:
333是對應兩個,資料KEYIN錯誤
作者:
kim223824
時間:
2016-5-1 19:07
回復
3#
Hsieh
Hsieh大:
當我的準則跟資料範圍都是變動的,需要如何調整程式?
是將E4的"4"變成變數嗎?
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)