[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『不要な見出しの削除』(今井浜)
お世話になります。
表の中の不要な見出しを削除しようと思いマクロを作ったのですが
エラーが出ました。
エラーの内容ですが エラー”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
右側の列から順に削除したほうがいいのではないでしょうか。
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
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.