tutu_a的博客

注：将Str = Arr(i, 1) '关键字，中的1改为实际字段所在的列数 命令从下面第一个Sub开始： 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 Application.ScreenUpdating = False '关闭屏幕更新 Arr = Range(“A1”).CurrentR

命令从下面第一个Sub开始： Sub 拆分多工作表() '将工作薄按工作表拆分成多个工作薄 Dim PATH As String PATH = Application.ActiveWorkbook.PATH Dim sht As Worksheet Application.ScreenUpdating = False For Each sht In Sheets sht.Copy ActiveWorkbook.SaveAs PATH & “” & sht.Name & “.xls”

命令从下面第一个Sub开始： Sub 在J列添加卡的名字() Dim sht As Worksheet For Each sht In ThisWorkbook.Sheets lr = sht.Cells(Rows.Count, “e”).End(3).Row With sht .Range(“j1”).Value = “WF” .Range(“j2:j” & lr) = “WF-” & Right(.Name, 4) End With Next sht End Sub Sub 在G列添加s

命令从下面第一个Sub开始： Sub 合并不同工作簿的工作表到一个工作簿的不同工作表() Excel.Application.ScreenUpdating = False Dim ARR() Dim WB As Workbook Dim N As String Dim SHT As Worksheet Dim I As Integer N = ActiveWorkbook.Name On Error Resume Next ARR = Application.GetOpenFilename(“Excel文件

命令从下面第一个Sub开始： Sub Collectwks() Dim Sht As Worksheet, rng As Range, Sh As Worksheet Dim Trow&, k&, arr, brr, i&, j&, book&, a& Dim p,f, f,f, Headr, Keystr’ With Application.FileDialog(msoFileDialogFolderPicker) ‘取得用户选择的文件夹路径 .AllowM

命令从下面第一个Sub开始： Sub 合并当前目录下所有工作簿的全部工作表() Dim MyPath, MyName, AWbName Dim Wb As Workbook, WbN As String Dim G As Long, k As Integer Dim Num As Long Dim BOX As String Application.ScreenUpdating = False MyPath = ActiveWorkbook.Path MyName = Dir(MyPath &

命令从下面第一个Sub开始： Sub 合并当前工作簿下的所有工作表() Application.ScreenUpdating = False For j = 1 To Sheets.Count If Sheets(j).Name <> ActiveSheet.Name Then X = Range(“A1000000”).End(xlUp).Row + 1 ActiveSheet.Cells(X, “AC”) = Sheets(j).Name Sheets(j).UsedRange.Copy C

命令从下面第一个sub开始： Sub 指定文件夹的多表汇总到一个工作簿() Dim P,Bookn, Bookn,Bookn, Book,Keystr1,Keystr2,Shtname, Keystr1, Keystr2, Shtname,Keystr1,Keystr2,Shtname, K& Dim sht As Worksheet, Sh As Worksheet Application.ScreenUpdating = False Application.DisplayAlerts = Fal