苏苏叶

2017年7月14日

摘要： 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)

[VBA]删除多余工作表

摘要： 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)

[VBA]获得工作表名称

摘要： 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)

[Python]斐波那契数列

摘要： ##斐波那契数列 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)

2017年7月13日

[VBA]斐波那契数列

摘要： Sub 斐波那契()Dim arrFor i = 3 To 100Cells(1, 1) = 0Cells(2, 1) = 1Cells(i, 1) = Cells(i - 1, 1) + Cells(i - 2, 1)NextEnd Sub 效果图阅读全文

posted @ 2017-07-13 18:01 苏苏叶阅读(1424) 评论(0) 推荐(0)

公告