วิธีลบแถวและคอลัมน์ที่ไม่ต้องการในแผ่นงาน Excel
( จะไม่ใช้เวลานานหากรูปลักษณ์แรกอาจแนะนำและปลอดภัย!)
มีสองแผ่นที่อ้างถึงในขั้นตอนด้านล่าง
มาเรียกแผ่นงานต้นฉบับของคุณYourOriginalSheet(แทนชื่อจริงของแผ่นงานต้นฉบับของคุณ)
ลองเรียกแผ่นงานอื่นShortSheetซึ่งจะมีสำเนาของเซลล์ที่เกี่ยวข้องเท่านั้น
(1) ในYourOriginalSheet, SelectและCopyช่วงของเซลล์ที่เกี่ยวข้อง (ไม่วางได้ทุกที่เลย)
(2) เพิ่มแผ่นใหม่ชื่อShortSheet, วางเคอร์เซอร์ในเซลล์ที่เป็นตัวแทนที่มุมบนซ้ายของช่วงการคัดลอก (อาจจะA1) และวางเพื่อต้องการ:
(2a) Paste Special...> Formulas[คลิกขวาที่เซลล์มุมบนซ้าย]
(2b) Paste Special...>Values
(2c) Paste Special...>Formats
(2d) Paste Special...>Column Widths
(2e) รวมPaste Specialตัวเลือกอื่น ๆที่คุณคิดว่าอาจช่วยทำให้แผ่นงานดูดีขึ้น
(3) กดCtrl-Shift-Endเพื่อค้นหามุมขวาล่างของShortSheetเพื่อให้แน่ใจว่ามีข้อมูลที่เกี่ยวข้องทั้งหมด
(4) Saveสมุดงาน ( Save As ...ไฟล์ใหม่หากคุณต้องการสำรองข้อมูล)
(5) ลบYourOriginalSheet(บันทึกข้อมูลที่เกี่ยวข้องในปัจจุบันShortSheet)
(6) เปลี่ยนชื่อShortSheetเป็นชื่อจริงของชีตดั้งเดิมของคุณ
ไม่มีอะไรเปลี่ยนแปลงยกเว้นการทำให้สมุดงานมีขนาดเล็กลงมากดังนั้นแมโครทั้งหมดการอ้างอิงภายนอกไปยังแผ่นงานนี้ ฯลฯ จึงควรใช้งานได้
นี่คือการmacroทำตามขั้นตอนใน (2)
Sub pasteSpecialAll()
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub
ก่อนที่จะใช้แมโครSelect และ Copyช่วงที่เกี่ยวข้องดังที่ทำในขั้นตอนที่ (1)
ฉันบันทึกแมโครไว้ในPersonal.xlsbสมุดงานของฉันเพื่อใช้ในอนาคตได้ทุกที่และกำหนดปุ่มกดCtrl + Shift + Vให้กับมัน