目录
-
提取单元格中的数字部分,忽略其他字符(如下图)
Sub text()
Dim reg As Object, i%, arr
Set reg = CreateObject("vbscript.regexp")
arr = Range("a1:a10")
With reg
.Global = True
.Pattern = "[^0-9]"
For Each sh In arr
i = i + 1
arr(i, 1) = .Replace(sh, "")
Next
End With
[b1].Resize(UBound(arr), 1) = arr
Set reg = Nothing
End Sub
-
Excel建立的查询用VBA刷新
Sub 刷新数据()
ActiveWorkbook.RefreshAll
With ActiveSheet.UsedRange
End With