エクセルのデータ管理

質問

こんにちは　いつもお世話になっています。
以下のようなデータがエクセル（2003）にあります。

１　文字列
２　文字列
３　文字列
４　==========
５　文字列
６　文字列
７　文字列
８　==========

このように原則的には3行文字列が続いて4行目に二重点線があります。
（どうも、ブラウザーでは二重線になってしまうようですが。）
文字列データは全てＡ列のみにあり、データ自体は様々です。二重点線は全て同じですので置換対象にして一括置換できます。これが、2千行以上あります。
ここで質問なのですが、まれに、文字列が2行続いた後に二重点線になっていることがあります。その場所（セル）を見つけたいのです。
つまり、
８　==========
９　文字列
１０文字列
１１==========
となっているセルの場所、例えば、Ａ列の11行セルを赤くするとか、あるいはＢ列11行目に「発見」と表示させるとか、もっと良い方法があるのかもしれませんが、該当箇所がわかればいいのです。
必要な情報が欠けていたら教えてください。
関連情報でもかまいません。よろしくお願いします。

回答No.2

keithin · ベストアンサー

B5セルに
=IF(AND(LEFT(A5)="=",LEFT(A1)<>"="),"発見","")
と作成してリストの下端までコピーすると，ずれた行だけを発見します。

お礼

keithin　様　ありがとうございました。お蔭様で解決しました。
大切に使わせていただきます。
簡単で恐縮ですが、お礼申し上げます。

回答No.8

MackyNo1

No6の回答の訂正です。

COUNTIF関数の部分を以下のように変更してください。

=IF(AND(A4="==========",COUNTIF(A1:A4,"*=")>1),"発見","")

お礼

MackyNo1　様　ありがとうございました。お蔭様で解決しました。
imogashi様の指摘部分もクリアできました。
ベストアンサーにすべきですが申し訳ありません。
丁寧に教えていただき助かりました。
簡単で恐縮ですが、お礼申し上げます。

回答No.7

mzon

条件付き書式に下記を入力することで、間違っている部分の書式を変更することはできます。
（『発見』などは追加できないですけどね。）

=OR(AND(MOD(ROW(), 4)=0,$A1<>"=========="),AND(MOD(ROW(), 4)<>0,$A1="=========="))

ＯＲの１つめは４の倍数の行が『===』以外になっていることで異常となります。
２つめは、４の倍数以外の行が『===』になっていることで異常となります。

書式の展開手順は書きです。
１．条件付き書式を設定したセルをコピー
２．貼り付けるセルを選択
３．右クリック→書式を選択して貼り付け(S)を選択
４．書式を選択
５．『ＯＫ』を押す。
以上です。

お礼

mzon　様　ありがとうございました。お蔭様で解決しました。
丁寧に教えていただき助かりました。
簡単で恐縮ですが、お礼申し上げます。

回答No.6

MackyNo1

二重点線が「=」の連続で入力されていて、その数が決まっているなら（決まった長さの二重罫線のみ検索対象にするなら）B4セル（最初に２重罫線が出てくるセルの右のセル）に以下の式を入力し、下方向にオートフィルします。

=IF(AND(A4="==========",COUNTIF(A1:A4,"*=")),"発見","")

B列を使用せず、該当するデータに色を付けたいなら、A4セル以下を選択して、「書式」「条件付き書式」で「数式が」にして以下の式を入力し、「書式」ボタンをクリックしてパターンタブで赤などの色を選択します。

=AND(A4="==========",COUNTIF(A1:A4,"*="))

回答No.5

imogasi

既出の回答の場合、下記２１行目の状態は発見出来ないのでは？
私の勘違いなら誠に済みませんが。
１７などは行番号をあえて書いたものです。データではありません
17==========
18========== 発見
19 a
20 b
21========
２１行目の式は複写で　=IF(AND(LEFT(A21)="=",LEFT(A17)<>"="),"発見","")
ーーーー
私には、いまはいい関数式の組み合わせは見つかっていないので、、VBAで処理ぐらいしか思いつかないですが。
直前の＝のあり場所をそれ以後に伝えるのが変数を利用してで無いと難しいので。

お礼

imogasi　様　ありがとうございました。
ご指摘の通りでした。
ベストアンサー決定後にimogasi様のご指摘に気がつきました。
幸い、点線の行が連続することは無いのですが。
お陰様で大変勉強になりました。
簡単で恐縮ですが、お礼申し上げます。

回答No.4

KURUMITO

B1セルに次の式を入力して下方にオートフィルドラッグします。

=IF(AND(ROW(A1)>4,LEFT(A1,1)="="),IF(AND(COUNTIF(A1:OFFSET(A1,-4,0),"*=")=2,OFFSET(A1,-4,0)="*="),"","発見"),"")

A4よりも上の行に==がある場合にはできませんが5行以下の場合には問題なく処理されます。たとえ==の行が連続してある場合でも。

お礼

KURUMITO　様　ありがとうございました。お蔭様で解決しました。
丁寧に教えていただき助かりました。
簡単で恐縮ですが、お礼申し上げます。

回答No.3

noname#204879

「二重点線」という表現はいただけませんね。

半角の等号(=)が複数個連続していることですか？ＹＥＳなら、その個数は一定（例えば１０個）ですか？
「二重点線」間の文字列が１行の場合、あるいは、０行（つまり「二重点線」が連続している場合もありますか？

お礼

mike_g　様　ありがとうございました。
表現が至らず大変失礼いたしました。
簡単で恐縮ですが、お礼申し上げます。

回答No.1

kagakusuki

B4セルに次の数式を入力した後、B4セルをコピーして、B5以下に貼り付けると良いと思います。

=IF(AND($A4="==========",COUNTIF($A1:$A3,$A4)>0),"発見","")

お礼

kagakusuki 様　ありがとうございました。
なぜか失敗しています。自分の操作方法が悪いのだと思います。
時間の都合で再度ためさせていただきます。
簡単で恐縮ですが、お礼申し上げます。