
vba エクセルマクロのことで教えてください。
A1 123
A2 234
A3 345
A4 456
A5 567
A6 000
A7 000
A8 000
A9 000
.
.
.
A6セルより下の000となっている行をすべて削除したいです。
Bから右の列のセルにも値が入っていますがA列が000になっている行の情報は必要ないのですべて削除してしまって大丈夫です。
そのときによってAの何行目以下が000になるかはまちまちです。
プログラムを教えてください。
よろしくお願いします。
No.1ベストアンサー
- 回答日時:
こんばんは
「000」と表示されているってことから、セル値は文字列限定で良いものと解釈しました。
こんな感じでしょうか?
Sub Sample()
Dim rg As Range, c As Range
For Each c In Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp))
If c.Value = "000" Then
If rg Is Nothing Then Set rg = c Else Set rg = Union(rg, c)
End If
Next c
If Not rg Is Nothing Then rg.EntireRow.Delete
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
電子書籍プレゼントキャンペーン!
最大2万円超分当たる!マンガや小説が読める電子書籍サービス『Renta!』で利用できるギフトコードプレゼント実施中!
-
なぜこんな初歩的なVBAのIf文でエラーか発生して使えないのか、全く理解出来ません。誰か助けてくださ
Visual Basic(VBA)
-
VBAの計算について
Visual Basic(VBA)
-
【VBAエラー】Nextに対するForがありません 対策について
Visual Basic(VBA)
-
4
エクセルVBAで教えて頂きたいのですが?
Visual Basic(VBA)
-
5
ExcelVBAでDo Until loopのネスト、IF文を使って一致する物と一致しない物としたい
Visual Basic(VBA)
-
6
Excel2010 VBAが特定動作で実行出来なくなる
Excel(エクセル)
-
7
エクセルで重複しない組み合わせの出し方
Excel(エクセル)
-
8
Excel 知恵を下さい。 下記表は、例です。本来の表のデータ量は、1000件以上あります… A列:
Excel(エクセル)
-
9
Excel ユーザー定義で変換したセルについて
Excel(エクセル)
-
10
VBAでWorkbook.addの使い方
Visual Basic(VBA)
-
11
Excel VBAの解読について質問があります。 概要は、マクロでチェックボックスにチェックすると日
Visual Basic(VBA)
-
12
ExcelのVBAでシフト表を作っていますが、バグが出て困っています
Visual Basic(VBA)
-
13
Excel教えてください。 下記のことが出来るのは、マクロですか?条件付き書式でしょうか、、?知恵を
Excel(エクセル)
-
14
VBAで大量データの処理
Visual Basic(VBA)
-
15
Excelで結合したセル内の文字と結合されたセルの数を集計したい
Excel(エクセル)
-
16
COUNTIFS関数で結果が1多い
Excel(エクセル)
-
17
マクロ初心者の質問です。 1.シートを開いてマクロを実行する場合、アクセスキーでAlt-L-PMとタ
Visual Basic(VBA)
-
18
エクセルで 例えばA1のセルに1+1 と入力すると B1のセルに2 と答えが出る関数があったと思いま
Excel(エクセル)
-
19
ダブルクリックでセルの色を変える
Visual Basic(VBA)
-
20
エクセルのソート方法について
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
人気Q&Aランキング
-
4
EXCELで変数をペーストしたい
-
5
Excelで指定した日付から過去の...
-
6
VBAでセルに値が入ったときにイ...
-
7
screenupdatingが機能しなくて...
-
8
エクセルVBAで結合セルの真ん中...
-
9
Excel VBAで、 ヘッダーへのセ...
-
10
セル色なしの行一括削除
-
11
vbsのセル値の取得について
-
12
VBAマクロで結合セルを含む列に...
-
13
ExcelのVBAで数字と文字列をマ...
-
14
Excel VBA、 別ブックの最終行...
-
15
VBAで行削除できないようにする...
-
16
3桁または4桁の数値を時刻に...
-
17
TODAY()で設定したセルの日付...
-
18
結合セルを含む列の非表示方法
-
19
最後のデータ行の任意のセルの...
-
20
HTMLでVLOOKUP関数のようなこと...
おすすめ情報
公式facebook
公式twitter