エクセル：データ一致したとき1を足す

質問

教えて下さい。

シート(1)A列とB列に
Aさん　2
Bさん　1
Cさん　3
Dさん　5　　と1000行くらいあります。

シート(2)A列に
Aさん
Dさん
Eさん　　　とあります。

シート(2)にある人のみシート(1)のB列の数字に1足したいのですが何か方法はありますか？

自慢じゃないけどVBAは分かりません。

どうぞよろしくm(__)m

回答No.4

junijuni · ベストアンサー

＃３です。
C1に
=B1+IF(ISERROR(MATCH(A1,Sheet2!A:A,0)),0,1)
と入力してC列の必要行にコピー
でC列に必要な値が得られます。

まだ、こっちの方が良いですね。

お礼

できた！ありがとうございました。
またよろしくお願いします。

回答No.3

junijuni

B列には足してないですが…
C1に
=IF(ISERROR(MATCH(A1,Sheet2!A:A,0)),"",1)
と入力してC列の必要行にコピー
D1に
=B1+C1
と入力してD列の必要行にコピー
でD列に必要な値が得られますがどうでしょう？

回答No.2

KODAMAR

簡単なVBAつくってみました。
最終行とか自動取得じゃないですし、簡単なものですが。

Sub test1()

Sheet1.Select

For i = 2 To 10 '2が最初の行 10が最終行とする
Sheet1.Select
Name = Cells(i, 1)
Sheet2.Select
For w = 2 To 10 '上とおなじく
If Name <> "" Then
If Name = Cells(w, 1) Then
Sheet1.Select
Cells(i, 2) = Cells(i, 2) + 1
Exit For
End If
End If
Next
Next
End Sub

試す時はシートとかバックアップとってから試してみてください。

お礼

わーご親切にありがとうございます。
VBAやってみたいんですが・・・そのうち勉強します。

回答No.1

ro-su

検索関連なら下記URLの質問のNo.3がうまくいくと思います。範囲がシートをまたいでも使えます。

参考URL：

http://www.okweb.ne.jp/kotaeru.php3?q=156570