การเรียงลำดับด้วย VBA

[วังวู ช่ง]

รบกวนท่านที่รู้ครับ ผมอยากเรียงลำดับด้วย VBA ด้วย code ล่างนี้ครับ

Code: Select all

Sub Macro1()
Dim i As Integer
Dim cell As Range, rng As Range
Set rng = Range("A1:A10")
i = 1
For Each cell In rng
    cell.Value = i
    i = i + 1
Next cell
End Sub

แต่ต้องการคือว่า เมื่อเราคีย์ใน column B ใน Column A ให้ออกลำดับแบบ Auto ครับ โดยไม่ต้องใช้ =SUBTOTAL( ครับ Code บนนี้จะปรับอย่างไรครับ?

[puriwutpokin]

ตัวอย่างโค้ดครับ

Code: Select all

'Other code...
Set rng = Range("b1:b" & Cells(Rows.Count, 2).End(xlUp).Row)
i = 1
For Each cell In rng
    cell.Offset(, -1).Value = i
'Other code...

[วังวู ช่ง]

ตัวอย่างโค้ดครับ

Code: Select all

'Other code...
Set rng = Range("b1:b" & Cells(Rows.Count, 2).End(xlUp).Row)
i = 1
For Each cell In rng
    cell.Offset(, -1).Value = i
'Other code...

Code: Select all

Sub Macro1()
Dim i As Integer
Dim cell As Range, rng As Range
Set rng = Range("b1:b" & Cells(Rows.Count, 2).End(xlUp).Row)
i = 1
For Each cell In rng
    cell.Offset(, -1).Value = i
    i = i + 1
Next cell
End Sub

ยังติดปัญหาที่ว่า เมื่อ Column B ไม่มีข้อความให้ออกว่างเหมือนกันครับ ความต้องการเหมือนในไฟล์นี้ครับ

[puriwutpokin]

ปรับเป็น

Code: Select all

Sub Macro1()
Dim i As Integer
Dim cell As Range, rng As Range
Set rng = Range("b1:b" & Cells(Rows.Count, 2).End(xlUp).Row)
i = 1
For Each cell In rng
If cell <> "" Then
cell.Offset(, -1).Value = Application.CountA(Range("b1:b" & i))
    Else
cell.Offset(, -1).Value = ""
End If
i = i + 1
Next cell
End Sub

[วังวู ช่ง]

ปรับเป็น

Code: Select all

Sub Macro1()
Dim i As Integer
Dim cell As Range, rng As Range
Set rng = Range("b1:b" & Cells(Rows.Count, 2).End(xlUp).Row)
i = 1
For Each cell In rng
If cell <> "" Then
cell.Offset(, -1).Value = Application.CountA(Range("b1:b" & i))
    Else
cell.Offset(, -1).Value = ""
End If
i = i + 1
Next cell
End Sub

ขอบคุณมากๆครับ