"S" (insanlar neden e-postalarını en azından bir adla imzalayamıyorlar?) Bugünün sorusunu yazdı.
Excel'de bir tabloya otomatik olarak sayfa sonları koymaya çalışıyorum. Veri - Alt Toplamlar'ı denedim, ancak bu beni bir Toplam veya Sayım eklemeye zorluyor. Herhangi bir alt toplam istemiyorum, sadece A sütunundaki değer her değiştiğinde bir sayfa sonu.
Bu makro sorunu çözecektir. Bazı nedenlerden dolayı, sayfa sonlarını veya sayfa kurulumlarını değiştiren makroların çalıştırılması uzun zaman alır, ancak bu kesinlikle işlemi manuel olarak yapmaktan daha hızlı olacaktır. Makro, verilerinizin A sütununda olduğunu ve 2. satırda başladığını varsayar.
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
