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

• #45605 Fferi50 Topikgazda p5quser #45603

  Új Válasz 2020-12-22 12:48:47 #45605

  Ú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

  

  Fferi50

  Topikgazda

  válasz p5quser #45603 üzenetére

  Szia!
  A tömböt értékadással kapod meg.
  Pl.
  Dim atomb()
atomb=Range("A1:F3").Value
'Ezután végigmész a tömb elemein sor vagy oszlop szerint. (Az első index a sor, a második az oszlop.)
'Aminek van értéke, azt beirod a soron következő cellába, az üreset pedig hagyod békén.
Dim i As Integer, j As Integer, k As Integer, m as integer
k=10:m=1 ' a 10 sor A oszlopától kezdődik a másolás
For i=1 to Ubound(atomb,1)
For j=1 to Ubound(atomb,2)
If atomb(i,j)<>"" Then
Cells(k,m).Value=atomb(i,j)
k=k+1
End If
Next j
k = k + 1: m = 1
Next i
  Üdv.

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