Excel 补充图片和使用正则提取字符

excel 可以这样插入图片

<table><img src="C:\图片\1.jpg"width="200"height="200">

复制代码到表格就会自动导入 C:\图片\1.jpg 图片。

="<table><img src=""C:\图片\"&A2&".jpg""width=""200""height=""200"">"

这样可以得到以A2为名称的图片

正则:

alt + f11 打开宏编辑器,插入模块

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