|
並べ替えについて学んでいます。
教えてください。
こちらでのコードを引用して記述しました。
並べ替えのkey1は日付+時間です。
応用で、下記★の部分を削除したところ、
『実行エラー'1004'
並べ替えの参照が正しくありません。並べ替えるデータ内にあることと、[最優先されるキー]ボックスが空白でないことを確認してください。』
のエラーがでました。
どうしてでしょうか?教えてください。
>'=================================================
>Sub test2()
> Dim col As Long 'データが入力されている最右列番号
> col = Cells(2, Columns.Count).End(xlToLeft).Column
> 'Set rng = Range("a2", Cells(Rows.Count, 1).End(xlUp)) ・・・★
> 'With rng.Offset(0, col) ・・・★
> ' .Formula = "=a2&""""" ・・・★
> 'End With ・・・★
> With Range("A2").CurrentRegion
> .Sort Key1:=Cells(2, col + 1), Order1:=xlAscending, Header:=xlNo, _
> OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
> :=xlPinYin
> End With
> 'rng.Offset(0, col).Value = "" ・・・★
>End Sub
|
|