麻烦老师帮写个代码，谢谢

lxchk0000

1、把A1里面project提取出来放到D1，code提取出来放到E1，date提取出来放到F1。
2、更新A1内容后自动覆盖D、E、F列原来内容。
3、A1内容至少有500个类型以上。


详见附件，谢谢！

shiruiqiang

1、建议python；2、复制的话，建议复制f12下的“预览”

gwjkkkkk

请楼主参考附件。。。

dambcer

PQ处理比   VBA方便

LIUZHU

如果你装了WPS，这问题就是几句代码的事情。
A1单元格的内容其实是一个数组，每个数组元素都是JSON格式的对象，在WPS利用JS宏很好处理。

LIUZHU

附件请测试，不过需要用WPS

洋务德雷

正则表达式完美解决！

fzxba

1. Sub test1()
   
2.   Dim oDom As Object, oWin As Object
   
3.   Dim ar() As String, br, i As Long, j As Long
   
4.   Set oDom = CreateObject("HtmlFile")
   
5.   Set oWin = oDom.parentWindow
   
6.   br = Array("project", "code", "date")
   
7.   oWin.execScript "var db=" & Range("A1").Value & ";r=db.length-1;"
   
8.   ReDim ar(oWin.r, UBound(br))
   
9.   For i = 0 To UBound(ar)
   
10.     For j = 0 To UBound(br)
    
11.       ar(i, j) = oWin.eval("db[" & i & "]['" & br(j) & "']")
    
12.     Next
    
13.   Next
    
14.   With Range("D1")
    
15.     .CurrentRegion.ClearContents
    
16.     .Resize(, j) = br
    
17.     .Offset(1).Resize(i, j) = ar
    
18.   End With
    
19.   Set oWin = Nothing
    
20.   Set oDom = Nothing
    
21.   Beep
    
22. End Sub

复制代码

lxchk0000

gwjkkkkk 发表于 2022-12-26 21:17
请楼主参考附件。。。

谢谢老师，太好用了

lxchk0000

LIUZHU 发表于 2022-12-27 09:32
附件请测试，不过需要用WPS

谢谢