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

• #10860 m.zmrzlina senior tag dellfanboy #10855

  Új Válasz 2011-07-15 07:27:05 #10860

  Ú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

  

  m.zmrzlina

  senior tag

  válasz dellfanboy #10855 üzenetére

  Nekem az A1:B4000-ben vannak a változópárok amiket el kell osztani egymással, az eredmény pedig az F1:F50 tartományba illetve attól jobbra kerül.

  Sub lepopulal()
  Dim bemenoadat As Variant
  Dim eredmeny As Variant
  Dim i As Integer
  
  bemenoadat = Range("A1:B4000").Value
  eredmeny = Range("F1:EXA1").Value
  
  For i = 1 To 4000
  eredmeny(1, i) = bemenoadat(i, 1) / bemenoadat(i, 2)
  Next i
  
  Range("F1:EXA50") = eredmeny
  
  End Sub

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