レッスン-投稿一覧パソコン仕事５倍塾ポータル

投稿/コメントを表示します。

複数の表の間でのマッチング。VLookUp関数がやっていることをマクロで書くと？

受講生さんの投稿

(投稿ID: 2742)

お世話になっております。一つこの例題について伺いたいことがあります。
もし、キャンペーン応募が同じ人から複数件あったとして、左の表の同じセルに「、」を打って複数件足していくような場合を想定して下記のようなコードを書きました。
しかし、F5で実行を押すたびに左の票の数が足されていってしまいます。修正箇所としてどの点を直せばよろしいでしょうか。
ご教授宜しくお願い致します。

Sub sakusei()
    Dim hida
    Dim migi
    Dim goukei

    For migi = 11 To 23

        For hida = 4 To 29
        goukei = Range("C" & hida).Value
               
            If Range("E" & migi).Value = Range("A" & hida).Value Then
             goukei = goukei & "," & Range("F" & migi).Value
            End If
        Range("C" & hida) = goukei
        Next
    Next
End Sub

2016/12/16 01:58

ゲストさんのコメント

(コメントID: 4174)

受講生さん:

以下の動画くらいまでやってからまた相談いただければと。
表を解析して1行のリストを作る、1行のリストを解析して表にする、その１，その２
https://forum.pc5bai.com/lesson/page/157
https://forum.pc5bai.com/lesson/page/158

>お世話になっております。一つこの例題について伺いたいことがあります。
>もし、キャンペーン応募が同じ人から複数件あったとして、左の表の同じセルに「、」を打って複数件足していくような場合を想定して下記のようなコードを書きました。
>しかし、F5で実行を押すたびに左の票の数が足されていってしまいます。修正箇所としてどの点を直せばよろしいでしょうか。
>ご教授宜しくお願い致します。

2016/12/16 02:12