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

วิธีแทรกแถวว่างเมื่อค่าเปลี่ยนแปลงใน Excel

สมมติว่าคุณมีช่วงของข้อมูลและตอนนี้คุณต้องการแทรกแถวว่างระหว่างข้อมูลเมื่อค่าเปลี่ยนแปลงเพื่อให้คุณสามารถแยกค่าเดียวกันตามลำดับในคอลัมน์เดียวตามภาพหน้าจอต่อไปนี้ที่แสดง ในบทความนี้ฉันจะพูดถึงเทคนิคบางอย่างสำหรับคุณในการแก้ปัญหานี้

แทรกแถวว่างเมื่อค่าเปลี่ยนแปลงด้วยฟังก์ชันผลรวมย่อย

แทรกแถวว่างเมื่อค่าเปลี่ยนแปลงด้วยคอลัมน์ตัวช่วย

แทรกแถวว่างเมื่อค่าเปลี่ยนแปลงด้วยรหัส VBA

แทรกจำนวนแถวว่างที่เฉพาะเจาะจงเมื่อค่าเปลี่ยนแปลงด้วยคุณสมบัติที่มีประสิทธิภาพ


แทรกแถวว่างเมื่อค่าเปลี่ยนแปลงด้วยฟังก์ชันผลรวมย่อย

กับ ราคาทั้งหมด คุณสามารถแทรกแถวว่างระหว่างข้อมูลเมื่อค่าเปลี่ยนแปลงตามขั้นตอนต่อไปนี้:

1. เลือกช่วงข้อมูลที่คุณต้องการใช้

2. คลิก ข้อมูล > ราคาทั้งหมด เพื่อเปิด ราคาทั้งหมด กล่องโต้ตอบและใน ราคาทั้งหมด โปรดทำตามตัวเลือกต่อไปนี้:

1: เลือกชื่อคอลัมน์ที่คุณต้องการแทรกแถวว่างตามเมื่อค่าเปลี่ยนแปลงภายใต้ ในการเปลี่ยนแปลงแต่ละครั้ง ในส่วน;
2: เลือก นับ จาก ฟังก์ชั่นการใช้งาน รายการแบบหล่นลง
3: ตรวจสอบชื่อคอลัมน์ที่คุณต้องการแทรกผลรวมย่อยในไฟล์ เพิ่มผลรวมย่อยลงใน กล่องรายการ

3. จากนั้นคลิก OKมีการแทรกบรรทัดผลรวมย่อยระหว่างผลิตภัณฑ์ต่างๆและสัญลักษณ์เค้าร่างจะแสดงที่ด้านซ้ายของตารางดูภาพหน้าจอ:

4. จากนั้นคลิกหมายเลข 2 ที่ด้านบนของสัญลักษณ์เค้าร่างเพื่อแสดงเฉพาะบรรทัดผลรวมย่อยเท่านั้น

5. จากนั้นเลือกข้อมูลช่วงผลรวมย่อยแล้วกด Alt +; ปุ่มลัดเพื่อเลือกแถวที่มองเห็นเท่านั้นดูภาพหน้าจอ:

6. หลังจากเลือกเฉพาะแถวที่มองเห็นได้แล้วให้กดปุ่ม ลบ บนแป้นพิมพ์และลบแถวผลรวมย่อยทั้งหมดแล้ว

7. จากนั้นคลิกเซลล์อื่นแล้วย้อนกลับ ข้อมูล > ยกเลิกการจัดกลุ่ม > ล้างโครงร่าง เพื่อลบโครงร่างดูภาพหน้าจอ:

8. สัญลักษณ์เค้าร่างถูกล้างในครั้งเดียวและคุณสามารถเห็นแถวว่างถูกแทรกระหว่างข้อมูลเมื่อค่าเปลี่ยนแปลงดูภาพหน้าจอ:

9. ในที่สุดคุณสามารถลบคอลัมน์ A ได้ตามต้องการ


แทรกตัวแบ่งหน้าแถวว่างขอบด้านล่างหรือเติมสีเมื่อค่าเปลี่ยนแปลงอย่างรวดเร็ว

ถ้าคุณมี Kutools สำหรับ Excel's แยกแยะความแตกต่าง คุณสามารถแทรกตัวแบ่งหน้าแถวว่างเส้นขอบด้านล่างหรือเติมสีได้อย่างรวดเร็วเมื่อค่าเปลี่ยนไปตามที่คุณต้องการ ดูการสาธิตด้านล่าง         คลิกเพื่อดาวน์โหลด Kutools for Excel!


แทรกแถวว่างเมื่อค่าเปลี่ยนแปลงด้วยคอลัมน์ตัวช่วย

