No.5ベストアンサー
- 回答日時:
#2のka_na_deです。
たびたび、ごめんなさい。
質問には、赤色の数値はB列にあると書いてありましたね。
変更しましたので、前のコードは無視してください。
Sub test()
Dim r As Long
Application.ScreenUpdating = False
For r = Range("B65536").End(xlUp).Row To 1 Step -1
If Cells(r, "B").Font.ColorIndex = 3 Then Rows(r).Delete
Next r
Application.ScreenUpdating = True
End Sub
No.6
- 回答日時:
>1行1行選択して削除していくと時間がかかるので
マイナスのセルを1発の操作で削除する操作は作られていない。
ーー
それでVBAの出番です。
例データ
2
-7
3
4
-3
-6
6
7
-2
-16
8
1
3
-3
ーー
コード
標準モジュールに
Sub test01()
d = Range("A65536").End(xlUp).Row
s = ""
For i = 1 To d
If Cells(i, "A") < 0 Then
s = s & Cells(i, "A").Address & ","
End If
Next i
s = Left(s, Len(s) - 1)
Range(s).Delete 'Activate
End Sub
ーーーー
実行結果
2
3
4
6
7
8
1
3
No.4
- 回答日時:
赤色にした数値の 共通点 はありますか?
例えば、0以下の数値 とか
A列が“○”だった場合
など、共通点があるなら
『オートフィルタ』を使ってみてはいかがでしょうか?
オートフィルタについて↓
http://kokoro.kir.jp/excel/auto-filter.html
No.2
- 回答日時:
その赤色をつけた数字に何か法則があれば、
それを利用してフィルター操作で抽出後に削除できると思います。
しかし、何も法則がないのであれば、エクセルのメニュー操作では、
不可能だと思います。
マクロは全く分からないと思いますが、私も自分の勉強のために
作ってみましたので、参考にしてみてください。
尚、マクロの実行はやり直しが効かないので、大切なデータは、
バックアップ後に試してみてください。
Sub test()
Dim c As Integer
Dim r As Integer
With ActiveSheet.UsedRange
For c = 1 To .Cells(.Cells.Count).Column
For r = Cells(65536, c).End(xlUp).Row To 1 Step -1
If Cells(r, c).Font.ColorIndex = 3 Then Rows(r).Delete
Next r
Next c
End With
End Sub
<使い方>
1)赤文字の入ったシートを表示させ、
下のシート名のタブの上で右クリック
2)「コードの表示」をクリック
3)左側のプロジェクトエクスプローラーで、
VBAProjectのの上で右クリック、「挿入」→「標準モジュール」
(プロジェクトエクスプローラーが表示されていなければ、
上部の「表示」メニューから選択表示できます。)
4)右側に上記のマクロを貼り付けます。
実行は、上部の再生マークボタンを押してください。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excel リンク先のエクセルファイルの削除 同時に行を削除したい 1 2022/11/29 16:20
- Excel(エクセル) Excelにの以下の設定方法について教えてください! C列にデータ入力の設定をしています。(出、入を 3 2022/06/22 01:33
- Excel(エクセル) エクセルVBAで次の二つを行いたいのですが思うように動きません。どう修正したらよいのでしょうか? 2 2023/04/22 14:55
- Excel(エクセル) VBA 文字列変換と指定した列にある日時データから時間を削除する方法について 2 2022/04/14 15:23
- Excel(エクセル) エクセルについて教えてください。 一度入力した文字や数字を誤って削除や変更しないために、削除や変更を 3 2022/10/30 10:36
- Excel(エクセル) エクセルのマクロを教えてください シート内の背景色が赤のセルだけを残して 他のセルは削除したいです。 3 2023/07/12 12:26
- Excel(エクセル) エクセルの使い方について 2 2023/02/07 20:54
- Visual Basic(VBA) 列を指定して値を左から5文字にそろえる 1 2022/06/10 20:28
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Excel(エクセル) エクセルである文字が入っている行とその上下の行を削除したいのですが、一気にできる方法はないですか? 5 2022/10/14 14:14
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
フォルダの削除について
-
内蔵HDDを認識させない方法...
-
USBメモリの中のデータが削除で...
-
$RECYCLE.BIN内の古いアカウン...
-
デスクトップ上のインターネッ...
-
拡張子のないファイルの削除方...
-
【システムで予約済み】領域を...
-
VBAでキャッシュを削除するには
-
Steamにログインできない
-
USB のファルダが削除できない
-
C:\\Windows\\SoftwareDistribu...
-
(windows10)steamのファイルが...
-
マイピクチャに入ってしまった...
-
windowsのアクセス許可について
-
Cドライブのユーザー内にあるAd...
-
新しい削除済みアイテムフォル...
-
沢山の写真を一度にPCから消す...
-
画像を削除したいのに勝手にコ...
-
ipod nanoを買ったのですが、ど...
-
保存先を「デスクトップ」に指...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
フォルダの削除について
-
C:\\Windows\\SoftwareDistribu...
-
USBメモリの中のデータが削除で...
-
沢山の写真を一度にPCから消す...
-
内蔵HDDを認識させない方法...
-
VBAでキャッシュを削除するには
-
デスクトップ上のインターネッ...
-
(windows10)steamのファイルが...
-
謎のフォルダが出現。削除もで...
-
ダブルクリックすると勝手に削...
-
画像を削除したいのに勝手にコ...
-
$RECYCLE.BIN内の古いアカウン...
-
Cドライブのユーザー内にあるAd...
-
ファイルの削除ができない
-
PC起動時のOSの選択画面を消したい
-
iTunes に入ってる曲を全て削除
-
outlookの検索履歴の削除
-
USB のファルダが削除できない
-
PCからnasneのファイル削除がで...
-
Windows8 ファイルの移動や削除...
おすすめ情報