| |
ごめんなさい、一か所修正です。
（結果に違いはないといえばないのですが…）
Sub TST()
Dim 在庫_Sheet As Worksheet
Dim 入力_Sheet As Worksheet
Dim CHK_ROW_CNT As Long
Dim LOOP_CNT As Long
Dim OUT_ROW_CNT As Long
Set 在庫_Sheet = Worksheets("在庫")
Set 入力_Sheet = Worksheets("入力")
CHK_ROW_CNT = 入力_Sheet.Cells(Rows.Count, "D").End(xlUp).Row
For LOOP_CNT = 2 To CHK_ROW_CNT
If 入力_Sheet.Cells(LOOP_CNT, "D") <> "" Then
OUT_ROW_CNT = 0
On Error Resume Next
OUT_ROW_CNT = WorksheetFunction.Match(入力_Sheet.Cells(LOOP_CNT, "D"), 在庫_Sheet.Range("J:J"), 0)
On Error GoTo 0
If OUT_ROW_CNT > 0 Then
在庫_Sheet.Cells(OUT_ROW_CNT, "P").Value = "済"
End If
End If
Next
End Sub
と
OUT_ROW_CNT = 0
の位置を変更してください。
|
|
独覚
- 14/9/3(水) 16:36 -
