Excel Forum

Sub CopyEnd()
Dim rngAll As Range
Dim P As Long, r As Range
Dim O As Integer, U As Integer
With Sheets("AS_ORD")
If .Range("A6").Value = "" Then Exit Sub
Application.CutCopyMode = False
Set rngAll = .Range("AA6", .Range("A" & .Rows.Count).End(xlUp))
O = rngAll.Rows.Count
End With
With Sheets("AS_SUM")
Sheets("AS_SUM").Select
Application.CutCopyMode = False
If .Range("A2").Value = "" Then
U = 0
Else
U = .Range("A" & .Rows.Count).End(xlUp).Value
End If
With .Range("A" & .Rows.Count).End(xlUp)
.Offset(1, 1).Resize(O, 23).Value = rngAll.Value
For U = 1 To O
.Offset(U, 0).Value = U + P
Next U
End With
Sheets("AS_ORD").Select
End With
End Sub



จาก Code เบื้องต้น สามารถก๊อปปี้ข้อมูลไปยัง Sheet AS_SUM ได้แต่จำนวนแถวน้อย ถ้าเราต้องการจำนวนแถวมากๆประมาณ 1,000,000แถว จะทำอย่างไรครับ ตอนนี้ 40,000แถว ก็รันไม่ได้แล้วครับ

ประกาศตัวแปร O ให้เป็น Long แทน Integer ครับ

สำหรับการ Post Code กรุณาทำให้เป็นตัวอักษรแบบ Code ดูตัวอย่างในกฎการใช้บอร์ดข้อ 5 ด้านบนครับ

ครับ

ตรงนี้ผิดหรือเปล่าครับ ควรจะเป็น A6 หรือเปล่า

ได้แล้วครับ
ประกาศตัวแปร O ให้เป็น Long แทน Integer ตามที่อาจารย์แจ้งใช้ได้เลยครับ