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