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

วิธียกเลิกการผสานเซลล์และเติมค่าที่ซ้ำกันใน Excel

หากคุณมีเวิร์กชีตที่มีเซลล์ที่ผสานจำนวนมากและตอนนี้คุณต้องยกเลิกการผสานและเติมค่าดั้งเดิมจากเซลล์ที่ผสานโดยอัตโนมัติตามภาพหน้าจอต่อไปนี้ คุณจะจัดการกับงานนี้อย่างรวดเร็วได้อย่างไร?

ยกเลิกการผสานเซลล์และเติมข้อมูลที่ซ้ำกันด้วยคำสั่ง Go To Special

ยกเลิกการผสานเซลล์และเติมข้อมูลที่ซ้ำกันด้วยรหัส VBA

ยกเลิกการผสานเซลล์และเติมข้อมูลที่ซ้ำกันได้ด้วยคลิกเดียว


ลูกศรสีฟ้าฟองขวา ยกเลิกการผสานเซลล์และเติมข้อมูลที่ซ้ำกันด้วยคำสั่ง Go To Special

กับ ไปที่พิเศษ คุณสามารถยกเลิกการผสานเซลล์และกรอกค่าได้ แต่วิธีนี้ค่อนข้างลำบากโปรดทำตามขั้นตอนต่อไปนี้:

1. เลือกคอลัมน์ที่ผสานเซลล์

2. คลิก หน้าแรก > ผสานและศูนย์ > ยกเลิกการผสานเซลล์. ดูภาพหน้าจอ:

3. และเซลล์ที่ผสานได้ถูกยกเลิกการผสานและมีเพียงเซลล์แรกเท่านั้นที่จะถูกเติมเต็มด้วยค่าดั้งเดิม จากนั้นเลือกช่วงอีกครั้ง

4. จากนั้นคลิก หน้าแรก > ค้นหาและเลือก > ไปที่พิเศษ. ใน ไปที่พิเศษ ใหเลือก ช่องว่าง ตัวเลือก ดูภาพหน้าจอ:

5. จากนั้นคลิก OKเลือกเซลล์ว่างทั้งหมดในช่วงแล้ว จากนั้นป้อนข้อมูล = และกด Up ปุ่มลูกศรบนแป้นพิมพ์ ดูภาพหน้าจอ:

6. จากนั้นกด Ctrl + Enter คีย์เซลล์ว่างทั้งหมดเต็มไปด้วยข้อมูลที่ผสานดั้งเดิม ดูภาพหน้าจอ:


ลูกศรสีฟ้าฟองขวา ยกเลิกการผสานเซลล์และเติมข้อมูลที่ซ้ำกันด้วยรหัส VBA

ด้วยรหัส VBA ต่อไปนี้คุณสามารถยกเลิกการผสานเซลล์และกรอกค่าได้อย่างรวดเร็ว

1. กด ALT + F11 และจะเปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางมาโครต่อไปนี้ในไฟล์ โมดูลหน้าต่าง

Sub UnMergeSameCell () 'Upadateby Extendoffice
Dim Rng As Range, xCell As Range xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox ("Range", xTitleId, WorkRng.Address, Type: = 8) Application.ScreenUpdating = False Application.DisplayAlerts = False สำหรับแต่ละ Rng ใน WorkRng ถ้า Rng.MergeCells แล้วด้วย Rng.MergeArea .UnMerge .Formula = Rng สูตรจบด้วย End If Next Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub

3. จากนั้นกดปุ่ม F5 กุญแจสำคัญในการเรียกใช้รหัสนี้กล่องโต้ตอบจะปรากฏขึ้นเพื่อเลือกช่วงที่จะใช้งานดูภาพหน้าจอ:

4. คลิก OKจากนั้นเซลล์ที่ผสานจะถูกยกเลิกการผสานและเติมค่าที่ผสานดั้งเดิมโดยอัตโนมัติ


ลูกศรสีฟ้าฟองขวา ยกเลิกการผสานเซลล์และเติมข้อมูลที่ซ้ำกันได้ด้วยคลิกเดียว

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

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

หลังจากการติดตั้ง Kutools สำหรับ Excelคุณสามารถทำได้ดังนี้:

1. เลือกคอลัมน์ที่คุณต้องการยกเลิกการผสานและกรอกข้อมูล

2. คลิก Kutools > ผสานและแยก > ยกเลิกการผสานเซลล์และเติมมูลค่าดูภาพหน้าจอ:

3. และเซลล์ที่ผสานถูกยกเลิกการผสานและเติมค่าที่ซ้ำกันในครั้งเดียว ดูภาพหน้าจอ:


ลูกศรสีฟ้าฟองขวา ยกเลิกการผสานเซลล์และเติมข้อมูลที่ซ้ำกันด้วย Kutools for Excel

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

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

ผสานแถวที่อยู่ติดกันกับข้อมูลเดียวกันใน Excel

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

🤖 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 (49)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Thanks, It really made life easier
This comment was minimized by the moderator on the site
This doesn't solve the problem with sheet that has some blank cells natively
When you find blank cells and fill with value of the cell above, you accidentally fill all the native-blank cells with unwanted values
This comment was minimized by the moderator on the site
Hello, David,
Thanks for your comment.
Yes, if you use the first method, this problem will occur, but if you want to keep the original blank cells, you'd better to use the second or third method in our article.

Please have a try, hope it can help you!
This comment was minimized by the moderator on the site
Actually there's an easy way to fix this. After step 1, find-replace blank cells with a space.
Then after step 6, find-replace cells with a space with blanks.
Could you consider adding those steps to this tutorial?
This comment was minimized by the moderator on the site
Exatamente o que queria!

Muito obrigada!
This comment was minimized by the moderator on the site
LIFE SAVER! LOVE YOU
This comment was minimized by the moderator on the site
Thanks a lot!! the best solutions
This comment was minimized by the moderator on the site
We can do this using the Broffice Sheets, you must just unmerge it and the data will automatically be repeated in the cells, since they exists before.
This comment was minimized by the moderator on the site
This is amazing. Thank you!
This comment was minimized by the moderator on the site
Thanks... loved it
This comment was minimized by the moderator on the site
The VBA code stalls when an entire columns are selected. There should be a mechanism defending against fruitless running through large loops. Apart from that it works fine.
This comment was minimized by the moderator on the site
thanks very much Saved me lot of time
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations