SORU
15 EYLÜL 2009, Salı


Yalnızca formülleri kullanarak bir Excel benzersiz değerleri elde

Excel'deki bir şekilde "" eşsiz değerler ile formül listesi ? hesaplamak için biliyor musun

E. g:bir dizi değer içerir"red","blue","red","green","blue","black"
ve sonuç olarak yapmak istiyorum"red,"blue","green","black"sonunda 2 diğer boş hücreleri.

Zaten hesaplanan sıralı bir listesini ENDEKSİ ile birlikte KÜÇÜK veya BÜYÜK olarak kullanmanın bir yolunu buldu, ama bu hesaplanmış olarak iyi, VBA KULLANMADAN yapmak istiyorum.

CEVAP
17 EYLÜL 2009, PERŞEMBE


Tamam, sana iki fikir var. Umarım bunlardan biri gitmeniz gereken yere alırsınız. İlk isteği bu çözüm çok olmadığı için bir formül olarak bunu gözardı edilir. Ben kolay yolu senin için; ^ işe yaramaz emin olun) diye düşündüm.

Gelişmiş Filtre komutunu kullanın

  1. Seçim listesi (veya herhangi bir yerde liste halinde eğer iletişim Excel listenizi başlıkları içeriyorsa ya da bilmez şikayet gelirse Tamam içinde seçiminizi koymak)
  2. Data/Gelişmiş Filtre Seçin
  3. "Listesi yerine" veya "başka bir yere Kopyala"Filtre seçin
  4. Tıklayın "yalnızca Benzersiz kayıtlar"
  5. Tamam ' ı tıklatın
  6. Yapılır. Benzersiz bir liste yeni bir yerde ya da oluşturulur. O zaman eğer diğer durumlarda işe genelleştirilmiş olabilir ki bunu yapmak için bir satır VBA komut dosyası oluşturmak için bu eylemi (el ile yukarıda listelenen adımları olmadan gibi) kaydedebilirsiniz unutmayın.

Formüller (Locksfree çözüm üzerinde hiçbir delik içeren bir liste ile sonuna kadar yapıyorum not) kullanarak

Bu çözümü aşağıdaki uyarılar ile çalışır:

  • Listesi (artan veya azalan farketmez) sıralanması gerekir. Aslında bu bitişik ama sıralama olmalı o mertebeye ulaşmak için en kolay yoludur gerekliliktir gerçekten çok doğru.
  • Üç yeni sütun (hesaplamalar ve yeni liste için yeni bir sütun için iki yeni sütunlar) gereklidir. İkinci ve üçüncü sütun kombine olabilir ama okuyucu için bir alıştırma olarak bırakıyorum.

    İşte çözüm özeti:

    1. Listedeki her öğe için, yukarıdaki yineleme sayısını hesaplamak.
    2. Benzersiz listesinde her yer için benzersiz bir sonraki öğenin dizini hesaplamak.
    3. Son olarak, dizinler yalnızca benzersiz öğeleri ile yeni bir liste oluşturmak için kullanın.

    Ve burada adım örnek bir adım

    1. Yeni bir elektronik tablo
    2. A1:a6 örnekte asıl soruya verilen girin ("", "", "", "", "", "") Siyah Mavi Yeşil Kırmızı Mavi Kırmızı
    3. Sıralama listesi: listeden seçim koyup tercihi komut.
    4. B sütununda belirtilmesi gerekmez hesaplamak:
      1. B1, girin "=IF(COUNTIF ($$1:A1,A1) = 1,0,COUNTIF(A1:$$6,A1)". Not "$" hücrede başvurular bir sonraki adım geride kalanlara doldurma) çok daha kolay hale getirecek çok önemli. "$Hücre içeriğini olduğunda kopyala/referans güncelleme olmayacak yapıştırılan böylece" mutlak bir referans gösterir güncelleyecek olan göreceli bir başvuru (farklı olarak).
      2. Geride kalanlara B doldurmak için kullanın akıllı kopya: Seçin B1. Sağ alt siyah Kare üzerine fare seçimin köşe taşı. Tıklayın ve sürükleyin listenin altına (B6). Serbest bıraktığınızda, formül, göreceli başvurular güncelleme ile B2:B6 içine kopyalanacaktır.
      3. B1:B6 değeri olmalı "0,0,1,0,0,1". Dikkat edin "1" çiftleri göstermek girdiler.

    5. C Sütunu, benzersiz öğeleri bir dizin oluşturmak:

      1. C1, girin "=Satır()". Gerçekten sadece C1 = 1 * Satır() eğer bu çözüm Listesi 1 satır başlatmak değilse bile çalışması anlamına gelir.
      2. C2, girin "=EĞER(C1 1<=SATIR($B$6), C1 1 DİZİN($B$1:$B$6,C1 1),C1 1)". "Eğer" durdurmak için kullanılan bir dizin listesinin sonuna ulaştığında üretilen #REF.
      3. Akıllı kopyalama C3:C6 doldurmak için kullanın.
      4. C1:C6 değeri "1,2,4,5,7,8"olmalıdır.

    6. D sütununa, yeni ve benzersiz bir liste oluşturmak:

      1. D1, girin "=EĞER(C1<=SATIR($A$6), DİZİN($A$1:$A$6,C1), "")". Ve, "" eğer dizin listesinin sonuna gittiğinde #REF davayı durdurmak için kullanılıyor.
      2. Akıllı kopya D2:D6 doldurmak için kullanın.
      3. D1:D6 değerleri olmalı "","","","","","". kırmızı yeşil mavi siyah

    Bu yardımcı olur umarım....

  • Bunu Paylaş:
    • Google+
    • E-Posta
    Etiketler:

    YORUMLAR

    SPONSOR VİDEO

    Rastgele Yazarlar

    • hanksranger

      hanksranger

      6 EKİM 2009
    • Matus Slovak

      Matus Slovak

      5 Temmuz 2007
    • My Name Is Jeff

      My Name Is J

      26 ŞUBAT 2008