Excel攻略
合并当前工作簿下的所有工作表
Sub 合并当前工作簿下的所有工作表() Application.ScreenUpdating = False For j = 1 To Sheets.Count If Sheets(j).Name <> ActiveSheet.Name Then X = Ran
2018-01-23
1.2K+
0
0
批量导入硬盘中的图片文件名称到Excel
Sub aa() Dim s As String [a1].CurrentRegion.Clear s = Dir(ThisWorkbook.Path & "\*.jpg") Do While s <> "" [a1] = "图片名称" [a6
2018-01-23
1.2K+
0
0
拆分excel工作薄里的多个工作表为多个工作薄
Sub SaveSeparately() Dim sht As Worksheet Application.ScreenUpdating = False ipath = ThisWorkbook.Path & "\" For Each sht In Sheets
2018-01-23
1.2K+
0
0
按列将一个Excel工作表的数据拆分成多个工作表
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
1.2K+
0
0