批量提取excel单元格内字段后的内容

ser_xiaochen · 发表于 2019-2-15 00:06

批量提取excel单元格内字段后的内容
UC截图20190214233439.png

如图所示：
希望是把单元格内text该字段后面双引号内容内容提取出来用空格隔开（用指定特殊符号隔开也可以）

附件：

sample.zip (8.61 KB, 下载次数: 11)

taller · 发表于 2019-2-15 02:37

这个数据是JSON格式，VBA需要引用扩展库解析JSON，可以用正则提取

Sub RegMultiDeliminator()
Set reg = CreateObject("vbscript.regexp")
reg.Pattern = "([\u4e00-\u9fa5“”]+)"
reg.Global = True
For Each c In Range("A2:A3")
s = ""
Set mh = reg.Execute(c.Value)
For j = 0 To mh.Count - 1
s = s & " " & mh(j)
Next
c.Offset(10, 0).Value = Trim(s)
Next
End Sub

复制代码

taller · 发表于 2019-2-15 02:38

参考文件

sample (2).zip (14.02 KB, 下载次数: 8)

ser_xiaochen · 发表于 2019-2-15 11:39

taller 发表于 2019-2-15 02:37
这个数据是JSON格式，VBA需要引用扩展库解析JSON，可以用正则提取

好的，谢谢，不过有个小疑问，字母会被过滤掉么~~1、字母“T”好像被空格代替了
2、输出的结果能放在第二列么，例如途中的B列
UC截图20190215113813.png

碣石山人 · 发表于 2019-2-15 11:55

ser_xiaochen 发表于 2019-2-15 11:39
好的，谢谢，不过有个小疑问，字母会被过滤掉么~~1、字母“T”好像被空格代替了
2、输出的结果能放在第 ...

要善于学习，自己尝试一下。我其实也不懂，别人给了代码需要研究，学习：
第一个问题，如果不过滤小写字母就无法完全达到你的目的，如果需要保留大写字母则
reg.Pattern = "([A-Z\u4e00-\u9fa5“”]+)"

我自己摸索的，“\u4e00”和“\u9fa5”是unicode编码，并且正好是中文编码的开始和结束的两个值，所以这个正则表达式可以用来判断字符串中是否包含中文。加上了A-Z\我觉得应该是把大写字母一起提取出来。

第二个问题， c.Offset(0, 1).Value = Trim(s)

还望高手指正！

lsdongjh · 发表于 2019-2-15 12:07

Function GetJson(strJson As String) As String
Dim objHTML As Object, objWin As Object
Dim lngCount As Long, lngID As Long, strResult As String
Set objHTML = CreateObject("htmlfile")
Set objWin = objHTML.parentWindow
objWin.execScript "var json = " & strJson, "JScript"
lngCount = objWin.eval("json.length")
For lngID = 0 To lngCount - 1
strResult = strResult & " " & objWin.eval("json[" & lngID & "].text")
Next
GetJson = strResult
End Function
Sub Test()
Dim strJson As String
strJson = Sheet1.Range("A3").Value
MsgBox GetJson(strJson)
End Sub

复制代码

ser_xiaochen · 发表于 2019-2-15 13:21

本帖最后由 ser_xiaochen 于 2019-2-15 13:23 编辑

lsdongjh 发表于 2019-2-15 12:07

有弹窗，但是这个是针对A3单元格，而且结果没有输入到B列，在后面加 c.Offset(0, 1).Value = Trim(s)和加范围“A：A“或者”A2：A 3”提示调试错误

taller · 发表于 2019-2-15 13:35

ser_xiaochen 发表于 2019-2-15 11:39
好的，谢谢，不过有个小疑问，字母会被过滤掉么~~1、字母“T”好像被空格代替了
2、输出的结果能放在第 ...

改一下正则表达式就可以

Sub RegMultiDeliminator()
Set reg = CreateObject("vbscript.regexp")
reg.Pattern = """:""(.*?)"""
reg.Global = True
For Each c In Range("A2:A3")
s = ""
Set mh = reg.Execute(c.Value)
For j = 0 To mh.Count - 1
s = s & " " & mh(j).submatches(0)
Next
c.Offset(0, 1).Value = Trim(s)
Next
End Sub

复制代码

taller · 发表于 2019-2-15 13:36

参考文件

sample.7z (14.92 KB, 下载次数: 6)

lsdongjh · 发表于 2019-2-15 14:35

ser_xiaochen 发表于 2019-2-15 13:21
有弹窗，但是这个是针对A3单元格，而且结果没有输入到B列，在后面加 c.Offset(0, 1).Value = Trim(s)和 ...

真心无语了，楼主是伸手党？给你了通用的方法，自己不知道用？

		自动登录	找回密码
密码			免费注册

[求助] 批量提取excel单元格内字段后的内容

评分