EXCEL拆分问题，如图所示，VBA

leon01314

。。。。。。。。。。。。。。。。。。。。。。

leon01314

自己顶下，不能沉了

kaohsing

不用正则也可以：
Sub kaohsing()
   dim arr
   dim irow%,i%
    irow = [d65536].End(xlUp).Row
     arr = Sheet1.[d1].Resize(irow, 2)
     For i = 1 To irow
             arr(i, 2) = Replace(arr(i, 1), "~", "")
      Next
   Sheet1.[d1].Resize(irow, 2) = arr
End Sub

leon01314

kaohsing 发表于 2017-2-12 09:51
不用正则也可以：
Sub kaohsing()
   dim arr

谢谢帮助，你的答案不是我要的结果。
不过问题已经解决