提取数字保留正负号

cql465505

book1.zip (26.21 KB, 下载次数: 23)

2018-7-2 10:00 上传

点击文件名下载附件

liulang0808

楼主的模拟数据不多
就目前的数据看，可以根据关键字直接使用split处理啊
根据“北方品种.”拆分，判断下一部分是否是“-”即可
前面的也是一样

cql465505

谢谢 sheet2有很多数据

liucf

负号后面怎么会有一个点?

cql465505

谢谢 非常感谢 liucf

一把小刀闯天下

Option Explicit

Sub test()
  Dim arr, i, j, t
  arr = [a1].CurrentRegion.Value
  ReDim brr(1 To UBound(arr, 1), 1 To 3)
  For i = 1 To UBound(arr, 1)
    arr(i, 1) = Replace(Replace(arr(i, 1), "..", ".0种."), "北方品", vbNullString)
    t = Split(arr(i, 1), "种.")
    For j = 1 To UBound(t): brr(i, j) = Replace(t(j), "-.", "-"): Next
  Next
  [j1].Resize(UBound(brr, 1), UBound(brr, 2)) = brr
End Sub