1418207622 A列とB列を比較して同じデータがあれば「1回だけ」B列の該当データに色を付けるようなマクロや関数をお教えいただきたいです。

図のように、一致するデータに色を付けたいのですが、それを1回限りにして、B列に余計なデータがないかどうか調べたいのです。
類似の方法でも構いません。(A列とB列を比較し、一致するデータがあればC列に、B列の該当セルの個数を出す等)
実際のデータはA列、B列共に、1500行ぐらいまで入っております。
お力添えいただければ幸いです。
よろしくお願いします。

回答の条件
  • 1人5回まで
  • 登録:2014/12/10 19:33:42
  • 終了:2014/12/13 00:30:49

ベストアンサー

id:taknt No.1

きゃづみぃ回答回数13539ベストアンサー獲得回数11982014/12/10 21:14:18

ポイント300pt
Sub main()

Dim a As Long
Dim b As Long


For a = 1 To Rows.Count
    If Cells(a, "A") = "" Then Exit For
    For b = 1 To Rows.Count
        If Cells(b, "B") = "" Then Exit For
        If Cells(a, "A") = Cells(b, "B") Then
            Cells(b, "B").Interior.ColorIndex = 6
            Exit For
        End If
    Next b
Next a

End Sub

id:moon-fondu

ありがとうございます、うまく塗りつぶせました!

2014/12/13 00:30:39
  • id:moon-fondu
    Yoshiyaさんもありがとうございます、こちら http://d.hatena.ne.jp/Yoshiya/20141210 にご回答くださっていたんですね!Yoshiyaさんのマクロもうまくいきました!
    あの一部の列を結合し、一部の列は結合せず数値を合計したいという質問、かなり複雑なマクロだったのでしょうか、誰も回答してくれなかったんですが・・・さすがYoshiyaさんですね!またお願いします(^ム^)

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません