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

วิธีการทำซ้ำค่าเซลล์จนกว่าจะเห็นหรือถึงค่าใหม่ใน Excel

ตามภาพหน้าจอด้านซ้ายคุณจะต้องทำซ้ำค่าของเซลล์จนกว่าจะเห็นหรือถึงค่าใหม่ในคอลัมน์ใน Excel ในกรณีนี้คุณต้องทำซ้ำค่า A ในเซลล์ว่างต่อไปนี้จนกว่าจะถึงค่า B และทำซ้ำค่า B จนกว่าจะเห็นค่า C จะบรรลุได้อย่างไร? บทความนี้จะช่วยคุณ

ทำซ้ำค่าเซลล์จนกว่าจะเห็นหรือถึงค่าใหม่ด้วยสูตร
ทำซ้ำค่าเซลล์จนกว่าจะเห็นหรือถึงค่าใหม่ด้วยค่าอ้างอิงด้านบน
ทำซ้ำค่าเซลล์จนกว่าจะเห็นหรือถึงค่าใหม่ด้วยรหัส VBA
ทำซ้ำค่าเซลล์ได้อย่างง่ายดายจนกว่าจะเห็นหรือถึงค่าใหม่ด้วยการคลิกเพียงไม่กี่ครั้ง


ทำซ้ำค่าเซลล์จนกว่าจะเห็นหรือถึงค่าใหม่ด้วยสูตร

คุณสามารถใช้สูตรเพื่อทำซ้ำค่าเซลล์จนกว่าจะเห็นค่าใหม่ใน Excel กรุณาดำเนินการดังนี้

1. ในคอลัมน์ใหม่ให้เลือกเซลล์ว่างซึ่งอยู่ติดกับเซลล์ (E2) ที่คุณต้องทำซ้ำค่าจากนั้นป้อนสูตร = E2 ลงในแถบสูตรแล้วกดปุ่ม Enter ดูภาพหน้าจอ:

2. เลือกเซลล์ถัดไป (F3) ในคอลัมน์วิธีใช้ป้อนสูตร = IF (E3 = "", F2, E3) ในแถบสูตรจากนั้นกดปุ่ม เข้าสู่ กุญแจ

3. เลือกเซลล์ F3 ต่อไปลาก Fill Handle ลงเพื่อทำซ้ำค่าเซลล์ทั้งหมดจนกว่าจะเห็นค่าใหม่ ดูภาพหน้าจอ:


ทำซ้ำค่าเซลล์ได้อย่างง่ายดายจนกว่าจะถึงค่าใหม่ใน Excel:

พื้นที่ เติมเซลล์ว่าง ประโยชน์ของ Kutools สำหรับ Excel สามารถช่วยให้คุณทำซ้ำค่าเซลล์ในรายการจนกว่าจะเห็นหรือถึงค่าใหม่ใน Excel ดังภาพด้านล่างที่แสดง
ดาวน์โหลดและทดลองใช้ทันที! (30เส้นทางฟรีวัน)


ทำซ้ำค่าเซลล์จนกว่าจะเห็นหรือถึงค่าใหม่ด้วยค่าอ้างอิงด้านบน

นอกจากสูตรข้างต้นแล้วคุณสามารถเลือกเซลล์ว่างทั้งหมดในตอนแรกจากนั้นอ้างอิงค่าข้างต้นทั้งหมดเพื่อเติมเต็มเซลล์ว่างด้วยปุ่มลัด

1. เลือกคอลัมน์ที่คุณต้องการทำซ้ำค่าเซลล์จากนั้นกดปุ่ม F5 กุญแจสำคัญในการเปิด ไปที่ กล่องโต้ตอบจากนั้นคลิก พิเศษ ปุ่ม

2 ใน ไปที่พิเศษ กล่องโต้ตอบเลือกไฟล์ ช่องว่าง จากนั้นคลิกที่ OK ปุ่ม. ดูภาพหน้าจอ:

3. ตอนนี้เซลล์ว่างทั้งหมดในคอลัมน์ที่เลือกถูกเลือกแล้วโปรดใส่เครื่องหมายเท่ากับ =กดแป้นลูกศรขึ้นหนึ่งครั้งจากนั้นกดปุ่ม Ctrl + เข้าสู่ คีย์พร้อมกัน

จากนั้นคุณจะเห็นค่าเซลล์ในคอลัมน์ที่เลือกซ้ำจนกว่าจะเห็นค่าใหม่ดังภาพด้านล่าง:


ทำซ้ำค่าเซลล์จนกว่าจะเห็นหรือถึงค่าใหม่ด้วยรหัส VBA

