การแทรกคอลัมภ์ว่างคั่นในช่วงเซลที่ต้องการ

[p_d]

สวัสดีค่ะทุกท่าน
ดิฉันอยากสอบถามวิธีเพิ่มคอลัมภ์ว่างแทรกต่อจากทุกคอลัมภ์ที่มีข้อมูลเดิมอยู่
อธิบายอาจงง ๆ ดูตัวอย่างตามไฟล์แนบค่ะ โดยช่วงเซล D1:I1 เป็นเดือนทีมีอยู่ (อาจมีช่วงเดือนมากหรือน้อยกว่านี้) และต้องแทรกคอลัมภ์เพิ่มในแต่ละเดือน
ตามเซลสีเหลืองค่ะ
ดิฉันลองรันโค้ดมาโครแล้วแต่ปัญหาคือถ้าช่วง range เดือนที่มีอยู่ไม่เท่ากันจะแทรกให้ครบทุกเดือนต้องทำอย่างไรคะ

Code: Select all

Sub InsertCol()
    Columns("D:D").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("F:F").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("H:H").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("C1").Select
End Sub

[logic]

ลองแบบ do...loop ครับ

Code: Select all

Sub InsertCol()
    Cells(1, Columns.Count).End(xlToLeft).Select
    Do While Selection.Offset(0, -1).Value <> ""
        Selection.EntireColumn.Insert
        Selection.Offset(0, -1).Select
    Loop
End Sub

[p_d]

ใช่เลยค่ะ
ขอบคุณมากนะคะ คุณ logic

[p_d]

สอบถามเพิ่มเติมค่ะ ถ้ามีข้อมูลที่เป็น Text ต่ออยู่กับเซลล์ว่าง(Null) แต่ไม่ใช่ Blank cell นะคะ แล้วต้องการเลือกเฉพาะเซลล์ที่มีค่า Text แสดงอยู่ต้องทำอย่างไรคะ เพราะตอนนี้ถ้าใช้คำสั่ง Selection.End(xlDown).Select มันจะเลือกช่วงเซลล์ Null ด้วยค่ะ

Code: Select all

Sub SelectData()
Range("A1").Select
 Range(Selection, Selection.End(xlDown)).Select
End Sub

ขอบคุณค่ะ
p_d

[snasui]

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

Code: Select all

Dim i As Long
Range("A1").Select
Do While Len(Selection) > 0
    i = i + 1
    Selection.Offset(1, 0).Select
Loop
Selection.Offset(-i, 0).Resize(i, 1).Select

[p_d]

ขอบคุณอาจารย์มากค่ะ ^ ^
p_d