http://q.hatena.ne.jp/1271412744
A列をキーにソートを行いたいです。先頭行、1行目は見出しです。データは2行目からです。
A列からJ列を選択し、A列をキーに昇順ソート。先頭行は見出し。何行入っているかはわからないので、A~Jを選択。
A列に入っているデータは"20100401"といったような形式で入っています。ただし、文字列、数値が入り乱れています。なので"20100401"というデータは文字列型数値型一緒として考えます。よろしくお願いします。
現在テスト環境が無いのですが
With ActiveSheet
の下に下記を加えてみてください。
Cells.Select Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlYes, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ SortMethod:=xlPinYin, DataOption:=xlSortTextAsNumbers
.Cells.Selectとすると、
実行時エラー 1004:アプリケーションの定義またはオブジェクト定義のエラーです
と表示されてしまいます。
With ActiveSheet
.Columns("A:J").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
実行時エラー 1004:
並べかえの参照が正しくありません。参照が並べ替えるデータ内にあることと、最優先されるキーボックスが空白でないことを確認してください。
と表示されてしまいます。