โค้ด VBA ต่อไปนี้ยังช่วยให้คุณทำซ้ำค่าของเซลล์ได้จนกว่าจะเห็นค่าใหม่ในคอลัมน์ใดคอลัมน์หนึ่งใน Excel

1. เลือกช่วงคอลัมน์ที่คุณต้องการทำซ้ำค่าเซลล์จนกว่าจะเห็นค่าใหม่จากนั้นกด อื่น ๆ + F11 พร้อมกันเพื่อเปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

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

รหัส VBA: ทำซ้ำค่าของเซลล์จนกว่าจะเห็นค่าใหม่ใน Excel

Sub FillDown()
Dim xRng As Range
Dim xRows As Long, xCols As Long
Dim xRow As Integer, xCol As Integer
Set xRng = Selection
xCols = xRng.Columns.CountLarge
xRows = xRng.Rows.CountLarge
For xCol = 1 To xCols
  For xRow = 1 To xRows - 1
    If xRng.Cells(xRow, xCol) <> "" Then
      xRng.Cells(xRow, xCol) = xRng.Cells(xRow, xCol).Value
      If xRng.Cells(xRow + 1, xCol) = "" Then
        xRng.Cells(xRow + 1, xCol) = xRng.Cells(xRow, xCol).Value
      End If
    End If
  Next xRow
Next xCol
End Sub

3 กด F5 กุญแจสำคัญในการเรียกใช้รหัส จากนั้นเซลล์ว่างทั้งหมดในช่วงคอลัมน์ที่เลือกจะเต็มไปด้วยค่าด้านบนทันที


ทำซ้ำค่าเซลล์ได้อย่างง่ายดายจนกว่าจะเห็นหรือถึงค่าใหม่ด้วยการคลิกเพียงไม่กี่ครั้ง

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

ก่อนที่จะใช้ Kutools สำหรับ Excelโปรด ดาวน์โหลดและติดตั้งในตอนแรก.

1. เลือกช่วงคอลัมน์ที่คุณต้องการทำซ้ำค่าเซลล์จากนั้นคลิก Kutools > สิ่งที่ใส่เข้าไป > เติมเซลล์ว่าง. ดูภาพหน้าจอ:

2 ใน เติมเซลล์ว่าง กล่องโต้ตอบเลือกไฟล์ ขึ้นอยู่กับค่า ใน เติมด้วย ส่วนเลือก ลง ตัวเลือกใน Options แล้วคลิกไฟล์ OK ปุ่ม. ดูภาพหน้าจอ:

จากนั้นเซลล์ว่างทั้งหมดจะเต็มไปด้วยค่าเซลล์ด้านบนทันทีตามภาพด้านล่างที่แสดง

  หากคุณต้องการทดลองใช้ฟรี (30วัน) ของโปรแกรมอรรถประโยชน์นี้ กรุณาคลิกเพื่อดาวน์โหลดแล้วไปใช้การดำเนินการตามขั้นตอนข้างต้น


การสาธิต: ทำซ้ำค่าเซลล์ได้อย่างง่ายดายจนกว่าจะเห็นหรือเข้าถึงค่าใหม่ด้วย Kutools for Excel


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


เครื่องมือเพิ่มประสิทธิภาพการทำงานในสำนักงานที่ดีที่สุด

Kutools สำหรับ Excel แก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณได้ถึง 80%

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

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

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
ด้านล่าง officetab
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (6)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณมาก ยอดเยี่ยม
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
Dim xRow As Long, xColol As Long
หากคุณมีชุดข้อมูลขนาดใหญ่มาก
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สำหรับ Office 365 (Excel 2016) funktioniert ตายแล้ว Kutools สำหรับ Excel ใช้งานไม่ได้แล้ว ลบออกจาก Excel แล้วใช้ Excel ต่อไป
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบใจนะ. มันได้ผล
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณมาก มันใช้งานได้สมบูรณ์แบบ!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เมื่อฉันเปลี่ยนสูตรในขั้นตอนที่ 2 สำหรับเซลล์ F3 ให้เป็น =IF(E2="",F2,E2) ก็ทำงานได้อย่างสมบูรณ์
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ

ช่องทางอื่นๆ

ลิขสิทธิ์© 2009 - wwwextendoffice.com | สงวนลิขสิทธิ์. ขับเคลื่อนโดย ExtendOffice. | แผนผังเว็บไซต์
Microsoft และโลโก้ Office เป็นเครื่องหมายการค้าหรือเครื่องหมายการค้าจดทะเบียนของ Microsoft Corporation ในสหรัฐอเมริกาและ / หรือประเทศอื่น ๆ
ได้รับการปกป้องโดย Sectigo SSL