|
こんばんは。
>ちょっと教えていただきたいのですが。
>平様の並び替えでは項目が書かれていないので、問題なく動作しますが
>例えば
>
> A B C
>5 項目1 項目2
>6 7324 56
>7 7324C 38
>8 6028 99
>9 16028C 48
>
> のような状態の場合は
これは、5行目が項目名で6行目からデータが入っているということですね!!
項目名がある場合はSortメソッドでそのように指定すればよいですよ!!
前投稿のコードをちょっとだけ変更して・・・、
'======================================================
Sub test2()
Dim col As Long 'データが入力されている最右列番号
col = Cells(5, Columns.Count).End(xlToLeft).Column
Set rng = Range("a6", Cells(Rows.Count, 1).End(xlUp))
With rng.Offset(0, col)
.Formula = "=a6&"""""
End With
With Range("A5").CurrentRegion
.Sort Key1:=Cells(5, col + 1), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlPinYin
End With
rng.Offset(0, col).Value = ""
End Sub
確認してみて下さい
|
|