Excel2007のマクロでマクロを実行したところ、エラーが出てしまい

質問

Excel2007のマクロでマクロを実行したところ、エラーが出てしまいました。どうすればよいでしょうか？
実行時エラー'1004'「RangeクラスのSelectメソッドが失敗しました」
Range("テーブル1[#All]").Selectでエラーになります。
マクロの記録を使っただけなので、どう直せばよいのかさっぱりわかりません。
どうかよろしくお願いします。

Range("A5").Select
ActiveWindow.SmallScroll Down:=12
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveWindow.SmallScroll Down:=-12
Columns("L:P").Select
Selection.Delete Shift:=xlToLeft
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("A5").Select
ActiveWindow.SmallScroll Down:=30
Range("A5:L55").Select
ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$5:$L$55"), , xlYes).Name = _
"テーブル1"
Range("テーブル1[#All]").Select
ActiveWindow.SmallScroll Down:=-36
Range("テーブル1[[#Headers],[列5]]").Select
ActiveWorkbook.Worksheets("ID.01").ListObjects("テーブル1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("ID.01").ListObjects("テーブル1").Sort.SortFields.Add _
Key:=Range("テーブル1[[#All],[列5]]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("ID.01").ListObjects("テーブル1").Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveSheet.ListObjects("テーブル1").Range.AutoFilter Field:=12, Criteria1:= _
Array("condition", "congruent", "control", "experiment", "="), Operator:= _
xlFilterValues
ActiveWindow.SmallScroll Down:=-6
End Sub

回答No.1

keithin · ベストアンサー

ご質問の直接の回答としては，今のマクロでとりたてて間違いはありません。
が，問題が起きている行とその２つ下も含めて
　Range("テーブル1[#All]").Select
　ActiveWindow.SmallScroll Down:=-36
　Range("テーブル1[[#Headers],[列5]]").Select
この３行は削除してしまってください。実効的な機能が無いので，削除しても全く問題有りません。

それで実際には，マクロの記録を取る所からやり直しましょう。
まず最初に。
オートフィルタを取り付ける際に，ホームタブの「テーブルとして書式設定」を利用せず，従来通りホームタブの「並べ替えとフィルタ」の中からオートフィルタを取り付けて（というマクロを記録して）ご利用になってください。

次に。
今のマクロを破棄して，丸ごと次のようなのを利用してみてください。

sub macro1()
range("A5:L55").sort key1:=range("E5"), order1:=xlascending, header:=xlyes
range("A5:L55").autofilter field:=12, criteria1:=Array("condition", "congruent", "control", "experiment", "="), operator:=xlfiltervalues
end sub

マクロにやらせる動作は
１．E列の昇順で並べ替える
２．L列のオートフィルタを所定の文言で絞り込む
の２つで十分です。

お礼

素早い回答ありがとうございます！
「並び替えとフィルタ」から試したところ、マクロを実行してもエラーは出なくなりましたが、ソートがされなくなってしまったのですが、どうすればよいのでしょう？
以下マクロです。

Sub Macro1()
'
' Macro1 Macro
'

'
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
Columns("L:P").Select
Selection.Delete Shift:=xlToLeft
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("A6").Select
ActiveWindow.SmallScroll Down:=30
Range("A6:L55").Select
Selection.AutoFilter
ActiveWindow.SmallScroll Down:=-6
Range("L6").Select
ActiveWorkbook.Worksheets("ID.01").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("ID.01").AutoFilter.Sort.SortFields.Add Key:=Range( _
"L6:L54"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("ID.01").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

補足

すみません、"ID.01"を変えればよかったのですね。
でもいちいちシートNO.を打っていたらマクロの意味がない気もします。
これも自動化できるのでしょうか？

回答No.2

keithin

回答をご覧になってだいぶ時間が経ちましたが，その後の音沙汰が無いということは？

＞これも自動化できるのでしょうか？

そこまで対応できる手段として最初の回答で…

＞今のマクロを破棄して，丸ごと次のようなのを利用してみてください。

sub macro1()
range("A5:L55").sort key1:=range("E5"), order1:=xlascending, header:=xlyes
range("A5:L55").autofilter field:=12, criteria1:=Array("condition", "congruent", "control", "experiment", "="), operator:=xlfiltervalues
end sub

とお話ししておきましたが，まだ試していないのでしょうか。まだでしたら試してください。

＃追加ご質問を拝見して幾つか気がついた点もありますが，余計なことを言うとすぐそっちにひっかかって肝心の他のお話しした内容が無視されちゃいますので，止めておきます。でも並べ替えも含めてエラー無くマクロが動いたなら，とりあえず当初のご質問内容はクリアしたと判断できますので，良かったですね。

お礼

すみません、まだ試していませんでした。
他にもマクロに作業させたかったのでどう直せばよいか分らなくて・・・。

ですが今並び替えのところにお答えを代入して調整したら完璧に上手くいきました！
既に一枚一枚マクロを書き換えてやり終わっていたのですが、これでスッキリしました。

ありがとうございました！