生成分解文件目录

sunglowxian

以前一直在用本论坛的“生成文件目录.xlsm”,非常好用
我这有许多非常规则的文件，可不可以直接将“2020-02-01这是第一个文件#苹果.pdf”直接分解成3列，日期/名称/#后面的内容



文件附后
新建文件夹.zip (31.1 KB, 下载次数: 9)

2020-3-16 13:02 上传

点击文件名下载附件

wbperfect

1. Sub splittest()
   
2. Dim str, str1
   
3. On Error Resume Next
   
4. For i = 7 To Cells(Rows.Count, 2).End(xlUp).Row
   
5. str = Cells(i, 2)
   
6. For nt = 1 To UBound(split(str, "#"))
   
7. Debug.Print nt
   
8. Cells(i, 3) = Left(str, 10)
   
9. Cells(i, 4) = split(split(split(str, "#")(0), "01")(1), "")
   
10. If nt > 1 Then
    
11. Cells(i, 5) = Cells(i, 5).Text & "#" & split(split(str, ".")(0), "#")(nt)
    
12. Else
    
13. Cells(i, 5) = split(split(str, ".")(0), "#")(nt)
    
14. End If
    
15. Next
    
16. Next
    
17. End Sub

复制代码

wbperfect

+++++++++++附件参考

taller

可以使用正则进行拆分

1. Sub GetData()
   
2.     Dim aKey, lst, i, iCol, res()
   
3.     With ActiveSheet    ' Load data
   
4.         iCol = 2
   
5.         lst = .Cells(.Rows.Count, iCol).End(xlUp).Row
   
6.         aKey = .Cells(7, iCol).Resize(lst, 1).Value
   
7.         With CreateObject("VBSCRIPT.REGEXP")
   
8.             .Global = True
   
9.             .Pattern = "(\d{4}-\d{2}-\d{2})([\u4e00-\u9fa5]+?)#(.*?)(?:\.pdf)"
   
10.             n = 1
    
11.             For i = 1 To UBound(aKey, 1)
    
12.                 strTxt = aKey(i, 1)
    
13.                 Set objMatch = .Execute(strTxt)
    
14.                 If objMatch.Count > 0 Then
    
15.                     For Each objMH In objMatch
    
16.                         ReDim Preserve res(2, 1 To n)
    
17.                         For k = 0 To 2
    
18.                             res(k, n) = objMH.submatches(k)
    
19.                         Next
    
20.                         n = n + 1
    
21.                     Next
    
22.                 End If
    
23.             Next
    
24.         End With
    
25.         .Cells(7, "C").Resize(UBound(res, 2), 3).Value = Application.Transpose(res)
    
26.     End With
    
27. End Sub
    

复制代码

sunglowxian

wbperfect 发表于 2020-3-16 14:22

完全没问题

sunglowxian

taller 发表于 2020-3-16 14:29
可以使用正则进行拆分

已测试，完全可以用，感谢

sunglowxian

taller 发表于 2020-3-16 14:29
可以使用正则进行拆分

中间文字比较长的显示是空白的，哪句可以修改啊

taller

sunglowxian 发表于 2020-3-16 15:33
中间文字比较长的显示是空白的，哪句可以修改啊

给个例子，估计是有和你帖子中示例不同的字符

sunglowxian

wbperfect 发表于 2020-3-16 14:22

已经做好，感谢两位老师

sunglowxian

taller 发表于 2020-3-17 07:27
给个例子，估计是有和你帖子中示例不同的字符

已经做好，感谢两位老师