Excel Sort,不含標題排序
With ShtBaseImg
lLastRow = .Range("A" & Cells.Rows.Count).End(xlUp).Row
Set BaseImg_Rng = .Cells(6, 1).CurrentRegion
BaseImg_Rng.Cells(1, 1).Sort _
key1:=.Columns(1).Cells, Order1:=xlAscending, Header:=xlGuess
End With
加上 Header:=xlGuess,就可以不含標題排序
lLastRow = .Range("A" & Cells.Rows.Count).End(xlUp).Row
Set BaseImg_Rng = .Cells(6, 1).CurrentRegion
BaseImg_Rng.Cells(1, 1).Sort _
key1:=.Columns(1).Cells, Order1:=xlAscending, Header:=xlGuess
End With
加上 Header:=xlGuess,就可以不含標題排序
不錯,看了就推,這是美德!
回覆刪除精美禮品送完即止
Line帳戶 Lv333。com
匩咠任偲哅