接上一篇,如果我们获取完目录,需要生成新的sheet页
Sub main()
Dim line As Integer
Dim row As Integer
Dim dic_arr(0 To 10) As String
Dim dic_index As String
Dim sheetname As String
dic_index = 0
row = 1
For line = 0 To 16
line = line + 1
If Worksheets("sheet1").Cells(line, row) = "" And Worksheets("sheet1").Cells(line, row + 1) = "" Then
row = getback(line, row, dic_index)
line = line - 1
End If
If Worksheets("sheet1").Cells(line, row) = "" And Worksheets("sheet1").Cells(line, row + 1) <> "" Then
row = row + 1
line = line - 1
End If
If Worksheets("sheet1").Cells(line, row) <> "" Then
dic_arr(dic_index) = Worksheets("sheet1").C