|
こんなのでも出来ると思うよ?
Sub 三数え2()
Dim i As Long
Dim lngRows As Long
Dim vntData As Variant
Dim lngCount As Long
'List先頭セル位置を設定
With ActiveSheet.Cells(1, "A")
'総行数を取得
lngRows = .Offset(65536 - .Row).End(xlUp).Row - .Row + 1
If lngRows <= 1 Then
lngRows = 1
ReDim vntData(1 To 1, 1 To 1)
vntData(1, 1) = .Value
Else
'データを配列に取得
vntData = .Resize(lngRows).Value
End If
'データの先頭から最終まで繰り返し
For i = 1 To lngRows
'末尾が3なら
If vntData(i, 1) Mod 10 = 3 Then
'lngCountをインクリメント
lngCount = lngCount + 1
End If
Next i
'結果を出力
.Offset(, 1).Value = lngCount
End With
Beep
MsgBox "処理が完了しました"
End Sub
|
|