"S" (hvorfor kan ikke folk underskrive deres e-mail med mindst et fornavn?) Skrev dagens spørgsmål.
Jeg forsøger automatisk at placere sideskift i en tabel i Excel. Jeg prøvede data - subtotaler, men det tvinger mig til at tilføje et beløb eller et antal. Jeg vil ikke have nogen subtotaler, bare et sideskift, når værdien i kolonne A ændres.
Denne makro løser problemet. Af en eller anden grund tager makroer, der ændrer sideskift eller sideopsætninger, lang tid at køre, men dette vil helt sikkert være hurtigere end at udføre processen manuelt. Makroen antager, at dine data er i kolonne A, og at de starter i række 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
