Snasui Excel Forum

ลองแก้แล้วแต่กลายเป็น insert ติดกันหมดเลยค่ะ ถ้าจะเลือกแทรกเฉพาะระหว่างวันที่ต้องใช้ code อะไรคะ รบกวนแนะนำด้วยค่ะ
Sub add_2_col()
Dim rAll As Range
Dim i As Integer
Dim k As Integer
Dim a As Variant
With Sheets(2)
Set rAll = .Range("h1:xfd1").SpecialCells(xlCellTypeConstants)
For i = rAll.Count ...

ต้องรันจากชีทที่ 2 ค่ะอาจารย์ ชีทแรกเป็นข้อมูลต้นฉบับ รบกวนอีกครั้งนะคะ
ขอบคุณค่ะ
PK.

สอบถามค่ะ อาจารย์

Set rAll = .Range("h1:xfd1").SpecialCells(xlCellTypeConstants)
เป็นการกำหนด range ของคอลัมภ์ทั้งหมดใช่หรือไม่คะ
ลองนำมารันกับไฟล์จริง ปรากฎว่าแทรกไม่ครบค่ะ ไฟล์มีวันที่ถึงคอลัมภ์ GG
แต่มาโครเริ่มแทรกที่คอลัมภ์ CS ต้องแก้อย่างไรจึงแทรกทั้งหมดคะ
ตัวอย่างตามไฟล์แนบค่ะ โดย
1.ร ...

เรียน ผู้รู้ทุกท่าน

ดิฉันต้องการแทรกคอลัมภ์ 2 คอลัมภ์ในตารางตามไฟล์แนบ ซึ่งมีีรายละเอียดดังนี้
-ชีท data_original คือข้อมูลเดิมที่มีวันที่ติดกันเรียงต่อกันไปเรื่อย ๆ
-ชีท insert2col เป็นผลลัพธ์ที่ต้องการ คือในคอลัมภ์วันที่จะมีคอลัมภ์ที่ติดกันอยู่ ก่อนวันที่ถัดไป ซึ่งเราต้องการเพิ่ม 2 คอลัมภ ...