-
Fototrend
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
Delila_1
veterán
válasz
Charlie Gordon #9554 üzenetére
Más felfogásban, általánosítva a sorok és oszlopok számát:
Sub Adatosszesites()
Dim w2 As Worksheet
Dim sor As Integer, sor_1 As Integer
Dim oszlop As Integer, oszlop_1 As Integer
Dim datumok As Integer, nevek As Integer
Set w2 = Worksheets(2)
Sheets(1).Select
datumok = ActiveSheet.UsedRange.Columns.Count
sor_1 = 1: oszlop_1 = 2
nevek = Range("A2").End(xlDown).Row
For sor = 2 To nevek
w2.Cells(sor_1, 1) = Cells(sor, 1)
For oszlop = 2 To datumok Step 2
w2.Cells(sor_1, oszlop_1) = Cells(1, oszlop)
w2.Cells(sor_1, oszlop_1 + 1) = Cells(sor, oszlop)
w2.Cells(sor_1, oszlop_1 + 2) = Cells(sor, oszlop + 1)
oszlop_1 = oszlop_1 + 3
Next oszlop
sor_1 = sor_1 + 1
oszlop_1 = 2
Next sor
End Sub -
perfag
aktív tag
válasz
Charlie Gordon #9554 üzenetére
Próbálkozz ezzel:
Sub cc()
Dim w As Worksheet
Set w = Worksheets(1)
Sheets(1).Select
datumok = 3 '1 sorban a dátumpárok száma
sor = 0
nevek = 3 'A oszlopban ennyi név van
For j = 1 To nevek
nev = w.Cells(j + 1, 1)
For i = 1 To datumok
datum = w.Cells(1, 1 + 2 * i - 1)
mikor = w.Cells(j + 1, 1 + 2 * i - 1)
mennyi = w.Cells(j + 1, 2 + 2 * i - 1)
Sheets(2).Select
sor = sor + 1
Cells(sor, 1) = nev
Cells(sor, 2) = datum
Cells(sor, 3) = mikor
Cells(sor, 4) = mennyi
Next i
Next j
End Sub
Új hozzászólás Aktív témák
- Mindenkire rálicitál az új Oppo kameratelefonja
- Revolut
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Hitelkártyák használata, hitelkártya visszatérítés
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- NVIDIA GeForce RTX 4060 / 4070 S/Ti/TiS (AD104/103)
- Legyártotta az első wafert a TSMC arizonai gyára az NVIDIA számára
- One otthoni szolgáltatások (TV, internet, telefon)
- Álláskeresés, interjú, önéletrajz
- További aktív témák...
- Bomba ár! Fujitsu T936 Convertible: i5-6G I 8GB I 256SSD I 13,3" FHD Touch I Cam I W10 I Gari!
- ÁRGARANCIA!Épített KomPhone Ryzen 5 7600X 32/64GB RAM RTX 5060 Ti 8GB GAMER PC termékbeszámítással
- LG 34GN850P-B - 34" Ívelt Nano IPS - 3440x1440 - 160Hz 1ms - G-Sync - FreeSync - HDR 400
- Tablet felvásárlás!! Apple iPad, iPad Mini, iPad Air, iPad Pro
- REFURBISHED és ÚJ - Lenovo ThinkPad 40AS USB-C Dock Gen2 (akár 3x4K felbontás)
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: NetGo.hu Kft.
Város: Gödöllő