วิธีลบสูตรใน Excel ด้วย VBA พร้อมรักษาค่าและรูปแบบ

ในบทความนี้จะแนะนำวิธีลบสูตรออกจากแผ่นงาน Excel โดยคงค่าและรูปแบบเดิมไว้ได้ โดยใช้ VBA จะเริ่มจากการลบสูตรจากช่วงเซลล์ที่เลือก แล้วตามด้วยการลบจากแผ่นงานทั้งหมด

VBA สำหรับลบสูตรใน Excel คงค่าและรูปแบบ (ภาพรวม)

Sub Remove_Formulas_from_Selected_Range() 
    Dim Rng As Range 
    Set Rng = Selection 
    Rng.Copy 
    Rng.PasteSpecial Paste:=xlPasteValuesAndNumberFormats 
    Application.CutCopyMode = False 
End Sub

คำอธิบายโค้ด:

• สร้าง Macro ชื่อ Remove_Formulas_from_Selected_Range
• คัดลอกค่าจากเซลล์ทั้งหมดในช่วงที่ผู้ใช้เลือก
• วางค่ากลับไปในเซลล์เดิมพร้อมรักษารูปแบบตัวเลข
• ผลลัพธ์: สูตรทั้งหมดในช่วงที่เลือกถูกลบออก เหลือเพียงค่าและรูปแบบ

2 วิธีลบสูตรใน Excel คงค่าและรูปแบบด้วย VBA

ตัวอย่างชุดข้อมูล: ชื่อพนักงาน เงินเดือนเริ่มต้น และเงินเดือนปัจจุบันของบริษัท Jupyter Group พร้อมค่าเฉลี่ย ชื่อพนักงานที่ได้เงินเดือนสูงสุดและต่ำสุด

1. VBA ลบสูตรจากช่วงเซลล์ที่เลือก

ลองลบสูตรจากข้อมูลพนักงานเท่านั้น (ช่วง B4:D13)

โค้ด VBA:

Sub Remove_Formulas_from_Selected_Range() 
    Dim Rng As Range 
    Set Rng = Selection 
    Rng.Copy 
    Rng.PasteSpecial Paste:=xlPasteValuesAndNumberFormats 
    Application.CutCopyMode = False 
End Sub

ขั้นตอนการใช้งาน:

1. บันทึกไฟล์เป็น Excel Macro-Enabled Workbook ก่อน
2. เลือกช่วงเซลล์ที่ต้องการลบสูตร (เช่น B4:D13)
3. รัน Macro ชื่อ Remove_Formulas_from_Selected_Range

ผลลัพธ์: สูตรในช่วงที่เลือกหายไป เหลือค่าและรูปแบบเดิม

2. VBA ลบสูตรจากแผ่นงานทั้งหมด

ใช้โค้ดต่อไปนี้เพื่อลบสูตรจากแผ่นงานทั้งแผ่น

โค้ด VBA:

Sub Remove_Formulas_from_the_Whole_Worksheet() 
    Sheet_Name = InputBox("Enter the Name of the Worksheet to Remove Formulas: ") 
    Dim Rng As Range 
    Set Rng = Sheets(Sheet_Name).Cells 
    Rng.Copy 
    Rng.PasteSpecial Paste:=xlPasteValuesAndNumberFormats 
    Application.CutCopyMode = False 
End Sub

ขั้นตอนการใช้งาน:

1. รัน Macro Remove_Formulas_from_the_Whole_Worksheet
2. กรอกชื่อแผ่นงานใน Input Box (เช่น Sheet2)
3. กด OK - สูตรทั้งแผ่นจะถูกลบ คงค่าและรูปแบบไว้

สังเกตสำคัญ

ใช้ตัวเลือก xlPasteValuesAndNumberFormats ซึ่งคงค่าและรูปแบบตัวเลขไว้ ขณะวางข้อมูลใน VBA ยังมีตัวเลือก Paste อื่นอีก 11 แบบ สามารถศึกษาเพิ่มเติมได้

สรุป

ด้วยวิธีเหล่านี้ คุณสามารถลบสูตรออกจากแผ่นงาน Excel ได้โดยคงค่าและรูปแบบเดิมไว้ด้วย VBA หากมีคำถาม สามารถสอบถามได้เลย

บทความเกี่ยวข้อง

• แปลงผลลัพธ์สูตรเป็นข้อความใน Excel (7 วิธี)
• นำผลลัพธ์สูตรไปไว้เซลล์อื่น (4 กรณี)
• ส่งคืนค่าเซลล์ ไม่ใช่สูตร (3 วิธี)
• แปลงสูตรเป็นค่าอัตโนมัติ (6 วิธี)
• ลบสูตรที่ซ่อนอยู่ (5 วิธี)