Note: The other languages of the website are Google-translated. Back to English
English English

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

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

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

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

แท็บ Office เปิดใช้งานการแก้ไขและเรียกดูแบบแท็บใน Office และทำให้งานของคุณง่ายขึ้นมาก ...
Kutools สำหรับ Excel ช่วยแก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณได้ถึง 80%
  • ใช้ซ้ำอะไรก็ได้: เพิ่มสูตรที่ใช้มากที่สุดหรือซับซ้อนแผนภูมิและสิ่งอื่นใดในรายการโปรดของคุณและนำกลับมาใช้ใหม่ได้อย่างรวดเร็วในอนาคต
  • คุณสมบัติข้อความมากกว่า 20 รายการ: แยกหมายเลขจากสตริงข้อความ แยกหรือลบบางส่วนของข้อความ แปลงตัวเลขและสกุลเงินเป็นคำภาษาอังกฤษ
  • ผสานเครื่องมือ: สมุดงานและแผ่นงานหลายเล่มเป็นหนึ่งเดียว ผสานหลายเซลล์ / แถว / คอลัมน์โดยไม่สูญเสียข้อมูล รวมแถวและผลรวมที่ซ้ำกัน
  • แยกเครื่องมือ: แยกข้อมูลออกเป็นหลายแผ่นตามมูลค่า; สมุดงานหนึ่งเล่มเป็นไฟล์ Excel, PDF หรือ CSV หลายไฟล์ หนึ่งคอลัมน์ถึงหลายคอลัมน์
  • วางการข้าม แถวที่ซ่อน / กรอง; นับและผลรวม โดย Background Color; ส่งอีเมลส่วนบุคคลไปยังผู้รับหลายคนในกลุ่ม
  • ซุปเปอร์กรอง: สร้างโครงร่างตัวกรองขั้นสูงและใช้กับแผ่นงานใด ๆ ประเภท ตามสัปดาห์วันความถี่และอื่น ๆ กรอง by ตัวหนาสูตรคอมเม้น ...
  • คุณสมบัติที่ทรงพลังมากกว่า 300 รายการ ทำงานร่วมกับ Office 2007-2019 และ 365; รองรับทุกภาษา ใช้งานง่ายในองค์กรหรือองค์กรของคุณ

ลูกศรสีฟ้าฟองขวา ใช้รหัส 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 สำหรับ Excel ช่วยแก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณได้ถึง 80%

  • นำมาใช้ใหม่: ใส่อย่างรวดเร็ว สูตรที่ซับซ้อนแผนภูมิ และสิ่งที่คุณเคยใช้มาก่อน เข้ารหัสเซลล์ ด้วยรหัสผ่าน; สร้างรายชื่อผู้รับจดหมาย และส่งอีเมล ...
  • ซุปเปอร์ฟอร์มูล่าบาร์ (แก้ไขข้อความและสูตรหลายบรรทัดได้อย่างง่ายดาย); การอ่านเค้าโครง (อ่านและแก้ไขเซลล์จำนวนมากได้อย่างง่ายดาย); วางลงในช่วงที่กรองแล้ว...
  • ผสานเซลล์ / แถว / คอลัมน์ โดยไม่สูญเสียข้อมูล แยกเนื้อหาของเซลล์ รวมแถว / คอลัมน์ที่ซ้ำกัน... ป้องกันเซลล์ซ้ำ; เปรียบเทียบช่วง...
  • เลือกซ้ำหรือไม่ซ้ำ แถว; เลือกแถวว่าง (เซลล์ทั้งหมดว่างเปล่า); Super Find และ Fuzzy Find ในสมุดงานจำนวนมาก สุ่มเลือก ...
  • สำเนาถูกต้อง หลายเซลล์โดยไม่เปลี่ยนการอ้างอิงสูตร สร้างการอ้างอิงอัตโนมัติ ถึงหลายแผ่น ใส่สัญลักษณ์แสดงหัวข้อย่อย, กล่องกาเครื่องหมายและอื่น ๆ ...
  • แยกข้อความ, เพิ่มข้อความ, ลบตามตำแหน่ง, ลบ Space; สร้างและพิมพ์ผลรวมย่อยของเพจ แปลงระหว่างเนื้อหาของเซลล์และความคิดเห็น...
  • ซุปเปอร์ฟิลเตอร์ (บันทึกและใช้โครงร่างตัวกรองกับแผ่นงานอื่น ๆ ); การเรียงลำดับขั้นสูง ตามเดือน / สัปดาห์ / วันความถี่และอื่น ๆ ตัวกรองพิเศษ โดยตัวหนาตัวเอียง ...
  • รวมสมุดงานและแผ่นงาน; ผสานตารางตามคอลัมน์สำคัญ แยกข้อมูลออกเป็นหลายแผ่น; Batch แปลง xls, xlsx และ PDF...
  • คุณสมบัติที่ทรงพลังมากกว่า 300 รายการ. รองรับ Office / Excel 2007-2019 และ 365 รองรับทุกภาษา ใช้งานง่ายในองค์กรหรือองค์กรของคุณ ทดลองใช้ฟรี 30 วันเต็ม รับประกันคืนเงิน 60 วัน
kte แท็บ 201905

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

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มผลผลิตของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
ด้านล่าง officetab
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (4)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
โค้ดด้านบนจะเปลี่ยนความคิดเห็นทั้งหมดเป็นตัวหนา โดยปกติเฉพาะชื่อเรื่องเท่านั้นที่เป็นตัวหนาในความคิดเห็นของ Excel โดยค่าเริ่มต้น รหัสด้านล่างแก้ไขปัญหา 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 .ความคิดเห็น sCmt = cmt.Text ถ้า InStr(sCmt, sFind) 0 แล้ว sCmt = Application.WorksheetFunction _ Substitute(sCmt, sFind, sReplace) cmt.Text Text:=sCmt End If lTitleLength = InStr(cmt.Text, ":") ด้วย 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
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
จะแทนที่ตัวแบ่งบรรทัดในความคิดเห็นได้อย่างไร
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันทำแล้ว เปลี่ยนโค้ด 3 บรรทัดด้านบนนี้ตามด้านล่าง Chr(10) คือการเปลี่ยนแปลงที่สำคัญ!

ถ้า InStr(sCmt, Chr(10)) <> 0 แล้ว

sCmt = Application.WorksheetFunction _

ตัวสำรอง(sCmt, Chr(10), sReplace)
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันทำแล้ว เปลี่ยนโค้ด 3 บรรทัดด้านบนนี้ดังด้านล่าง Chr(10) คือการเปลี่ยนแปลงที่สำคัญ:

ถ้า InStr(sCmt, Chr(10)) <> 0 แล้ว

sCmt = Application.WorksheetFunction _

ตัวสำรอง(sCmt, Chr(10), sReplace)
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