ด้วยคอลัมน์ตัวช่วยคุณสามารถแทรกสูตรก่อนจากนั้นจึงใช้ ค้นหาและแทนที่ ในที่สุดฟังก์ชันแทรกแถวว่างระหว่างค่าที่เปลี่ยนแปลง โปรดดำเนินการดังนี้:

1. ในเซลล์ว่าง C3 โปรดป้อนสูตรนี้ = A3 = A2และในเซลล์ D4 ให้ป้อนสูตรนี้ = A4 = A3ดูภาพหน้าจอ:

2. จากนั้นเลือก C3: D4 แล้วลากจุดจับเติมไปยังช่วงที่คุณต้องการใช้สูตรเหล่านี้และคุณจะได้รับ จริง or เท็จ ในเซลล์ดูภาพหน้าจอ:

3. จากนั้นกด Ctrl + F คีย์เพื่อเปิด ค้นหาและแทนที่ ในกล่องโต้ตอบที่โผล่ออกมาให้ป้อน FALSE เข้าไปใน สิ่งที่ค้นหา กล่องข้อความภายใต้ หา แล้วคลิก Options เพื่อขยายกล่องโต้ตอบนี้และเลือก ความคุ้มค่า จาก มองใน รายการแบบเลื่อนลงดูภาพหน้าจอ:

4. คลิก ค้นหาทั้งหมด จากนั้นกด Ctrl + เพื่อเลือกผลลัพธ์ทั้งหมดของการค้นหาเซลล์ FALSE ทั้งหมดได้ถูกเลือกในครั้งเดียวดูภาพหน้าจอ:

6. ปิด ค้นหาและแทนที่ ขั้นตอนต่อไปคุณสามารถแทรกแถวว่างได้โดยคลิก หน้าแรก > สิ่งที่ใส่เข้าไป > แทรกแถวแผ่นงานและมีการแทรกแถวว่างลงในข้อมูลเมื่อค่าเปลี่ยนแปลงตามคอลัมน์ A ดูภาพหน้าจอ:

7. สุดท้ายคุณสามารถลบคอลัมน์ตัวช่วย C และ D ได้ตามที่คุณต้องการ


แทรกแถวว่างเมื่อค่าเปลี่ยนแปลงด้วยรหัส VBA

หากคุณเบื่อที่จะใช้วิธีการข้างต้นนี่คือโค้ดที่สามารถช่วยคุณในการแทรกแถวว่างระหว่างค่าที่เปลี่ยนแปลงพร้อมกัน

1. กด ALT + F11 คีย์เพื่อเปิด หน้าต่าง Microsoft Visual Basic for Applications.

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

รหัส VBA: แทรกแถวว่างเมื่อค่าเปลี่ยนแปลง

Sub InsertRowsAtValueChange()
'Update by Extendoffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
For i = WorkRng.Rows.Count To 2 Step -1
    If WorkRng.Cells(i, 1).Value <> WorkRng.Cells(i - 1, 1).Value Then
        WorkRng.Cells(i, 1).EntireRow.Insert
    End If
Next
Application.ScreenUpdating = True
End Sub

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

4. จากนั้นคลิก OKมีการแทรกแถวว่างระหว่างข้อมูลเมื่อค่าเปลี่ยนไปตามคอลัมน์ A


แทรกจำนวนแถวว่างที่เฉพาะเจาะจงเมื่อค่าเปลี่ยนแปลงด้วยคุณสมบัติที่มีประสิทธิภาพ

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

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

หลังจากการติดตั้ง Kutools สำหรับ Excelโปรดทำตามนี้:

1. คลิก Kutools > รูปแบบ > แยกแยะความแตกต่างดูภาพหน้าจอ:

2. ใน แยกแยะความแตกต่างตามคอลัมน์หลัก โปรดดำเนินการดังต่อไปนี้:

  • เลือกช่วงข้อมูลที่คุณต้องการใช้จากนั้นเลือกคอลัมน์หลักที่คุณต้องการแทรกแถวว่างตาม
  • จากนั้นตรวจสอบ แถวว่าง ตัวเลือกจาก Options และป้อนจำนวนแถวว่างที่คุณต้องการแทรก

3. จากนั้นคลิก Ok และจำนวนแถวว่างที่ระบุได้ถูกแทรกลงในข้อมูลหากค่าของเซลล์เปลี่ยนแปลงโปรดดูภาพหน้าจอ:

