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

• #32156 bsasa1 csendes tag DeFranco #31836

  Új Válasz 2016-07-22 15:23:59 #32156

  Ú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

  

  bsasa1

  csendes tag

  válasz DeFranco #31836 üzenetére

  Szia!

  Bár nem hiszem, hogy már érdekes, de ha mégis, akkor ez a te mátrixodra is tud működni.
  2 sor képlete:
  Oszlopok megtalálása:
  HAHIBA(KICSI(HA(($A2:$T2)<>"";OSZLOP($A2:$T2);"");1);""), tömbképlettel, annyi, hogy az 1-est kell cserélni attól függően hányadik találatot szeretnéd.
  Mellé értékek:
  HAHIBA(INDEX($A2:$T2;;V2);"")

• #31838 bsasa1 csendes tag DeFranco #31836

  Új Válasz 2016-06-20 16:05:29 #31838

  Ú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

  

  bsasa1

  csendes tag

  válasz DeFranco #31836 üzenetére

  Szia!

  Szerintem függvénnyel maximum jópár segédoszloppal oldható meg.
  Kell mellé egy másik ugyanakkora mátrix, bele mindenhova üres képlettel, így az üres cellák IGAZ, az adatot tartalmazó cellák HAMIS értéket kapnak. Erre már rá tudsz keresni a HOL.VAN függvénnyel, de minden találat után el kell csúsztatni a hivatkozást, amiben keresel pl ELTOLÁS függvénnyel.
  Így sorban mindet meg tudod találni, de makróval szerintem egyszerűbb...

  ...közben érkezett is egy

  S.

• #31837 Delila_1 veterán DeFranco #31836

  Új Válasz 2016-06-20 15:57:26 #31837

  Ú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 DeFranco #31836 üzenetére

  Az A1:T20 (20×20-as) mátrixodhoz tedd modulba a lenti makrót, majd indítsd.

  Sub Matrixos()
Dim cella As Range, oszlop As Integer, sor As Long
Dim terulet As Range

Set terulet = Range("A1:T20")
oszlop = 21: sor = 1
For Each cella In terulet
If cella.Row > sor Then
oszlop = 21: sor = sor + 1
End If
If cella <> "" Then
Cells(cella.Row, oszlop) = cella.Address
Cells(cella.Row, oszlop + 1) = cella.Value
oszlop = oszlop + 2
End If
Next
End Sub

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