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

• #21869 PistiSan addikt Mittu88 #21868

  Új Válasz 2014-06-04 15:33:06 #21869

  Ú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

  

  PistiSan

  addikt

  válasz Mittu88 #21868 üzenetére

  Olyan 300 oszlopom van, kb 80-100 cellányi tartalommal.
  Az oszlopon belül van jó néhány cella ami üres, ezért az CTRL+SHIFT Nyil problémás.

  Rögzítettem egy excel makrót, így néz most ki.

  Sub Makró7()
  '
  ' Makró7 Makró
  '
  
  '
  Columns("P:P").Select
  ActiveSheet.Range("$P$1:$P$101").RemoveDuplicates Columns:=1, Header:=xlNo
  End Sub

  Ha átírom a "P" oszlopot mondjuk Q-ra, akkor szépen lefut ott is, de ez elég macerás, azt gondolnám hogy valami módon lehet egy változót megadni, ami mondjuk "LH"-ig megcsinálja ezt helyettem.

  Tök jó volna, ha több oszlopot kijelölve is eltávolítaná az ismétlődéseket, de sajnos nem teszi.

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