एक्सेल ऑटोमैटिकली में पेज ब्रेक्स बनाना - एक्सेल टिप्स

"एस" (लोग कम से कम पहले नाम के साथ अपने ई-मेल पर हस्ताक्षर क्यों नहीं कर सकते?) ने आज का प्रश्न लिखा।

मैं एक्सेल में एक टेबल में स्वचालित रूप से पेज ब्रेक लगाने की कोशिश कर रहा हूं। मैंने डेटा - सबटोटल्स की कोशिश की, लेकिन यह मुझे एक योग या एक गिनती जोड़ने के लिए मजबूर करता है। मुझे कोई भी उप-योग नहीं चाहिए, जब भी कॉलम A में कोई परिवर्तन होता है तो बस एक पृष्ठ टूट जाता है।

यह मैक्रो समस्या का समाधान करेगा। किसी कारण से, पृष्ठ विराम या पृष्ठ सेटअप बदलने वाले मैक्रोज़ को चलने में लंबा समय लगता है, लेकिन यह निश्चित रूप से तेज़ होगा जो प्रक्रिया को मैन्युअल रूप से कर रहा है। मैक्रो मानता है कि आपका डेटा कॉलम A में है और यह पंक्ति 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