Ú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

• #21871 Mittu88 senior tag PistiSan #21869

  Új Válasz 2014-06-04 15:42:11 #21871

  Ú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

  

  Mittu88

  senior tag

  válasz PistiSan #21869 üzenetére

  Egy ciklust rakj bele.
  Ezt így be is másolhatod:

  Sub Makró7()
  '
  ' Makró7 Makró
  '

  '
  Dim i as integer 'Deklarálod, tehát létrehozod a változót

  i=0 'értékadás i változónak
  For i = 1 to 200 '1-től 200 oszlopig vizsgálja, egyesével lépked
  Columns( i ).Select 'i-edik oszlopot kiválasztja
  ActiveSheet.Range( i ).RemoveDuplicates Columns:=1, Header:=xlNo 'ezt nem tudom működni fog-e
  i = i + 1 'növeli 1-gyel i értékét, hogy a következő oszlopra lépjen
  Next 'Ciklus vége

  End Sub

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