|
大変困っています。
どなたか教えてください。
以下のコード(下手で恥ずかしいですが、、)を2回実行しないと
正確にカウントされません。
原因がなんとなくわかるのですが、いくら考えても
修正することが出来ないのです。
お分かりになる方、至急アドバイスいただけると助かります。
-----------------------------------------------------------ここから
kizami = InputBox("刻みを入力して下さい。")
lastrowno = Range("A65536").End(xlUp).Row
If kizami = 500 Then
For i = 2 To lastrowno
Result1 = Application.WorksheetFunction.VLookup(Cells(i, 8), Sheets("Sheet2").Columns("B"), 1, True)
Range("L" & i).Value = Result1
Range("M" & i).Value = "〜" & Sheets(2).Cells(i + 1, 2).Value
Range("N" & i).Value = Application.WorksheetFunction.CountIf (Sheets("200511").Columns("L"), Sheets("Sheet2").Cells(i, 2))
Next i
ElseIf kizami = 1000 Then
For i = 2 To lastrowno
Result2 = Application.WorksheetFunction.VLookup(Cells(i, 8), Sheets("Sheet2").Columns("A"), 1, True)
Range("L" & i).Value = Result2
Range("M" & i).Value = "〜" & Sheets(2).Cells(i + 1, 1).Value
Range("N" & i).Value = Application.WorksheetFunction.CountIf (Sheets("200511").Columns("L"), Sheets("Sheet2").Cells(i, 1))
Next i
Else: kizami = 2000
For i = 2 To lastrowno
Result3 = Application.WorksheetFunction.VLookup(Cells(i, 8), Sheets("Sheet2").Columns("C"), 1, True)
Range("L" & i).Value = Result3
Range("M" & i).Value = "〜" & Sheets(2).Cells(i + 1, 3).Value
Range("N" & i).Value = Application.WorksheetFunction.CountIf (Sheets("200511").Columns("L"), Sheets("Sheet2").Cells(i, 3))
Next i
End If
--------------------------------------------------------------ここまで
|
|