คลิกเพื่อดาวน์โหลด Kutools สำหรับ 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
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (16)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันมีคอลัมน์ที่มีตัวเลข 5,4,3,2 และ 1 (จำนวนมาก) และฉันต้องการแยก Fives ออกจากส่วนอื่นๆ เช่น 5 5 5 4 3 2 1 5 5 5 5 5 4 3 2 1 ตัวเลขเรียงตามลำดับและมีสี่ด้านล่างห้าเสมอ ดังนั้นฉันจึงลอง: Sub InsertRowsAtValueChange() 'Update 20140716 Dim Rng As Range Dim WorkRng As Range On Error Resume Next xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection ตั้งค่า WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8) Application.ScreenUpdating = False For i = WorkRng.Rows.Count To 2 Step -1 If WorkRng.Cells(i, 1) ค่า = 5 และ WorkRng.Cells(i - 1, 1).Value = 4 จากนั้น WorkRng.Cells(i, 1).EntireRow.Insert End If Next Application.ScreenUpdating = True End Sub แต่มันไม่ทำงาน คุณสามารถช่วยฉันได้ไหม?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สูตรนี้ใช้ได้ผลดี แต่มีบางตัวอย่างที่ไม่รู้จัก
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณมาก ดูทุกที่และนี่เป็นวิธีแก้ปัญหาเดียวที่ใช้ได้ผลสำหรับฉันที่เป็นภาษาอังกฤษธรรมดาด้วย เว็บไซต์บทช่วยสอน Excel อื่นๆ ทั้งหมดไม่ได้แยกย่อยทีละขั้นตอนตามแบบที่คุณทำ ขอบคุณมาก ไชโย :)
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณมากสำหรับการอธิบายวิธีแก้ปัญหาหลายอย่างสำหรับปัญหา ฉันใช้ Visual Basic และเปลี่ยน [quote]WorkRng.Cells(i, 1).EntireRow.Insert[/quote] ด้วย [quote]With WorkRng.Cells(i, 1).EntireRow.Borders(xlEdgeTop) .LineStyle = xlContinuous .ColorIndex = xlAutomatic .TintAndShade = 0 .Weight = xlMedium End With[/quote] วิธีนี้จะวาดเส้นระหว่างแถวด้วยค่าที่เปลี่ยนไปแทนที่จะเป็นบรรทัดว่าง
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ในโค้ดที่ฉันจะต้องแก้ไขเพื่อรวมมากกว่าหนึ่งแถว ฉันต้องเพิ่ม 10 หลังจากหยุดพักแต่ละครั้ง... ขอบคุณ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีทุกคนขอบคุณ!! มันยอดเยี่ยมพวกคุณช่วยบอกวิธีแทรก 2 แถวเมื่อค่าเปลี่ยนแปลงใน VBA หรือผ่าน excel ได้ไหม
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี สิ่งเหล่านี้เกือบจะมีประโยชน์แล้ว! วิธีแรกใช้ไม่ได้กับฉันเพราะเมื่อฉันทำตามขั้นตอนอย่างชัดเจน ข้อมูลที่ฉันลบในบานหน้าต่างผลรวมย่อยจะลบคอลัมน์ทั้งหมดที่ฉันจัดเรียงไว้ ในวิธีที่สองเมื่อฉันไปถึงขั้นตอนที่ฉันแทรกแถวของชีต แถวต่างๆ จะถูกแทรกเหนือเซลล์ FALSE ซึ่งแบ่งข้อมูล แต่การเลือกสุดท้ายของทุกกลุ่มจะถูกเพิ่มลงในกลุ่มด้านล่าง คำแนะนำใด ๆ???
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
[quote]สวัสดีทุกคน ขอบคุณ!! มันยอดเยี่ยมพวกคุณช่วยบอกวิธีแทรก 2 แถวเมื่อค่าเปลี่ยนแปลงใน VBA หรือผ่าน excel ได้ไหมBy ฮัดสัน[/quote] โปรดแจ้งให้เราทราบวิธีการแทรกมากกว่า 1 แถว
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันใช้วิธีแก้ปัญหาของตัวเองมาระยะหนึ่งแล้ว
1. แทรกคอลัมน์ตัวช่วยลงในคอลัมน์ A
2. ใน A2 พิมพ์ "if(B2=B1,A1,A1+1)"
3. คัดลอกสูตรนั้นลงไปที่แถวสุดท้าย
4. คัดลอกเซลล์ที่มีประชากรทั้งหมดในคอลัมน์ A และวางแบบพิเศษ (ค่า) เหนือเซลล์เหล่านั้น
5. คัดลอกเซลล์ทั้งหมดอีกครั้งแล้ววางลงในคอลัมน์ A ในเซลล์แรกที่ไม่มีการเติมข้อมูล (เช่น ถ้าคุณมีข้อมูล 104 แถวบวกกับแถวส่วนหัว คุณจะวางลงในเซลล์ A106)
6. คลิกที่ข้อมูลและลบรายการที่ซ้ำกัน (เฉพาะในเซลล์ที่คุณเพิ่งวางในขั้นตอนที่ 5 ไม่ใช่ในทุกแถว)
7. จัดเรียงคอลัมน์ A . ทั้งหมด
8. ลบคอลัมน์ A

