tutu_a的博客

注：将Str = Arr(i, 1) '关键字，中的1改为实际字段所在的列数命令从下面第一个Sub开始：Sub 如何将一个Excel工作表的数据拆分成多个工作表()Dim Arr, Rng As Range, Sht As Worksheet, Dic As ObjectDim k, t, Str As String, i As Long, lc As LongApplication.ScreenUpdating = False '关闭屏幕更新Arr = Range(“A1”).CurrentR

命令从下面第一个Sub开始：Sub 拆分多工作表() '将工作薄按工作表拆分成多个工作薄Dim PATH As StringPATH = Application.ActiveWorkbook.PATHDim sht As WorksheetApplication.ScreenUpdating = FalseFor Each sht In Sheetssht.CopyActiveWorkbook.SaveAs PATH & “” & sht.Name & “.xls”

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

命令从下面第一个Sub开始：Sub 合并不同工作簿的工作表到一个工作簿的不同工作表()Excel.Application.ScreenUpdating = FalseDim ARR()Dim WB As WorkbookDim N As StringDim SHT As WorksheetDim I As IntegerN = ActiveWorkbook.NameOn Error Resume NextARR = Application.GetOpenFilename(“Excel文件

命令从下面第一个Sub开始：Sub Collectwks()Dim Sht As Worksheet, rng As Range, Sh As WorksheetDim 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, AWbNameDim Wb As Workbook, WbN As StringDim G As Long, k As IntegerDim Num As LongDim BOX As StringApplication.ScreenUpdating = FalseMyPath = ActiveWorkbook.PathMyName = Dir(MyPath &

命令从下面第一个Sub开始：Sub 合并当前工作簿下的所有工作表()Application.ScreenUpdating = FalseFor j = 1 To Sheets.CountIf Sheets(j).Name <> ActiveSheet.Name ThenX = Range(“A1000000”).End(xlUp).Row + 1ActiveSheet.Cells(X, “AC”) = Sheets(j).NameSheets(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 WorksheetApplication.ScreenUpdating = FalseApplication.DisplayAlerts = Fal