vba初心者です。
値の羅列のシートでセルの値が100より大きいセルはのある行は削除したい時どのようなコードを書けばわからず苦慮してます。
例として下記のようなシートの場合どうかきますでしょうか?
A B C D E F
----------------------------------------
1 20090101 20 30 95 40
----------------------------------------
2 20090102 25 35 105 45
----------------------------------------
3 20090103 40 50 110 50
A 回答 (3件)
- 最新から表示
- 回答順に表示
No.3
- 回答日時:
データが提示されてるのはいいんですが、
どの列を基準にするのか、例えば、E列とか
C列~F列のどこかが、とかを説明しないと
的確な回答はできません。
で、C列~F列のどこかに、100以上があったら、とした場合。
但し、1行目は見出しとする
'--------------------------------------
Sub Test()
Dim R As Long
For R = Cells(Rows.Count, "A").End(xlUp).Row To 2 Step -1
If WorksheetFunction.CountIf(Cells(R, "C").Resize(1, 4), ">100") > 0 Then
Rows(R).Delete xlShiftUp
End If
Next R
End Sub
'---------------------------------------------
以上ここまで。
No.2
- 回答日時:
質問の確認になりますが、
・2列目(B列は)削除の対象ではない(日付だから)。
・それ以外の値は、100以上を確認する数値。
でよろしいでしょうか??
回答遅くなり申し訳ありません。
・2列目(B列は)削除の対象ではない(日付だから)。→そのとおりです。
それ以外の値は、100以上を確認する数値。→そのとおりです
No.1
- 回答日時:
抽出する条件がD列と仮定してますが、
Sub try()
Application.DisplayAlerts = False
With Worksheets("Sheet1")
.Range("A1").AutoFilter 4, ">100"
.Range("A2", Cells(Rows.Count, 1).End(xlUp)).SpecialCells(xlCellTypeVisible).Delete
.AutoFilterMode = False
End With
Application.DisplayAlerts = True
End Sub
こんな感じの事でしょうか。
この回答への補足
D列目の最大行より下から上向きに100より大きい値のあるセルを削除
するというよう感じのコードでしょうか?
何点か質問があります。
(1).Range("A1").AutoFilter 4, ">100"でA1とする
理由がわかりません。(range関数の意味も含め分かりません。)
(2)このコードでマクロを実行しようとすると
.Range("A1").AutoFilter 4, ">100"で構文エラーとなり実行できま せん。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 3 2023/02/28 01:13
- Visual Basic(VBA) 複数csvを横に追加していくマクロについて 2 2023/04/25 09:19
- Excel(エクセル) Excelにて、行の最後のセルの値をコピーして別sheetに張りつけるVBAコードをご教授願います 3 2022/11/20 14:35
- Visual Basic(VBA) Excel vbaについて知恵もしくは、コード教えて下さいm(__)m ① 表にあるデータをコピー、 2 2022/09/01 23:57
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 1 2023/02/27 22:21
- Visual Basic(VBA) Changeイベントで複数セルへの貼り付けおよび値削除時に1個目のセルのみエラーになる 3 2022/12/21 09:07
- Excel(エクセル) エクセルのVBAで上の表の最下行を求める 4 2022/09/14 15:22
- Visual Basic(VBA) ExcelのVBAを使い、複数シートの同一箇所を、同一条件にて一括でソルバーを回す方法について 1 2022/04/23 11:49
- Visual Basic(VBA) VBA*セルに値があればシート名に反映 2 2023/02/21 14:52
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2022/05/26 17:19
このQ&Aを見た人はこんなQ&Aも見ています
-
風水の観点で選ぶ観葉植物とは?置き場所や上げたい運気ごとの注意点を紹介!
観葉植物で運気をアップするコツを、風水デザイン1級建築士の福島昌彦さんに伺った。
-
マクロ 特定のセル値のみクリアする
Visual Basic(VBA)
-
Excel VBA A列が特定の値以外の場合、その行を削除
Excel(エクセル)
-
EXCELのマクロで条件に一致したセル範囲を削除する方法
Excel(エクセル)
-
-
4
エクセルである行以下全部を削除する方法
Excel(エクセル)
-
5
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
6
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
7
特定の文字がある行以外を削除するマクロ
その他(Microsoft Office)
-
8
【Excel VBA】複数ある特定の文字列を含む行を削除
Excel(エクセル)
-
9
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
10
別のシートから値を取得するとき
Visual Basic(VBA)
-
11
指定した文字があった場合、その行を削除するマクロが欲しいです
Excel(エクセル)
-
12
(VBA)特定の数字以外の行を削除する方法
Excel(エクセル)
-
13
VBAで特定の条件のセルのみクリアにする
Excel(エクセル)
-
14
マクロで#N/A"のエラー行を削除したい"
Visual Basic(VBA)
-
15
【VBA】条件に一致しない行を削除したい 複数条件
Visual Basic(VBA)
-
16
【vba】指定範囲の中に任意の文字があるときの条件分岐
Excel(エクセル)
-
17
IF関数などを使って条件に合った「行」を削除するような機能はありますでしょうか?
Excel(エクセル)
-
18
エクセルVBAで、ある文字を含んでいたら別シートに抽出したい
Excel(エクセル)
-
19
エクセル マクロ オートフィルの終点の指定について
Excel(エクセル)
-
20
VBAで文字列を数値に変換したい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Worksheets メソッドは失敗しま...
-
VBA 何かしら文字が入っていたら
-
vba 2つの条件が一致したら...
-
Cellsのかっこの中はどっちが行...
-
空白セルをとばして転記
-
B列の最終行までA列をオート...
-
Excelで、あるセルの値に応じて...
-
VBAのFind関数で結合セルを検索...
-
VBAを使って検索したセルをコピ...
-
マクロについて。S列の途中から...
-
【VBA】2つのシートの値を比較...
-
エクセルVBA シートモジュール...
-
文字列の結合を空白行まで実行
-
エクセルについて
-
VBAコンボボックスで選択した値...
-
Excel(VBA) 特定の条件に該当...
-
マクロ 最終列をコピーして最終...
-
エクセルVBAにて =A1=B1とすれ...
-
Excel VBA:エクセルのマクロで...
-
エクセルVBA intersect colu...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Worksheets メソッドは失敗しま...
-
Excelで、あるセルの値に応じて...
-
B列の最終行までA列をオート...
-
vba 2つの条件が一致したら...
-
Cellsのかっこの中はどっちが行...
-
VBAを使って検索したセルをコピ...
-
文字列の結合を空白行まで実行
-
VBAのFind関数で結合セルを検索...
-
IIF関数の使い方
-
【VBA】2つのシートの値を比較...
-
マクロ 最終列をコピーして最終...
-
VBA 何かしら文字が入っていたら
-
Changeイベントでの複数セルの...
-
URLのリンク切れをマクロを使っ...
-
エクセルVBAにて =A1=B1とすれ...
-
VBAでのリスト不一致抽出について
-
データグリッドビューの一番最...
-
マクロについて。S列の途中から...
-
VBA UserFormからの転記で
-
targetをA列のセルに限定するに...
おすすめ情報