![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
No.3ベストアンサー
- 回答日時:
以下でできると思います。
Sub 進むまでの行削除()
For I = 10 To 20
If Cells(I, "A") = "進む" Then
Range("A1", Cells(I, "A")).EntireRow.Delete
Exit Sub
End If
Next I
End Sub
※お詫び 前回の質問で「最初の罫線を判断して…」で間違いがありました。
以下の用に変更して下さい。
Sub 罫線までの行削除()
For I = 1 To Cells.SpecialCells(xlCellTypeLastCell).Row
If Cells(I, "A").Borders(xlEdgeBottom).LineStyle <> xlNone Then
Range("A1", Cells(I, "A")).EntireRow.Delete
Exit Sub
End If
Next I
End Sub
前回の回答含めありがとうございます。
for~next文はよく使用するのでこういう方法もあるという意味で助かります。
ありがとうございました。
No.2
- 回答日時:
Findのオプションはお好みでアレンジしてください。
エラー処理無し、複数存在しない事が前提ですが。Sub test()
Range("A1", Range("A10:A20").Find("進む", LookIn:=xlValue, lookat:=xlWhole)).EntireRow.Delete
End Sub
No.1
- 回答日時:
VBAによるセルの操作が書いてあります。
http://www.voicechatjapan.com/excelvba/VBArei2.htm
OFFSETを使うなど良いでしょう。
たぶんそのまま使える回答が出てくると思うので
そのコード意味の確認はお願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 3 2023/02/28 01:13
- Excel(エクセル) Vba エクセルマクロで、 A列の、A1セルからA10セルに空白のある行を削除する、のは Range 3 2022/11/05 17:44
- Excel(エクセル) エクセルVBA 複数行にまたがっている選択を判定するには 2 2023/05/21 21:54
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 1 2023/02/27 22:21
- Visual Basic(VBA) 特定の文字を簡単な操作で半角スペースに変換するか削除したい 2 2022/11/01 10:35
- Excel(エクセル) Excelのマクロで、特定のセルから順番に値を取得したい 5 2022/12/06 15:34
- Excel(エクセル) エクセルで、特定のセルの内容を更新すると、別の特定セルに 更新日付が自動的に表示させる方法はあります 1 2022/11/14 21:03
- Excel(エクセル) エクセルのマクロについて教えてください。 3 2023/02/07 14:47
- Visual Basic(VBA) エクセルのマクロについて教えてください マクロを実行すると メッセージボックスが表示されて okをク 4 2023/07/05 19:32
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2022/10/04 10:48
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
指定した文字があった場合、その行を削除するマクロが欲しいです
Excel(エクセル)
-
マクロにて指定の文字間の文字を指定文字とともに削除
Excel(エクセル)
-
【Excel】特定の文字から文字までの間を削除する
Excel(エクセル)
-
-
4
B列の最終行までA列をオートフィル
Visual Basic(VBA)
-
5
エクセルである行以下全部を削除する方法
Excel(エクセル)
-
6
Excel VBAで同じフォルダ内のファイルを開くには?
Excel(エクセル)
-
7
変数を用いて行全体を削除するには。
Excel(エクセル)
-
8
EXCEL 表の書式のみ変更不可(保護)したい
Excel(エクセル)
-
9
エクセル マクロ オートフィルの終点の指定について
Excel(エクセル)
-
10
VBAで特定の行と一つ上の行を削除するマクロについて
Visual Basic(VBA)
-
11
vbaで指定したセルより下の行を指定する方法について vbaの質問です。 例えば、「C6」セルより下
Excel(エクセル)
-
12
VBAで繰り返しコピーしながら下へ移動させる方法
Excel(エクセル)
-
13
EXCEL VBAでA列にある空白行より下の行すべてを削除する方法を教えてください。
Visual Basic(VBA)
-
14
Rangeメソッドは失敗しました。globalオブジェクトについて
Excel(エクセル)
-
15
VBA 何かしら文字が入っていたら
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Twitter(X)でフォロー外の人に...
-
エクセルで住所の混在する「丁...
-
ハメ撮りが流出したら
-
Facebookメッセンジャーの不具合
-
エクセルVBAで行削除時にエラー...
-
指定した文字があった場合、そ...
-
VBA:Openステートメントで開い...
-
マクロで特定の行まで削除する...
-
バッチファイルを使用したsql@p...
-
Excelマクロ 行の削除
-
アクセスにおいて間違って削除...
-
LINEのホームのベルマークにあ...
-
今日の日付が過ぎたらその行を...
-
教えてgooの機能に関するアンケ...
-
女友達にLINEしたら、既読スル...
-
【エクセル】セル内の右側のみ...
-
opensslを削除したい
-
VBA IF文でORを使ったとき後ろ...
-
BD-Rは容量がなくなるまで何度...
-
回答が付かなかったので、再質...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
教えてgooの機能に関するアンケ...
-
VBA:Openステートメントで開い...
-
指定した文字があった場合、そ...
-
エクセルで住所の混在する「丁...
-
回答が付かなかったので、再質...
-
もう関わりたくない人がいたらL...
-
同じ様な内容の質問を繰り返しても
-
喧嘩をしてLINE削除され、 また...
-
今日の日付が過ぎたらその行を...
-
日テレニュースHP、記事削除は...
-
Facebookメッセンジャーの不具合
-
ハメ撮りが流出したら
-
恋愛相談かてで
-
ダブルクォーテーションの削除...
-
エクセルVBAで行削除時にエラー...
-
教えてgooで誰でも月1回だけ回...
-
アクセスにおいて間違って削除...
-
女友達にLINEしたら、既読スル...
-
ウェブページへのアクセス不可 ...
-
すべてやりきった、大満足を意...
おすすめ情報