VBA : เพิ่มบรรทัดตามค่าที่ระบุไว้และก๊อปปี้-วางค่าจากบรรทัดบนในบรรทัดที่เพิ่มใหม่

[goodbeary]

สอบถามครับ
ต้องการเพิ่มบรรทัดจากคอลัมน์ที่ระบุค่าไว้ แล้วก๊อปปี้และวางค่าจากบรรทัดด้านบนในบรรทัดที่เพิ่มขึ้น
ตอนนี้ติดปัญหา Code Copy & Paste value แบบ Range ครับ

ขอบคุณครับ

Sub InstRow()
Dim i As Integer, n As Integer, m As Long, currentCell As Range
Set currentCell = ActiveCell
Do While Not IsEmpty(currentCell)
n = currentCell.Value - 1
m = currentCell.Row
If n > 0 Then
Rows(m + 1 & ":" & m + n).Insert
Set currentCell = currentCell.Offset(n + 1, 0)
Else
Set currentCell = currentCell.Offset(1, 0)
End If
Loop
End Sub

[snasui]

การโพสต์ Code กรุณาดูตัวอย่างในกฎการใช้บอร์ดข้อที่ 5 ด้านบนครับ

ไฟล์ที่แนบมานี้มีนามสกุลเป็น .xlsx ไม่สามารถแนบ Code มาด้วยได้ การจะแนบ Code เข้าไปในไฟล์ได้ ไฟล์นั้นจะต้องมีนามสกุลเป็น .xlsm หรือ .xlsb เช่นนี้เป็นต้น กรุณาแนบไฟล์ที่มี Code มาใหม่จะได้สะดวกในการทดสอบครับ

[goodbeary]

ขอบคุณครับ เดี๋ยวตั้งกระทู้แล้วแนบไฟล์มาใหม่ครับ

[goodbeary]

แนบไฟล์ตัวอย่างมาให้ใหม่แล้วครับ

สอบถามครับ
ต้องการเพิ่มบรรทัดจากคอลัมน์ที่ระบุค่าไว้ แล้วก๊อปปี้และวางค่าจากบรรทัดด้านบนในบรรทัดที่เพิ่มขึ้น
ตอนนี้ติดปัญหา Code Copy & Paste value แบบ Range ครับ

ขอบคุณครับ

Sub InstRow()
Dim i As Integer, n As Integer, m As Long, currentCell As Range
Set currentCell = ActiveCell
Do While Not IsEmpty(currentCell)
n = currentCell.Value - 1
m = currentCell.Row
If n > 0 Then
Rows(m + 1 & ":" & m + n).Insert
Set currentCell = currentCell.Offset(n + 1, 0)
Else
Set currentCell = currentCell.Offset(1, 0)
End If
Loop
End Sub

[snasui]

ตัวอย่าง Code ครับ

Code: Select all

Dim i As Integer
Dim n As Integer
With Sheets("Before")
    i = .Range("e" & .Rows.Count).End(xlUp).Row
    Do While i > 6
        n = .Cells(i, "e").Value - 1
        If n > 0 Then
            .Cells(i, "e").Offset(1, 0).Resize(n).EntireRow.Insert xlDown
            .Cells(i, "e").EntireRow.Copy .Cells(i, "e").EntireRow.Resize(n + 1)
            .Cells(i, "e").Offset(1, 0).Resize(n).ClearContents
        End If
        i = i - 1
    Loop
End With

สังเกตการโพสต์ Code จะต้องให้แสดงตามลักษณะด้านบน ดูวิธีการได้ที่กฎการใช้บอร์ดข้อ 5 ด้านบนแต่ละหน้า ในโอกาสถัดไป กรุณาโพสต์ Code ให้แสดงในลักษณะเช่นนี้เสมอครับ

[goodbeary]

ทดลองใช้แล้วครับ ใช้งานได้ดีถูกต้องตามวัตถุประสงค์ อีกทั้ง code สั้นกระชับและแกะตามไม่ยากครับ

ขอบคุณครับ
Goodbeary