Function GetStr(rng As Range)
With CreateObject("VBscript.regexp")
.Global = True
.Pattern = "[A-Za-z0-9\-]{6,}"
If .Execute(rng).Count = 0 Then
GetStr = ""
Else
GetStr = .Execute(rng)(0)
End If
End With
End Function
.Pattern = 后面接正则表达式
单元格输入 = GetStr(A1) 即可使用函数
excel 多个工作簿合并到一个工作簿:
在任一个工作表标签上点击右键,选择“查看代码”。
Sub 工作薄间工作表合并()
Dim FileOpen
Dim X As Integer
Application.ScreenUpdating = False
FileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(*.xls*),*.xls*", MultiSelect:=True, Title:="合并工作薄")
X = 1
While X <= UBound(FileOpen)
Workbooks.Open Filename:=FileOpen(X)
Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
X = X + 1
Wend
ExitHandler:
Application.ScreenUpdating = True
Exit Sub
errhandler:
MsgBox Err.Description
End Sub
The json extension is missing.
Install it or recompile php without --disable-json
The phar extension is missing.
Install it or recompile php without --disable-phar
The iconv OR mbstring extension is required and both are missing.
Install either of them or recompile php without --disable-iconv