Otomatik filtreleme -,

Question

bazı isimler ile kolon A olan değişkenler üzerinden adı bir hücre (not parantez önce 2 boşluk) içinde resambles her dize dizi oluşturma: diğer sac I O

Doe, John (New York) 
Smith, Will (Philadelphia) 
Banks, Carlton (LA) 

Aynı formatta birden fazla ismin bulunduğu A sütununa sahip olmalısınız. Excel'de otomatik filtrede kullanmak için bir dizi oluşturmak istiyorum.

Tüm isimlerden geçmek için bir döngü oluşturmayı bildiğim için, diziyi uygun bir biçimde oluşturmama yardımcı olabilir misiniz?

Aşağıdakileri denedim ama işe yaramadı, filtre tüm adları gizler. Ben değişken kryterium Debug.Print zaman ben tam dize ihtiyacım olsun:

If k > 0 Then 
    kryterium = kryterium & ", " & sNameStat 
Else 
    kryterium = sNameStat 
End If 

ary = Split(kryterium, ", ") 

ActiveSheet.Range("$A$1:$A$49").AutoFilter Field:=1, Criteria1:=Array(ary), Operator:=xlFilterValues 

Answer 1

VBA kullanmak zorunda mıyım? Ayıklanan adlara bir çift ek sütun eklerim ve bu sütunlara bir veri filtresi uygularım.

Soyadı sütun: =LEFT(A1,FIND(",",A1)-1)

Önad sütun: Çok VBA seviniriz =MID(A1,LEN(B1)+3,FIND("(",A1)-3-LEN(B1))