ค้นหาและแทนที่เครื่องหมายอัญประกาศเดี่ยวชั้นนำใน Excel

ฉันจะค้นหาและแทนที่อักขระ apostrophe (') ใน Excel ได้อย่างไรเมื่อเป็นอักขระแรกในเซลล์

โดยเฉพาะฉันต้องการค้นหาและแทนที่ = ลงชื่อเข้าใช้สูตรด้วย '@ จากนั้นจึงเปลี่ยนกลับเป็น = และเรียกคืนสูตรดั้งเดิมอีกครั้ง

ต่อไปนี้เป็นมาโครคู่หนึ่งที่จะมอบการทำงานที่คุณต้องการ

Sub RemoveFormulas()
   For Each r In ActiveSheet.UsedRange.Cells.SpecialCells(xlCellTypeFormulas)
      r.Value = Replace(r.Formula, "=", "'@")
   Next r
End Sub

Sub RestoreFormulas()
   Dim r As Range
   For Each r In ActiveSheet.UsedRange.Cells.SpecialCells(xlCellTypeConstants)
      If r.PrefixCharacter = "'" Then
         r.Formula = Replace(r.Value, "'@", "=")
      End If
   Next r
End Sub

แปลกมากพอที่คุณได้เลือกตัวละครที่ใช้ใน Excel เพื่อ "หลบหนี" เซลล์ อย่างไรก็ตามฉันแหย่หน่อยแล้วก็สามารถหางานทำได้ขึ้นอยู่กับขนาดไฟล์ของคุณ

หากคุณส่งออกตารางของคุณไปยังไฟล์ "ข้อความ (คั่นด้วยแท็บ)" จากนั้นนำเข้าอีกครั้งหลังจากแก้ไข = เครื่องหมายเป็น '@ มันควรนำเข้าตัวละครอีกครั้งเป็นเครื่องหมายคำพูดเดียวจริงแทนที่จะเป็นอักขระยกเว้น จากนั้นคุณควรจะสามารถเรียกใช้การค้นหาและแทนที่สำหรับ '@ ถึง =

สิ่งนี้อาจทำงานได้ตราบใดที่คุณไม่ได้ทำไฟล์ Excel ขนาดใหญ่โดยเฉพาะอย่างยิ่งหากไม่มีแผนภูมิและกราฟเป็นต้น