No.1ベストアンサー
- 回答日時:
以下のようにすればいいかと思います。
なお、最初の削除する行が下の記述では28~30になっています『Rows("28:30")』ので、その部分は場合によって変更する必要があります。式の意味はみればわかるかと思いますが・・・。Sub Macro1()
'
FOR i=0 to 200
Rows("28:30").OFFSET(i*27,0).Select
Selection.Delete Shift:=xlUp
NEXT i
End Sub
No.2
- 回答日時:
こんにちは。
(1)シートに列追加を行う
(2)削除対象行の列にマーキング (例えば * を設定)
(3)データフィルタ(オートフィルタ)で削除対象行を選択
(2)は、Excel VBA を使わなくともセル計算式で実現可です。ご参考までに。
((2)の例)
A1 に =ROW()
B1 に =MOD(ROW()-1,30)
C1 に =IF((B1-26)>0, "*", "")
を設定し、2行目以降も数式をペーストする。そうすると 28, 29, 30 行のみ * がマーキングされる。
A B C
:
26 25
27 26
28 27 *
29 28 *
30 29 *
31 0
32 1
:
この回答へのお礼
お礼日時:2008/06/01 15:20
回答をくださってありがとうございました。
先に回答していただいていたjo-zenさんの方法で無事に作業を終えることができました。
iriyakさんの方法も考えられるのですね。使いようなのですね。
以後、参考にさせていただきます。
本当にありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excel VBA 空白行があるセル範囲に色を付ける 3 2022/06/13 15:58
- Excel(エクセル) エクセルのVBAにショートカットキーの割り当て 3 2022/07/13 14:19
- Visual Basic(VBA) 3つの条件を指定してVBAで行を削除したい 条件1:分類1が重複 条件2:分類2が重複 条件3:個数 6 2022/06/24 11:07
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Excel(エクセル) Excelの列から検索して該当する行を別シートに転記するVBA 2 2022/12/20 09:35
- Visual Basic(VBA) 複数csvを横に追加していくマクロについて 2 2023/04/25 09:19
- Excel(エクセル) VBAで重複データを合算したい(時間) 1 2022/12/08 23:06
- Visual Basic(VBA) 列と行の名前(重複あり)が交差するセルに、データを入力したい 2 2022/06/25 22:42
- Visual Basic(VBA) VBAコードを張り付け後のエクセルの進め方 2 2023/02/07 18:24
- Excel(エクセル) Excel VBAについてです。 少しだけ知識はあるのですが、 うまくいかなかったので 質問させてい 3 2022/09/13 18:40
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
数値に見えるものはすべて数値...
-
【VBA】条件に一致しない行を削...
-
エクセルのデータがない行には...
-
マクロで最終行を取得してコピ...
-
【VBA】条件に一致しない行を削...
-
エクセルで空白行を削除する ...
-
Excel 別ブックから該当データ...
-
VB.net
-
エクセルのVBAで指定した行数の...
-
EXCEL2007マクロ/オートフィル...
-
Excel VBAでオートフィルタで抽...
-
各個体に対する平均値の自動計...
-
EXCEL VBAでA列にある空白行よ...
-
空白を複数行一気に挿入するには?
-
条件に合った行を削除するマク...
-
VBAで特定の行と一つ上の行を削...
-
列から特定の文字列検索→該当以...
-
複数セルの入れ替え方法 excel vba
-
エクセルで特定の文字が入って...
-
関数入りの行挿入。。。上書き...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで空白行を削除する ...
-
エクセルのデータがない行には...
-
【VBA】条件に一致しない行を削...
-
数値に見えるものはすべて数値...
-
Excel VBAでオートフィルタで抽...
-
【VBA】条件に一致しない行を削...
-
マクロで最終行を取得してコピ...
-
Excel97 指定した行だけマク...
-
Excel VBA オートフィルタの結...
-
【至急】Excel 同一人物の情報...
-
エクセルのVBAで指定した行数の...
-
VBAで入力の結果を他のセルに反...
-
エクセルで階層図を作る方法
-
VBAで特定の行と一つ上の行を削...
-
エクセルVBAでデータの蓄積方法?
-
VB.net
-
Excel マクロ 検索結果を別シ...
-
VBAでの重複データに色付け
-
EXCEL VBAでA列にある空白行よ...
-
Access2003レポート:最終ペー...
おすすめ情報