提取字符串中部分字段

转角处的沉思

请教下如图这样的字符串，示例只列了一行，实际有很多行，想要将A列内容提取到D列，效果见D列字段，需如何处理，感谢。

ykcbf1100

附件供参考。。。

ykcbf1100

代码以附件为准

1. Sub ykcbf()  '//2024.1.31
   
2.     r = Me.Cells(Rows.Count, 1).End(3).Row
   
3.     arr = Me.Range("a1:d" & r)
   
4.     For i = 2 To UBound(arr)
   
5.         arr(i, 4) = Split(Replace(arr(i, 1), "==", ""), "=")(0)
   
6.     Next
   
7.     Me.Range("a1:d" & r) = arr
   
8. End Sub
   

复制代码

转角处的沉思

ykcbf1100 发表于 2024-1-31 11:05
附件供参考。。。

感谢帮助，效果很好。

dragonthree

楼主的意思是要靠猜吗

feilanga

第一次看题，感觉不可能这么简单，第二次看题，1行案例，猜题和猜女孩心思一样，放弃了。第三次看到答案被认可了，我沉默了

ykcbf1100

dragonthree 发表于 2024-1-31 11:25
楼主的意思是要靠猜吗

楼主的意思还是明显的，把A列字串中的AXX提取到D列

转角处的沉思

dragonthree 发表于 2024-1-31 11:25
楼主的意思是要靠猜吗

截图就是示例

cjc209

正则提取           

cjc209

function test(){
        Range("d2").Value2=Range("a2").Value2.match(/(?<===).*?(?==)/)[0]
}