"S" (mengapa orang tidak bisa menandatangani email mereka dengan setidaknya nama depan?) Menulis pertanyaan hari ini.
Saya mencoba untuk secara otomatis memasukkan hentian halaman ke dalam tabel di Excel. Saya mencoba Data - Subtotal, tetapi itu memaksa saya untuk menambahkan Jumlah atau Hitungan. Saya tidak ingin subtotal apa pun, hanya hentian halaman setiap kali nilai di kolom A berubah.
Makro ini akan menyelesaikan masalah. Untuk beberapa alasan, makro yang mengubah hentian halaman atau penyetelan halaman membutuhkan waktu lama untuk dijalankan, tetapi ini pasti akan lebih cepat daripada melakukan proses secara manual. Makro mengasumsikan data Anda berada di kolom A dan dimulai di baris 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
