Kezdőlap › Fórumok › Excel programozás › [Resolved] Másolás új sorba › Hozzászólás: [Resolved] Másolás új sorba
2021-02-12-09:44
#8267
És akkor már csak egy apróság: kitöltés makróval, egy oszlopban az értékek 1-100 között, mindegyik érték szerepeljen 10x. Egyelőre sikeresen kitöltettem csak az 1-es értékkel. Azt szeretném megadni, hogy 10 darab után az értéket növelje 1-el.
Sub ID()
a = 1
For i = 2 To 1001
For j = 2 To 2
Sheets(„osszefuz”).Cells(i, j) = a
CountIf.Cells(i, j) = 10
Sheets(„osszefuz”).Cells(i, j) = a + 1
Next j
Next i
End Sub
A countif… sornál elakadtam. Kérhetek ismét segítséget?
