"S" (miért nem írhatják alá az emberek e-mailjüket legalább keresztnévvel?) Írta a mai kérdést.
Megpróbálom automatikusan feltörni az oldaltöréseket egy táblázatba az Excel programban. Kipróbáltam a Data - részösszegeket, de ez arra kényszerít, hogy adjak hozzá egy összeget vagy egy grófot. Nem akarok részösszegeket, csak egy oldaltörést, ha az A oszlop értéke megváltozik.
Ez a makró megoldja a problémát. Valamilyen oknál fogva a laptöréseket vagy az oldalbeállításokat megváltoztató makrók futtatása hosszú időt vesz igénybe, de ez minden bizonnyal gyorsabb lesz, mint a folyamat manuális elvégzése. A makró feltételezi, hogy az adatok az A oszlopban vannak, és hogy a 2. sorban kezdődnek.
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
