Function URLDecode(ByVal strIn) URLDecode = "" Dim sl : sl = 1 Dim tl : tl = 1 Dim key : key = "%" Dim kl : kl = Len(key) sl = InStr(sl, strIn,
2018-01-24
Public Sub AllInternalPasswords() ' Breaks worksheet and workbook structure passwords. Bob McCormick ' probably originator of base code algorithm mo
2018-01-24
Sub 分表() Dim cellall As Integer FILENAMEA = ThisWorkbook.Name Windows(FILENAMEA).Activate Application.ScreenUpdating = False '关闭屏幕刷新 Applicatio
2018-01-24
Sub 汇总多个工作表() '定义对话框变量 Dim fd As FileDialog Set fd = Application.FileDialog(msoFileDialogFilePicker) '新建一个工作簿 Dim newwb As Workbook
2018-01-24
Sub 合并当前目录下所有工作簿的全部工作表() Dim MyPath, MyName, AWbName Dim Wb As workbook, WbN As String Dim G As Long Dim Num As Long Dim BOX As String Applicati
2018-01-24
Sub 合并当前工作簿下的所有工作表() Application.ScreenUpdating = False For j = 1 To Sheets.Count If Sheets(j).Name <> ActiveSheet.Name Then X = Ran
2018-01-23
Sub aa() Dim s As String [a1].CurrentRegion.Clear s = Dir(ThisWorkbook.Path & "\*.jpg") Do While s <> "" [a1] = "图片名称" [a6
2018-01-23
Sub SaveSeparately() Dim sht As Worksheet Application.ScreenUpdating = False ipath = ThisWorkbook.Path & "\" For Each sht In Sheets
2018-01-23
Sub 如何将一个Excel工作表的数据拆分成多个工作表() Dim Arr, Rng As Range, Sht As Worksheet, Dic As Object Dim k, t, Str As String, i As Long, lc As Long Applicat
2018-01-23