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 =...
函数作用:自动获取指定月的工作日'################################################################Sub 自动填充工作日(month1 As Integer)'获取指定月份天数Dim days As IntegerDim xdate As Datexdate = CDate(...
1. 取得所有的Sheet，并在当前单元格上列出
Sub GetAllSheets()
For i = 1 To Sheets.Count
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.Value = Sheets(i).Name
Ne...
