ไปยังเนื้อหาหลัก

วิธีค้นหาและแทนที่ข้อความภายในความคิดเห็นใน Excel

อย่างที่เราทราบกันดีว่ามีฟังก์ชัน Find and Replace ใน excel และด้วยฟังก์ชันนี้เราสามารถค้นหาและแทนที่เนื้อหาในเซลล์ได้อย่างรวดเร็ว แต่เราสามารถค้นหาและแทนที่เนื้อหาในความคิดเห็นใน Excel ได้หรือไม่?

ใช้รหัส VBA เพื่อค้นหาและแทนที่ข้อความภายในความคิดเห็น

ค้นหาและแทนที่ข้อความในความคิดเห็นได้อย่างรวดเร็วและง่ายดาย


ลูกศรสีฟ้าฟองขวา ใช้รหัส VBA เพื่อค้นหาและแทนที่ข้อความภายในความคิดเห็น

ใน Excel ดูเหมือนว่าไม่มีวิธีอื่นในการแก้ปัญหานี้ยกเว้นการใช้รหัส VBA คุณสามารถใช้รหัส VBA ต่อไปนี้เพื่อค้นหาและแทนที่ข้อความในความคิดเห็นทั้งหมด ตัวอย่างเช่นฉันจะแทนที่ 2011 ด้วย 2012 ในความคิดเห็นทั้งหมดใน Excel

1. คลิก ผู้พัฒนา >ของ Visual Basicใหม่ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างจะปรากฏขึ้นให้คลิก สิ่งที่ใส่เข้าไป > โมดูล จากนั้นป้อนรหัส VBA ต่อไปนี้ในโมดูล:

VBA: ค้นหาและแทนที่ข้อความในความคิดเห็นทั้งหมดใน Excel

แทนที่ย่อย
Dim cmt เป็นความคิดเห็น
Dim wks เป็นแผ่นงาน
Dim sFind เป็นสตริง
Dim s แทนที่เป็นสตริง
Dim sCmt เป็นสตริง
sFind = "2011"
sReplace = "2012"
สำหรับแต่ละสัปดาห์ใน ActiveWorkbook.Worksheets
สำหรับแต่ละ cmt ใน wks
sCmt = cmt ข้อความ
ถ้า InStr (sCmt, sFind) <> 0 แล้ว
sCmt = Application.WorksheetFunction _
แทน (sCmt, sFind, sReplace)
cmt ข้อความข้อความ: = sCmt
End If
ถัดไป
ถัดไป
ตั้งค่า wks = Nothing
ตั้งค่า cmt = ไม่มีอะไร
ย่อยสิ้นสุด

หมายเหตุ ในรหัสด้านบนคุณสามารถตั้งค่าไฟล์ ค้นหา และ s แทนที่ ตัวแปรสำหรับสิ่งที่คุณกำลังค้นหาและสิ่งที่คุณต้องการแทนที่ด้วย

2. จากนั้นคลิก dpc-แทนที่ความคิดเห็น-1 เพื่อเรียกใช้โค้ดและ 2011 ทั้งหมดในความคิดเห็นทั้งหมดจะถูกแทนที่ด้วย 2012 ในสมุดงานทั้งหมด


ลูกศรสีฟ้าฟองขวา เครื่องมือที่สะดวกในการค้นหาและแทนที่ข้อความภายในความคิดเห็นอย่างรวดเร็วและง่ายดาย

เราสามารถค้นหาและแทนที่ข้อความในความคิดเห็นทั้งหมดได้อย่างรวดเร็วด้วย Kutools สำหรับ Excel's เครื่องมือแสดงความคิดเห็นของเซลล์.

Kutools สำหรับ Excel: ด้วย Add-in ของ Excel ที่มีประโยชน์มากกว่า 300 รายการให้ทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 30 วัน Get it Now

ถ้าคุณติดตั้ง Kutools for Excel คุณสามารถค้นหาและแทนที่ข้อความในความคิดเห็นทั้งหมดใน Excel ได้อย่างง่ายดาย

1. คลิก Kutools > More > เครื่องมือแสดงความคิดเห็นของเซลล์. ดูภาพหน้าจอ:

doc-แทนที่ความคิดเห็น-2

2. ใน เครื่องมือแสดงความคิดเห็นของเซลล์ กล่องโต้ตอบ:

  • (1. ) คลิก ค้นหา / แทนที่ แท็บ;
  • (2. ) เลือกขอบเขตที่คุณต้องการใช้ยูทิลิตี้นี้คุณสามารถเลือกได้ แผ่นงานที่ใช้งานอยู่ or แผ่นงานทั้งหมด;
  • (3. ) ป้อนข้อความ (2011) ที่คุณต้องการแทนที่ลงในไฟล์ ค้นหาข้อความในความคิดเห็น และป้อนข้อความเฉพาะ (2012) ที่คุณต้องการใช้ในไฟล์ แทนที่ด้วย กล่อง.

doc-แทนที่ความคิดเห็น-3

3. จากนั้นคลิก แทนที่ ปุ่ม. 2011 ทั้งหมดจะถูกแทนที่ด้วย 2012 ภายในความคิดเห็นในแผ่นงานที่ใช้งานอยู่ ดูภาพหน้าจอ:

doc-แทนที่ความคิดเห็น-4 -2 doc-แทนที่ความคิดเห็น-5

หมายเหตุ: หากคุณเลือก แสดงสรุปจะมีกล่องแจ้งเตือนว่ามีการเปลี่ยนแปลงความคิดเห็นของเซลล์กี่รายการ

สำหรับข้อมูลเพิ่มเติมเกี่ยวกับ เครื่องมือแสดงความคิดเห็นของเซลล์กรุณาเยี่ยมชม คำอธิบายคุณลักษณะเครื่องมือแสดงความคิดเห็นของเซลล์.


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

สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน

🤖 Kutools AI ผู้ช่วย: ปฏิวัติการวิเคราะห์ข้อมูลโดยยึดตาม: การดำเนินการที่ชาญฉลาด   |  สร้างรหัส  |  สร้างสูตรที่กำหนดเอง  |  วิเคราะห์ข้อมูลและสร้างแผนภูมิ  |  เรียกใช้ฟังก์ชัน Kutools...
คุณสมบัติยอดนิยม: ค้นหา เน้น หรือระบุรายการที่ซ้ำกัน   |  ลบแถวว่าง   |  รวมคอลัมน์หรือเซลล์โดยไม่สูญเสียข้อมูล   |   รอบโดยไม่มีสูตร ...
การค้นหาขั้นสูง: VLookup หลายเกณฑ์    VLookup หลายค่า  |   VLookup ข้ามหลายแผ่น   |   การค้นหาที่ไม่ชัดเจน ....
รายการแบบเลื่อนลงขั้นสูง: สร้างรายการแบบหล่นลงอย่างรวดเร็ว   |  รายการแบบหล่นลงขึ้นอยู่กับ   |  เลือกหลายรายการแบบหล่นลง ....
ผู้จัดการคอลัมน์: เพิ่มจำนวนคอลัมน์เฉพาะ  |  ย้ายคอลัมน์  |  สลับสถานะการมองเห็นของคอลัมน์ที่ซ่อนอยู่  |  เปรียบเทียบช่วงและคอลัมน์ ...
คุณสมบัติเด่น: กริดโฟกัส   |  มุมมองการออกแบบ   |   บาร์สูตรใหญ่    สมุดงานและตัวจัดการชีต   |  ห้องสมุดทรัพยากร (ข้อความอัตโนมัติ)   |  เลือกวันที่   |  รวมแผ่นงาน   |  เข้ารหัส/ถอดรหัสเซลล์    ส่งอีเมลตามรายการ   |  ซุปเปอร์ฟิลเตอร์   |   ตัวกรองพิเศษ (กรองตัวหนา/ตัวเอียง/ขีดทับ...) ...
ชุดเครื่องมือ 15 อันดับแรก12 ข้อความ เครื่องมือ (เพิ่มข้อความ, ลบอักขระ, ... )   |   50 + แผนภูมิ ประเภท (แผนภูมิ Gantt, ... )   |   40+ ใช้งานได้จริง สูตร (คำนวณอายุตามวันเกิด, ... )   |   19 การแทรก เครื่องมือ (ใส่ QR Code, แทรกรูปภาพจากเส้นทาง, ... )   |   12 การแปลง เครื่องมือ (ตัวเลขเป็นคำ, การแปลงสกุลเงิน, ... )   |   7 ผสานและแยก เครื่องมือ (แถวรวมขั้นสูง, แยกเซลล์, ... )   |   ... และอื่น ๆ

เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา  คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...

รายละเอียด


แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I did it, change these 3 lines of the code above like below, Chr(10) is the key change:

If InStr(sCmt, Chr(10)) <> 0 Then

sCmt = Application.WorksheetFunction. _

Substitute(sCmt, Chr(10), sReplace)
This comment was minimized by the moderator on the site
I did it, change these 3 lines of the code above as below, Chr(10) is the key change!

If InStr(sCmt, Chr(10)) <> 0 Then

sCmt = Application.WorksheetFunction. _

Substitute(sCmt, Chr(10), sReplace)
This comment was minimized by the moderator on the site
How to replace line break in comments?
This comment was minimized by the moderator on the site
The above code turns the whole comment to bold. Normally only the title is bold in an Excel comment by default. The below code fixes the problem. Sub ReplaceComments() Dim cmt As Comment Dim wks As Worksheet Dim sFind As String Dim sReplace As String Dim lTitleLength As Long Dim sCmt As String sFind = "2011" sReplace = "2014" For Each wks In ActiveWorkbook.Worksheets For Each cmt In wks.Comments sCmt = cmt.Text If InStr(sCmt, sFind) 0 Then sCmt = Application.WorksheetFunction. _ Substitute(sCmt, sFind, sReplace) cmt.Text Text:=sCmt End If lTitleLength = InStr(cmt.Text, ":") With cmt.Shape.TextFrame .Characters(1, lTitleLength).Font.Bold = True .Characters(lTitleLength + 1, Len(cmt.Text)).Font.Bold = False End With Next Next Set wks = Nothing Set cmt = Nothing End Sub
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations