"S" (miks inimesed ei saa oma e-postile vähemalt eesnimega alla kirjutada?) Kirjutas tänase küsimuse.
Proovin Exceli lehelõikeid automaatselt tabelisse panna. Proovisin Data - vahesummasid, kuid see sunnib mind lisama summa või loenduri. Ma ei taha vahekokkuvõtteid, vaid lehevahetust, kui A-veeru väärtus muutub.
See makro lahendab probleemi. Mingil põhjusel võtab lehekülgede katkestusi või lehtede seadistusi muutvate makrode käitamine kaua aega, kuid see on kindlasti kiirem, kui protsessi käsitsi teha. Makro eeldab, et teie andmed on veerus A ja et need algavad 2. real.
Sub AddBreaks() StartRow = 2 FinalRow = Range("A65536").End(xlUp).Row LastVal = Cells(StartRow, 1).Value For i = StartRow To FinalRow ThisVal = Cells(i, 1).Value If Not ThisVal = LastVal Then ActiveSheet.HPageBreaks.Add _ before:=Cells(i, 1) End If LastVal = ThisVal Next i End Sub
