库存数据收集VBA自动化代码

Public Sub getData()
    Dim i As Integer, j As Integer, sht As Worksheet
    Set sht = ThisWorkbook.Worksheets("库存条目")
    For i = 671 To 1684
    'sht.Cells(i, 14) = 1
    'sht.Cells(i, 17) = "N"
    sht.Cells(i, 21) = "N"
    sht.Cells(i, 22) = "N"
    sht.Cells(i, 23) = "N"
    sht.Cells(i, 30) = "N"
    sht.Cells(i, 31) = "N"
    sht.Cells(i, 32) = "N"
   
    Next i
End Sub