[KwasneJablko]

#excel #vba

Hej,

chce wczytac Range do pamieci, usunac duplikaty z C i wypluc gdzies w "F". Doszedlem do czegos takiego ale to usuwa duplikaty odrazu w C. jak to poprawnie zrobic?

Dim lastrow As Long

lastrow = Sheets(5).Range("C65536").End(xlUp).Row

Dim name As Range

Set name = Sheets(5).Range("C2:C" & lastrow)

name.RemoveDuplicates Columns:=Array(1), Header:=xlNo

ActiveSheet.Range("F2:F" & lastrow).Value = name

[brak_nicku]

@KwasneJablko: Najprościej: najpierw skopiuj całe do F i tam usuń duplikaty.

[Polinik]

@KwasneJablko: Najprościej -- na początku kodu skopiuj najpierw C->F i dopiero na kolumnie F wykonaj resztę kodu?

[KwasneJablko]

@Polinik: @brak_nicku: taka drogo tez poszedlem ale teraz musze wkleic wynik w poziomie i chce wykonac Transponse ale jak ogarnac to zeby range byl zawsze takiej samej dlugosci?

lastrow = Sheets(5).Range("G65536").End(xlUp).Row

Range("G2:G" & lastrow).Copy
Range("I2", Cells(0, lastrow)).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True

[KwasneJablko]

@Polinik: @brak_nicku: dobra ogarnalem. dziekuje :)

[brak_nicku]

@KwasneJablko: nie wiem czy dobrze rozumiem ostatnie pytanie, ale chyba:

Range("I2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True