"S" (varför kan inte folk skriva under sina e-postmeddelanden med minst ett förnamn?) Skrev dagens fråga.
Jag försöker automatiskt placera sidbrytningar i en tabell i Excel. Jag försökte Data - Delsummor, men det tvingar mig att lägga till en summa eller ett antal. Jag vill inte ha några delsummor, bara en sidbrytning när värdet i kolumn A ändras.
Detta makro kommer att lösa problemet. Av någon anledning tar det lång tid att köra makron som ändrar sidbrytningar eller sidinställningar, men det här kommer säkert att vara snabbare än att göra processen manuellt. Makrot antar att dina data finns i kolumn A och att de börjar i rad 2.
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
