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
![その他([技術者向] コンピューター) イメージ](https://gazo.okwave.jp/okwave/spn/images/related_qa/c205_3_thumbnail_img_sm.png)
お礼
回答有難うございます。通常表示で正常に受け付けました。