ดูเหมือนหลายขั้นตอน แต่ใช้เวลาเพียงไม่กี่วินาที
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
รหัส VBA ใช้งานได้ครั้งแรกและทำในสิ่งที่ฉันพยายามจะทำ ขอบคุณมาก!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
RE: แทรกแถวว่างเมื่อค่าเปลี่ยนแปลงด้วยรหัส vba
มีวิธีใดบ้างที่ฉันสามารถบันทึกช่วงและไม่ต้องเลือกทุกครั้งที่เรียกใช้
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี,
มีประโยชน์มากในกรณีที่ฉันต้องแทรก 1 แถว แต่ถ้าฉันต้องแทรก 145 แถวทุกครั้งที่ข้อมูลเปลี่ยนแปลงในคอลัมน์ spwcific ฉันจะทำอย่างไร ??
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีฮัสซัน
ในการแทรกแถวว่างหลายแถวเมื่อค่าเปลี่ยนแปลงในคอลัมน์เฉพาะ คุณควรใช้โค้ด VBA ต่อไปนี้:

หมายเหตุ: ในโค้ดด้านล่าง คุณควรเปลี่ยนตัวเลข 99 ตามที่คุณต้องการ ตัวอย่างเช่น เมื่อคุณแทรก 145 แถวว่าง คุณควรเปลี่ยนหมายเลข 99 เป็น 144 โปรดลองใช้งาน หวังว่ามันจะช่วยคุณได้!

แทรกแถวย่อยAtValueChange()
Dim Rng เป็นช่วง
Dim WorkRng เป็นช่วง
เกี่ยวกับข้อผิดพลาดต่อไป
xTitleId = "KutoolsforExcel"
ตั้งค่า WorkRng = Application.Selection
ตั้งค่า WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = เท็จ
สำหรับ i = WorkRng.Rows.Count To 2 ขั้นตอน -1
ถ้า WorkRng.Cells(i, 1).Value <> WorkRng.Cells(i - 1, 1).Value แล้ว
ช่วง(WorkRng.Cells(i, 1).แถวทั้งหมด, WorkRng.เซลล์(i + 99, 1).ทั้งแถว).แทรก
End If
ต่อไป
Application.ScreenUpdating = จริง
ย่อยสิ้นสุด
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
มีประโยชน์มาก รหัสที่ skyyang แสดงด้านบนทำงานได้อย่างสมบูรณ์ เพียงตรวจสอบให้แน่ใจว่าข้อมูลไม่มีช่องว่างอยู่แล้ว

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

สามารถเพิ่มบรรทัดเพื่อละเว้นหรือข้ามบรรทัดว่างได้หรือไม่? นั่นอาจทำให้รหัสนี้เป็นสากลและทำซ้ำได้หากจำเป็น นอกจากนี้ ฟังก์ชันลบที่คล้ายกับนี้อาจมีประโยชน์ ดังนั้นจึงไม่จำเป็นต้องเลิกทำ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สามารถปรับวิธีการ VBA เพื่อละเว้นเซลล์ว่างได้หรือไม่? ฉันมีไฟล์ที่ฉันต้องแทรกแถวตามสองคอลัมน์ที่แตกต่างกัน แต่เมื่อฉันเรียกใช้แมโครในคอลัมน์ที่สอง ฉันจะลงเอยด้วยบรรทัดว่างสามบรรทัดที่แมโครตัวแรกเรียกใช้แทรกแถว
หรือทำงานสองคอลัมน์พร้อมกันได้หรือไม่
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีฮัสซัน

vba นี้ยอดเยี่ยมมาก ในขณะที่ฉันต้องการรหัสสำรองอีกหนึ่งรหัสสำหรับแทรกแถวว่างแถวเดียวหลังจากการเปลี่ยนแปลงหมายเลขลำดับ ตัวอย่าง:- ในคอลัมน์มีชุดตัวเลข เช่น 1, 2, 3, 5, 6, 9 & etc...
ต้องเพิ่มแถวว่างแถวเดียวระหว่าง 3 & 5 รวมถึง 6 & 9
ได้โปรดด้วยสิ่งนี้
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ

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

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