Excel VBA
潘大仙是大锤
这个作者很懒,什么都没留下…
展开
-
Excel VBA多文件合并
'遍历所有文件Dim str As StringDim wb As Workbookstr = Dir("D:\data\pre\*.*xls*")For i = 1 To 100 'Range("a" & i) = str Set wb = Workbooks.Open("D:\data\pre\" & str) '跨文件保存 wb.Sheets(1).Copy after:=ThisWorkbook.Sheets(This.原创 2020-07-12 16:05:37 · 759 阅读 · 0 评论 -
Excel VBA工作簿操作
1、打开文件与新建文件'打开文件Application.ScreenUpdating = False '关闭屏幕更新Application.DisplayAlerts = False '关闭警告Workbooks.Open Filename:="D:\XSL\文件夹\1.xls"ActiveWorkbook.Sheets(1).Range("a2") = "又到此一游"ActiveWorkbook.SaveActiveWorkbook.CloseApplication.DisplayAle原创 2020-05-17 22:37:19 · 584 阅读 · 0 评论 -
Excel VBA之For与For Each
1、For 与 For Each2、' For 和 For each 循环Dim i As IntegerFor i = 1 To 10 Range("a" & i) = iNextDim rng As RangeFor Each Rng In Range("a1:a10") i = i + 1 Rng = iNext'For Each应用Dim biao As WorksheetFor Each biao In Sheets If bi原创 2020-05-17 22:00:18 · 1929 阅读 · 0 评论 -
Excel VBA之工作表
Sheets/Worksheets方法:Select Add Delete Copy属性:Name CountSub 宏1()'选择工作表'Sheet1.Select'Sheets("Sheet1").Select'Sheets(1).Select'插入表'Sheets.Add'Sheets.Add after:=Sheet3, Count:=3'For i = 1 To 3' Sheets.Add after:=Sheet3'Next'获取表数'Sheet3.Ra原创 2020-05-17 21:42:13 · 507 阅读 · 0 评论