จะแทนที่ตัวเลขทั้งหมดในเซลล์ด้วย X ใน Excel ได้อย่างไร
ตามภาพหน้าจอด้านล่างวิธีการแทนที่ตัวเลขทั้งหมดในเซลล์ด้วย x ใน Excel วิธีการในบทความนี้จะช่วยคุณแก้ปัญหา
แทนที่ตัวเลขทั้งหมดในเซลล์ด้วย x ด้วยรหัส VBA
แทนที่ตัวเลขทั้งหมดในเซลล์ด้วย x ด้วยรหัส VBA
รหัส VBA ต่อไปนี้สามารถช่วยคุณแทนที่ตัวเลขทั้งหมดในเซลล์ที่เลือกด้วย X ใน Excel กรุณาดำเนินการดังนี้
1. เลือกเซลล์ที่มีตัวเลขที่คุณจะแทนที่ด้วย x จากนั้นกดปุ่ม อื่น ๆ + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
2 ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างคลิก สิ่งที่ใส่เข้าไป > โมดูล. จากนั้นคัดลอกโค้ด VBA ด้านล่างลงในหน้าต่างรหัส
รหัส VBA: แทนที่ตัวเลขทั้งหมดในช่วงที่เลือกด้วย x ใน Excel
Sub ReplaceNoX()
Dim cell As Object
Dim val As String
Dim i As Integer
Dim n As String
Application.ScreenUpdating = False
For Each cell In Selection
If IsNumeric(cell.Value) Then
val = cell.Text
For i = 1 To Len(val)
n = Mid(val, i, 1)
If "0" <= n And n <= "9" Then
Mid(val, i, 1) = "x"
End If
Next
cell.Formula = val
End If
Next
Application.ScreenUpdating = True
End Sub
3 กด F5 กุญแจสำคัญในการรันโค้ด จากนั้นคุณจะเห็นตัวเลขทั้งหมดในเซลล์ที่เลือกจะถูกแทนที่ด้วย x ดังภาพด้านล่างนี้
บทความที่เกี่ยวข้อง:
- จะค้นหาและแทนที่เซลล์ว่างทั้งหมดด้วยตัวเลขหรือข้อความใน Excel ได้อย่างไร?
- วิธีแทนที่จุลภาคด้วยการขึ้นบรรทัดใหม่ (Alt + Enter) ในเซลล์ใน Excel
- จะแทนที่เส้นแบ่งด้วย br ใน Excel ได้อย่างไร
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!