วิธีลบแถวและคอลัมน์ที่ไม่ต้องการในแผ่นงาน 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
ให้กับมัน