Elektroda.pl
Elektroda.pl
X
Proszę, dodaj wyjątek www.elektroda.pl do Adblock.
Dzięki temu, że oglądasz reklamy, wspierasz portal i użytkowników.

Kod VBA wyszukanie powtarzalnej sekwencji i jej usunięcie

Jakub_30 22 Kwi 2016 13:01 501 4
  • #1 22 Kwi 2016 13:01
    Jakub_30
    Poziom 3  

    Witam Forumowiczów,

    mam problem z napisaniem makro, które może usuwać powtarzalne sekwencje w trzech kolumnach i jednocześnie zostawiając tę jedną sekwencję unikatową.

    Np. wygląda to tak, kolumny ABC i poziomo wiersze. Jeden raz się powtarza sekwencja 123, którą należy usunąć.

    123
    456
    789
    123
    147
    258
    369

    Proszę o pomoc.

    0 4
  • Pomocny post
    #2 22 Kwi 2016 13:21
    loopack
    Poziom 11  

    Czyli musisz wyciągnąć tylko unikalne wartości, czyli stosujesz unique, może to zadziała, a jak nie to szukaj pod "vba unique values in array"

    Sub M_snb()
    With CreateObject("scripting.dictionary")
    For Each it In Array("Banana", "Apple", "Orange", "Tomato", "Apple", "Lemon", "Lime", "Lime", "Apple")
    c00 = .Item(it)
    Next
    sn = .keys ' the array .keys contains all unique keys
    MsgBox Join(.keys, vbLf) ' you can join the array into a string
    End With
    End Sub

    0
  • #3 22 Kwi 2016 14:23
    Jakub_30
    Poziom 3  

    dobrze wiedzieć o unique,
    jednakże nie wchodzi w grę ręczne tworzenie tabeli,
    bo takich sekwencji jest tysiące.

    Oczywiście zdaję sobie sprawę, że można to efektywniej ogarnąć innym językiem programowania, ale ja muszę sobie poradzić z vba.

    0
  • #4 22 Kwi 2016 14:46
    loopack
    Poziom 11  

    To czy tabela jest ręczna, czy z automatu to nie gra roli, bo i tak w pętli ją obrobisz do unikalnej postaci

    0
  • #5 22 Kwi 2016 14:49
    Jakub_30
    Poziom 3  

    no jak nie gra roli, to super :)
    Z tym, że proponowany przez CIebie kod nie generuje tabeli z automatu.
    Proszę o rozwinięcie kodu o tę funkcję, jeśli możesz ;)

    0
  Szukaj w 5mln produktów