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

エクセルマクロ・VBA発展編１フォローアップミニセミナー
エクセルマクロ・VBA発展編１フォローアップミニセミナーNo.04

伊久間博之さんの投稿

(投稿ID: 909)

発展編で習ったfor each構文をあえて使ってみました。
Sub toi5()
    Dim hida As Range
    Dim migi As Range
    For Each hida In Range("A4:A29")
        For Each migi In Range("E4:E15")
            If hida.Value = migi.Value Then
                Range("C" & hida.Row).Value = Range("F" & migi.Row).Value
                Exit For
            End If
        Next
    Next
End Sub

この場合for next構文の方がシンプルでわかりやすいですね。
2014/11/29 08:01