摘要：
问题描述：汇总多个工作表的指定字段到sheet1里面，并去除重复的字段内容。 Sub 去重汇总（） Dim sht As Worksheet, j As Integer, x As Integer Set d = CreateObject("scripting.dictionary") For Ea 阅读全文
posted @ 2017-07-14 11:36
苏苏叶
阅读(3505)
评论(0)
推荐(0)
摘要：
sub 汇总多个工作簿() Application.ScreenUpdating = False Dim wb As Workbook, f As String, l As String, n As String, m As String, j As Integer f = ThisWorkbook 阅读全文
posted @ 2017-07-14 11:28
苏苏叶
阅读(6665)
评论(0)
推荐(0)
摘要：
sub 批量新建指定名称的工作表() Dim i As Integer For i = 2 To 10 '根据实际情况修改i大小 Worksheets.Add after:=Worksheets(ThisWorkbook.Worksheets.Count) ActiveSheet.Name = Sh 阅读全文
posted @ 2017-07-14 11:19
苏苏叶
阅读(2172)
评论(0)
推荐(0)
摘要：
sub 删除多余工作表() Dim i As Integer Application.DisplayAlerts = False For i = Worksheets.Count To 1 step -1 If i >7 Then ThisWorkbook.Worksheets(i).Delete 阅读全文
posted @ 2017-07-14 11:17
苏苏叶
阅读(1303)
评论(0)
推荐(0)
摘要：
sub 获得工作表名称() Dim i As Integer For i = 1 To Worksheets.Count Cells(i, 2) = Worksheets(i).Name Next End Sub 阅读全文
posted @ 2017-07-14 11:16
苏苏叶
阅读(961)
评论(0)
推荐(0)
摘要：
##斐波那契数列 f=[0,1] for i in range(2,20): a=f[i-1]+f[i-2] f.append(a)print(f) 效果图： 阅读全文
posted @ 2017-07-14 11:14
苏苏叶
阅读(185)
评论(0)
推荐(0)
浙公网安备 33010602011771号