VBA　3日目

Sub datatsuika()
Application.ScreenUpdating = False
Dim i As Long
With Sheets("Data")
For i = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
.Cells(i, 6) = Left(.Cells(i, 1), 4)
.Cells(i, 7) = WorksheetFunction.VLookup(.Cells(i, 2), Sheets("Master").Range("E:F"), 2, 0)
If .Cells(i, 5) >= 500000 Then
.Cells(i, 8) = "A"
Else
.Cells(i, 8) = "B"
End If
Next
End With
End Sub

今日はここまでかけるようになりました。焦らず、コツコツと。。。