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
库存数据收集VBA自动化代码
最新推荐文章于 2023-12-08 14:47:14 发布