0
Sub addJobs()
Dim rngJobs As Range
Dim c As Variant
Set rngJobs = Range(Cells(2, 1), Cells(2, 1).End(xlDown))
MsgBox (rngJobs.Rows.Count)
For i = 1 To rngJobs.Rows.Count
Sheets.Add After:=Sheets(Sheets.Count) 'creates a new worksheet
Sheets(Sheets.Count).Name = Cells(i + 1, 1).Value ' renames the new worksheet
Next i
End Sub
我的任务列表,我希望能够将工作号码添加到列表和VBA来新作业添加到我目前的工作表列表。我该怎么做呢?我不清楚什么是最好的方法。与WS更新列表