[[20150825155103]]　『不要な見出しの削除』（今井浜）　ページの最後に飛ぶ

『不要な見出しの削除』（今井浜）

お世話になります。
表の中の不要な見出しを削除しようと思いマクロを作ったのですが
エラーが出ました。
エラーの内容ですが　エラー”438”
オブジェクトはこのプロパティまたはメソッドをサポートしていません。
と出ます。
何が、悪いのでしょうか？　教えてください。

Sub test()

   Range("Q9:Q27").Deletet Shift:=xlShiftToLeft
   Range("R9:R27").Delete Shift:=xlShiftToLeft
   Range("S9:S27").Delete Shift:=xlShiftToLeft
   Range("T9:T27").Delete Shift:=xlShiftToLeft
   Range("U9:U27").Delete Shift:=xlShiftToLeft
   Range("V9:V27").Delete Shift:=xlShiftToLeft
   Range("W9:W27").Delete Shift:=xlShiftToLeft
   Range("X9:X27").Delete Shift:=xlShiftToLeft
   Range("Y9:Y27").Delete Shift:=xlShiftToLeft
   Range("Z9:Z27").Delete Shift:=xlShiftToLeft
   Range("AA9:AA27").Delete Shift:=xlShiftToLeft
   Range("AB9:AB17").Delete Shift:=xlShiftToLeft
   Range("AC9:AC27").Delete Shift:=xlShiftToLeft 
   Range("AD9:AD27").Delete Shift:=xlShiftToLeft 
   Range("AE9:AE27").Delete Shift:=xlShiftToLeft 
   Range("AF9:AF27").Delete Shift:=xlShiftToLeft
   Range("AG9:AG27").Delete Shift:=xlShiftToLeft

End Sub

＜使用 Excel：Excel2007、使用 OS：Windows7 ＞

 余計なtが入っているのが原因だと思います。
 Range("Q9:Q27").Deletet Shift:=xlShiftToLeft
                      ↑
（se_9） 2015/08/25(火) 15:59

se_9様
回答ありがとうございます。
スペルチェックしたつもりでしたが見落としていました。
ありがとうございます。
（今井浜） 2015/08/25(火) 16:03

 右側の列から順に削除したほうがいいのではないでしょうか。

 Sub test() 
   Range("AG9:AG27").Delete Shift:=xlShiftToLeft
   Range("AF9:AF27").Delete Shift:=xlShiftToLeft
   Range("AE9:AE27").Delete Shift:=xlShiftToLeft 
   Range("AD9:AD27").Delete Shift:=xlShiftToLeft 
   Range("AC9:AC27").Delete Shift:=xlShiftToLeft 
   Range("AB9:AB17").Delete Shift:=xlShiftToLeft
   Range("AA9:AA27").Delete Shift:=xlShiftToLeft
   Range("Z9:Z27").Delete Shift:=xlShiftToLeft
   Range("Y9:Y27").Delete Shift:=xlShiftToLeft
   Range("X9:X27").Delete Shift:=xlShiftToLeft
   Range("W9:W27").Delete Shift:=xlShiftToLeft
   Range("V9:V27").Delete Shift:=xlShiftToLeft
   Range("U9:U27").Delete Shift:=xlShiftToLeft
   Range("T9:T27").Delete Shift:=xlShiftToLeft
   Range("S9:S27").Delete Shift:=xlShiftToLeft
   Range("R9:R27").Delete Shift:=xlShiftToLeft
   Range("Q9:Q27").Delete Shift:=xlShiftToLeft
 End Sub

 または、列が連続しているので、まとめて
　 Range("Q9:AG27").Delete Shift:=xlShiftToLeft

（宰府空帆） 2015/08/25(火) 21:14

コメント返信：

[ 一覧(最新更新順) ]

[[20150825155103]] 『不要な見出しの削除』（今井浜） ページの最後に飛ぶ

[[20150825155103]]　『不要な見出しの削除』（今井浜）　ページの最後に飛ぶ