|
質問させてください。
資料を読み込んで一つにまとめるというマクロを組んでいます。
資料が何枚もあるので次々と次のセルに記入していくことになります。
そこで、仮にL列に360とはいっていたらI列には351-400という数字を入れたいのですが、なかなかうまくいきません。
色々、調べてここまで書いたのですが、思った操作になりません。
Dim i As Integer
Dim intL As Variant
i = 3
Do
i = i + 1
intL = SH2.Cells(i, 12)
If intL = "" Then
Exit Do
End If
If intL >= 501 Then
SH2.Cells(Rows.Count, 9).End(xlUp).Offset(1) = "501 - "
ElseIf intL >= 451 Then
SH2.Cells(Rows.Count, 9).End(xlUp).Offset(1) = "451 - 500"
ElseIf intL >= 401 Then
SH2.Cells(Rows.Count, 9).End(xlUp).Offset(1) = "401 - 450"
ElseIf intL >= 351 Then
SH2.Cells(Rows.Count, 9).End(xlUp).Offset(1) = "351 - 400"
ElseIf intL >= 301 Then
SH2.Cells(Rows.Count, 9).End(xlUp).Offset(1) = "301 - 350"
ElseIf intL >= 251 Then
SH2.Cells(Rows.Count, 9).End(xlUp).Offset(1) = "251 - 300"
ElseIf intL >= 201 Then
SH2.Cells(Rows.Count, 9).End(xlUp).Offset(1) = "201 - 250"
ElseIf intL >= 151 Then
SH2.Cells(Rows.Count, 9).End(xlUp).Offset(1) = "151 - 200"
ElseIf intL >= 100 Then
SH2.Cells(Rows.Count, 9).End(xlUp).Offset(1) = "101 - 150"
ElseIf intL <= 100 Then
SH2.Cells(Rows.Count, 9).End(xlUp).Offset(1) = " - 100"
End If
Loop While intL <> ""
ご教示願います。
|
|