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("Mast
VLOOKUPはもともとだいたい理解できましたが、とりあえずVBAでもこれぐらいは理解できるようになりました。
Sub TEST()
Dim i As Long For i = 15 To Cells(Rows.Count, 1).End(xlUp).Row Cells(i, 4) = WorksheetFunction.VLookup(Cells(i, 3), Range("J:L"), 2, 0) Next
End