Új hozzászólás Aktív témák

• #21874 Delila_1 veterán PistiSan #21869

  Új Válasz 2014-06-04 16:02:40 #21874

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz PistiSan #21869 üzenetére

  Sub Egyformak_Torlese()
  Dim oszlop As Integer, uoszlop As Integer
  
  uoszlop = Range("A1").End(xlToRight).Column
  
  For oszlop = 1 To uoszlop
  Columns(oszlop).RemoveDuplicates Columns:=1, Header:=xlNo
  Next
  End Sub

Új hozzászólás Aktív témák