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

• #13120 Delila_1 veterán VGYke #13118

  Új Válasz 2012-03-06 15:05:50 #13120

  Ú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 VGYke #13118 üzenetére

  Mese a megjegyzésekben.

  Sub Gyomlal()
  'Az A1:A10 tartomány beírása az "eredeti" tömbbe
  eredeti = Application.Transpose(Range("A1:A10"))
  
  'Egyformák törlése az A oszlopból
  For sor = 10 To 1 Step -1
  If Application.CountIf(Columns(1), Cells(sor, 1)) > 1 Then _
  Cells(sor, 1).Delete Shift:=xlUp
  Next
  
  'A kigyomlált A1:Ax tartomány beírása az "uj" tömbbe
  usor = Range("A1").End(xlDown).Row
  uj = Application.Transpose(Range("A1:A" & usor))
  End Sub

• #13119 lapa veterán VGYke #13118

  Új Válasz 2012-03-06 14:43:29 #13119

  Ú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

  

  lapa

  veterán

  válasz VGYke #13118 üzenetére

  így definiálhatsz tömböt egy kupac cellából:

  dim coldesc(1,256)

  feltöltöd tartománnyal, hogy sokkal gyorsabb legyen minden művelet:

  coldesc = Range(Cells(2, 1), Cells(2, 256))

  vagy egyenként:

  coldesc(1,1) = "valami"

  és törlöd:

  erase coldesc

  ha ez így elég.

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