Excel使用经验总结
。
不停下脚步的乌龟
这个作者很懒,什么都没留下…
展开
-
对整表文本使用clean()函数
Sub Text_Clean()Dim arr, i, j, m, n, sh As WorksheetFor Each sh In Worksheets arr = sh.UsedRange m = UBound(arr) n = UBound(arr, 2) For i = 1 To m For j = 1 To n arr(i, j) = Application.Clean(arr(i, j)) Next原创 2021-04-09 16:13:08 · 684 阅读 · 0 评论 -
将一个工作簿的多表按表名保存为多个文件
Sub 分拆工作表()Dim sht As WorksheetDim MyBook As WorkbookSet MyBook = ActiveWorkbookFor Each sht In MyBook.Sheetssht.CopyActiveWorkbook.SaveAs Filename:=MyBook.Path & “” & sht.Name, FileFormat:=xlNormal '将工作簿另存为EXCEL默认格式ActiveWorkbook.CloseNext原创 2021-03-25 14:01:02 · 485 阅读 · 0 评论 -
将总表按某列拆分成多个表
Sub NewSheets()Dim d As Object, sht As Worksheet, arr, brr, r, kr, i&, j&, k&, x&Dim Rng As Range, Rg As Range, tRow&, tCol&, aCol&, pd&Application.ScreenUpdating = FalseApplication.DisplayAlerts = FalseSet d = CreateOb原创 2021-03-18 15:48:23 · 1286 阅读 · 0 评论 -
【Vlookup】根据一列匹配多列公式
=vlookup($A1,Table,column()-x,0)第一个参数:只固定列号,意为按照某一列进行数据匹配;第二个参数:正常框选要匹配数据的数据表;第三个参数:函数column()能返回当前列的列号(A列为1,以此类推),column()-x用来确定要匹配数据的列数,并且可以随当前列号的变化相应变化。第四个参数:0指精确匹配。...原创 2021-04-17 15:57:46 · 3617 阅读 · 0 评论