マクロ記述の意味

質問

下記のようなマクロがかかれているのですが
記述の意味がわかりません。
教えてください。
Dim h
On Error Resume Next
Sheets("滞留在庫表").Select
With Application.WorksheetFunction
For h = 2 To Range("C9999").End(xlUp).Row
Cells(h, "V") = "****"
Cells(h, "V") = .VLookup(.Replace(String(18, "?"), 8, 1, Mid(Cells(h, "C"), 8, 1)), _
Sheets("表示再設定マスタ").Range("A5:B22"), 2, False)
Next h
End With

回答No.1

pen_pen_pen · ベストアンサー

>Sheets("滞留在庫表").Select
シート「滞留在庫表」をアクティブに。

>With Application.WorksheetFunction
エクセル関数をVBAで使いますよ～。

>For h = 2 To Range("C9999").End(xlUp).Row
2行目から、C列の値が入ってるセル内で一番下の行まで以下を繰り返し。

>Cells(h, "V") = "****"
V列目のセルに「****」と入れる。

で、次は長いのでこまごまと説明します。
>String(18, "?")
「?」を18個並べた文字列。…(1)

>Mid(Cells(h, "C"), 8, 1))
C列目のセルの値の8文字目の文字。…(2)

>.Replace(String(18, "?"), 8, 1, Mid(Cells(h, "C"), 8, 1)
(1)の8文字目を(2)で置換したもの。EXCEL関数のREPLACEを実行したのと同じ。…(3)

>.VLookup(.Replace(String(18, "?"), 8, 1, Mid(Cells(h, "C"), 8, 1)), _
>Sheets("表示再設定マスタ").Range("A5:B22"), 2, False)
シート「表示再設定マスタ」のA5:B22のA列と(3)が一致する行のB列の値。
=VLOOKUP((3),'表示再設定マスタ'!A5:B22, 2, FALSE)
を実行したのと同じ。

>Next h
繰り返し範囲終わり。

>End With
エクセル関数をVBAで使いますよ～。の範囲終わり。