No.1ベストアンサー
- 回答日時:
行全体の選択ですよね
InputBoxの変数が
GYOUST、GYOUENDとして
Rows(GYOUST & ":" & GYOUEND).EntireRow.Delete
と入れてみてください。
hallo-2007さんのアドバイスをもとに
Dim 行st As String
Dim 行ed As String
行st = InputBox("削除開始行を入力", "確認", "")
行ed = InputBox("削除終了行を入力", "確認", "")
Rows(行st & ":" & 行ed).EntireRow.Delete
と組んで見たところ見事にできました。
ありがとうごさいました。
No.3
- 回答日時:
NO.2のものです。
既に解決されたようですが、サンプルに間違いがあり、そのままというのも気持ち悪いので
変数宣言部の
Dim St_Row As Long
Dim Ed_Row As Long
は
Dim St_Row As Variant
Dim Ed_Row As Variant
の間違いでした。
No.2
- 回答日時:
Sub Sample()
Dim St_Row As Long '削除先頭行格納用
Dim Ed_Row As Long '削除終端行格納用
St_Row = InputBox("削除する最初の行番号を入力")
Do Until IsNumeric(St_Row) '数字が入力されるまで繰り返す
St_Row = InputBox("ST")
If St_Row = "" Then Exit Sub '何も入力されなければ終了
If CLng(St_Row) < 1 Or CLng(St_Row) > 65536 Then
St_Row = vbNullString '1以下または65536より大きい数字ならもう一度入力
End If
Loop
Ed_Row = vbNullString
Do Until IsNumeric(Ed_Row)
Ed_Row = InputBox("削除する最初の行番号を入力")
If Ed_Row = "" Then Exit Sub
If CLng(Ed_Row) < 1 Or CLng(Ed_Row) > 65536 Then
Ed_Row = vbNullString
End If
Loop
Sheets("Sheet1").Range(St_Row & ":" & Ed_Row).EntireRow.Delete
End Sub
さまざまな入力パターンに対応するため、Do-Loopステートメント等との
組み合わせまでご提示いただき恐縮です。
いまの私の知識では、これらを完全に理解習得するまでは至りませんが、
研鑽に励みたいと思います。
ところでここでの「65536」とは、エクセルでのいわゆる限界行数を
意味しているという解釈でよろしいのでよね。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excel リンク先のエクセルファイルの削除 同時に行を削除したい 1 2022/11/29 16:20
- Visual Basic(VBA) 複数csvを横に追加していくマクロについて 2 2023/04/25 09:19
- Excel(エクセル) マクロで最終行から上に検索を逆にしたい 1 2022/05/17 18:27
- Visual Basic(VBA) 特定の文字を簡単な操作で半角スペースに変換するか削除したい 2 2022/11/01 10:35
- Visual Basic(VBA) Excelにて、シート1の行を削除するとシート2のシート1と同じ番号の行も削除したい 3 2022/05/08 04:24
- Excel(エクセル) VBA 文字列変換と指定した列にある日時データから時間を削除する方法について 2 2022/04/14 15:23
- Excel(エクセル) VBA 指定した列にある日時データから時間を削除する方法について 4 2022/04/14 11:17
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Excel(エクセル) エクセルのVBAにショートカットキーの割り当て 3 2022/07/13 14:19
- Mac OS 「ゴミ箱を空にしています」と24時間も終らない現象 2 2022/05/23 08:39
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
指定した文字があった場合、そ...
-
この質問サイトはどうしてヤフ...
-
今日の日付が過ぎたらその行を...
-
エクセル:右クリックすると出...
-
LINEのホームのベルマークにあ...
-
データの削除件数が知りたいです
-
喧嘩をしてLINE削除され、 また...
-
SDカードの音楽の消去
-
ヤフオクのホームに保存した検...
-
VBA:Openステートメントで開い...
-
【HTML】ツールチップを強制的...
-
女友達にLINEしたら、既読スル...
-
日テレニュースHP、記事削除は...
-
ここの質問解決したあと削除で...
-
ハメ撮りが流出したら
-
猫にグラグラの熱湯かける動画...
-
エクセルVBAで行削除時にエラー...
-
回答がNo.5なのに、回答数が4つ...
-
写真のようなマークの電話番号...
-
もはや喧嘩売ってるのか私(笑...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
教えてgooの機能に関するアンケ...
-
VBA:Openステートメントで開い...
-
指定した文字があった場合、そ...
-
エクセルで住所の混在する「丁...
-
回答が付かなかったので、再質...
-
もう関わりたくない人がいたらL...
-
同じ様な内容の質問を繰り返しても
-
喧嘩をしてLINE削除され、 また...
-
今日の日付が過ぎたらその行を...
-
日テレニュースHP、記事削除は...
-
Facebookメッセンジャーの不具合
-
ハメ撮りが流出したら
-
恋愛相談かてで
-
ダブルクォーテーションの削除...
-
エクセルVBAで行削除時にエラー...
-
教えてgooで誰でも月1回だけ回...
-
アクセスにおいて間違って削除...
-
女友達にLINEしたら、既読スル...
-
ウェブページへのアクセス不可 ...
-
すべてやりきった、大満足を意...
おすすめ情報