No.7
- 回答日時:
関数とオートフィルタで対応するなら、bbbbbの次のセルからaaaaaが出るまでのセルの横の列(B2セル以下)に「必要」と表示する以下のような数式が計算負荷が少ないのでお勧めです。
=IF(AND(OR(A1="bbbbb",B1="必要"),A2<>"aaaaa"),"必要","")
やってみましたが,確かに軽かったです。
ifとand,orの組み合わせは考えてみたのですが,うまくいきませんでした。
できあがったのを見ると簡単に見えますが,自分でやると難しいものです。
しっかり勉強しようと思います。
どうもありがとうございました。
No.5ベストアンサー
- 回答日時:
こんばんは!
横からお邪魔します。
VBAになってしまいますが、一例です。
データはA1セルからA列にあるとします。
画面左下の操作したいSheet見出し上で右クリック → コードの表示 → VBE画面に
↓のコードをコピー&ペーストしてマクロを実行してみてください。
(Alt+F8キー → マクロ → マクロ実行です)
Sub test() 'この行から
Dim i As Long, k As Long
For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If Cells(i, 1) = "bbbbb" Then
k = i
Do Until Cells(k, 1) = "aaaaa"
k = k - 1
Loop
Rows(k + 1 & ":" & i).Delete
End If
If Cells(i, 1) = "aaaaa" Or Cells(i, 1) = "bbbbb" Then
Rows(i).Delete
End If
Next i
End Sub 'この行まで
※ 一旦マクロを実行すると元に戻せませんので、別Sheetでマクロを試してみてください。
参考になりますかね?m(_ _)m
大変助かりました。
ばっちり動きました。
途中まで組んで,どうしようもなくなっていたので,大変嬉しいです。
教えていただいたマクロ,これから勉強して理解しようと思います。
どうもありがとうございました。
No.4
- 回答日時:
>実際は数千行あるので,
回答した数式は、数千行程度でしたら持ちこたえます。いったいどんな操作をしてるんですか。
B2に式を記入したら、ふつーにB2セルの右下の小さい■をWクリックしてオートフィルさせてください。40秒ほど待つかもしれないので、お茶でも入れて一服しててください。
#数万行とかだとちょっと厳しいかもですけどね。
時折、無駄にいきなりシートの下端まで数式をぶっこんで勝手に自爆してる人もいるんで。
どーしてもできないなら、まず500行オートフィルドラッグして一旦安定するまで待ち、次はその500行ずつコピーしては貼り付けてください。
いろいろいじった状態だったので,リソース不足を起こしたようです。
エクセルに怒られてしまいました。
再起動したら,うまくいきました。
どうもありがとうございました。
No.3
- 回答日時:
こんばんは。
>aaaaaもbbbbbも消したい なら
はじめに aaaaa セルをクリックする。
あとはCtrlキーを押しながら消したいデータを選択する。
最後に任意の選択したセル上で右クリックして削除を選択する。
データの数がいくつあるかわかりませんが、あまりに多いならVBAで削除マクロを作るしかないかと。
どうもありがとうございます。
数千行なるので,とてもctrlで選択することはできません。
マクロは覚え立てなので,とても自分でつくることはできず,
webを検索しているところです。
No.2
- 回答日時:
A1に「データ」と記入し、A2以下に実際のデータを記入。
B1に「判断結果」と記入、
B2に
=IF(COUNTIF($A$1:A1,"aaaaa")=COUNTIF($A$2:A2,"bbbbb")+1,"不要","")
と記入、以下コピー
オートフィルタを取り付けて「不要」を絞り出し、全体を選んで
○Deleteキーで削除します
○右クリックして「削除」して上に詰めます
この回答への補足
A2セルをaaaaaにしたらうまくいきました。
実データはA2がbbbbbでした,大変失礼いたしました。
ただ,100行くらいでやったら成功したのですが,実際は数千行あるので,
ハングアップしてしまいました・・・
No.1
- 回答日時:
その1
並べ替えをしてから、それぞれまとめて削除。
その2
不要なデータを示すマークをどこかの列に作って、そのマークがある行だけを「オートフィルタ」で表示させる。
続いて Ctrl+G で「ジャンプ」を呼び出し「セルを選択」から
「アクティブ セル領域」を選んで、今 表示されているセル(行)を選択した後
思う存分削除する。
好きなほうを選んでください。
ご連絡,ありがとうございます。
その1
aaaaaやbbbbbや1行しかないですが,必要なデータも不要なデータも何行あるか分からないので,
並べ替えをするのは難しい気がします。
その2
不要なデータを示すマークをいれようにも,大量にあるので手作業で入れるのは困難です。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルで沢山のレコードの最後に追記するには? 7 2023/04/10 13:27
- Android(アンドロイド) スマホデータについて 一時期心霊写真にはまってて保存してたんですが、色々あって気味が悪くなって消しま 2 2022/04/24 20:36
- 転職 【事務・庶務】のハローワーク求人について。 仕事内容 ・社内外からの電話応対 ・工場来場者への対応と 5 2022/04/14 16:20
- Excel(エクセル) Excel 指定した固有番号で、複数の行を削除する方法は? 2 2022/03/30 15:18
- ネットワーク I2Cのスタートコンディションについて 2 2023/03/03 01:03
- タブレット アマゾンファイヤータブレット 7 2022/11/23 10:12
- Android(アンドロイド) Galaxy(ギャラクシー)スマホの復元について 2 2022/03/29 07:52
- その他(パソコン・スマホ・電化製品) 昔消した友人の写真を復元したいんですが、スマホのファイルは大容量データで上書きしてしまうと元のデータ 1 2023/03/11 09:12
- その他(OS) OSクラッシュしたパソコンについて 1 2023/02/20 18:51
- ノンジャンルトーク パソコン初心者です。ご教示願います。複合機でスキャンしたデータをパソコンのピクチャーホルダーに保存し 1 2023/07/09 11:13
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【スプレドシート】IMPORTRANGE...
-
Microsoft 365のディフェンダー...
-
英数字のみ全角から半角に変換
-
MicrosoftOfficeの1ユーザー2...
-
MicrosoftOffice2019なんですが、
-
会社PCのメールが更新されない
-
Excel 日付を比較したら、同じ...
-
【Excel VBA】PDFを作成して,...
-
Microsoft Formsの「個人情報や...
-
outlookのメールが固まってしま...
-
Outlook で宛先が複数の場合の人数
-
Office 2021 Professional Plus...
-
エクセル関数について
-
マイクロソフト 一時使用コード...
-
エクセルの貼り付け「リンクさ...
-
Microsoft365で写真をアルバム...
-
会社のTeamsのことで相談です。...
-
officeビジネス型のワードやエ...
-
Microsoft Officeを2台目のPCに...
-
複数の写真を1枚に印刷
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【スプレドシート】IMPORTRANGE...
-
【スプレッドシート】指定の日...
-
英数字のみ全角から半角に変換
-
会社PCのメールが更新されない
-
マイクロソフト 一時使用コード...
-
Office 2021 Professional Plus...
-
エクセルで例えば、関数を使っ...
-
Microsoft Formsの「個人情報や...
-
1つのPCに「Excel 2010」「Exc...
-
エクセルで例えば、A1に㈱ベ...
-
理由を教えてください。
-
エクセルでXLOOKUP関数...
-
マイクロソフト オフィスについて
-
VLOOKUP関数について
-
teams設定教えて下さい。 ①ビデ...
-
Googleのスプレッドシートでシ...
-
【Excel VBA】PDFを作成して,...
-
Microsoft365で写真をアルバム...
-
Outlook で宛先が複数の場合の人数
-
Excel テーブル内の空白行の削除
おすすめ情報