1、提取数字
Function sz(i As String) As String
Dim regex As Object
Set regex = CreateObject("VBScript.RegExp")
regex.Pattern = "[^0-9]"
regex.ignoreCase = False
regex.Global =...
1. 取得所有的Sheet，并在当前单元格上列出
Sub GetAllSheets()
For i = 1 To Sheets.Count
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.Value = Sheets(i).Name
Ne...
Sub Mail_Text_in_Body()Dim msg As String, cell As RangeDim Recipient As String, Subj As String, HLink As StringDim Recipientcc As String, Recipientbcc As StringRecipient = "someone@21cn.com"Recipient...
