"S" (mengapa orang tidak boleh menandatangani e-mel mereka dengan sekurang-kurangnya nama pertama?) Menulis soalan hari ini.
Saya cuba memasukkan pecahan halaman secara automatik ke dalam jadual di Excel. Saya mencuba Data - Subtotal, tetapi itu memaksa saya untuk menambah Jumlah atau Kiraan. Saya tidak mahu ada subtotal, hanya jeda halaman setiap kali nilai di lajur A berubah.
Makro ini akan menyelesaikan masalahnya. Untuk beberapa sebab, makro yang mengubah jeda halaman atau penyediaan halaman memerlukan masa yang lama untuk dijalankan, tetapi ini pasti akan lebih cepat melakukan proses secara manual. Makro menganggap data anda berada di lajur A dan dimulakan 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
