sheet1 表1 ??sheets(1) 表格中的第一張表 sheets("十月")表格中的“十月”的那張表

Sub aa()Sheets(Sheets.Count).Name = "1月"Dim i As IntegerFor i = 2 To 12Sheets.Add after:=Sheets(Sheets.Count)Sheets(Sheets.Count).Name = i & "月"NextEnd Sub

　　

Sub a()Sheets.Add after:=Sheets(Sheets.Count), Count:=100
Excel.Application.DisplayAlerts = FalseDim a As IntegerFor a = 1 To 100Sheets(Sheets.Count).DeleteNextExcel.Application.DisplayAlerts = TrueEnd Sub

　　

Sub aa()Dim i As IntegerFor i = 2 To Sheets.CountSheets("部門").Range("a" & i - 1) = Sheets(i).NameNextEnd Sub

　　

Sub aa()Dim i As IntegerFor i = 1 To 31Sheets(Sheets.Count).Copy after:=Sheets(Sheets.Count)Sheets(Sheets.Count).Name = "5月" & i & "日"Sheets(Sheets.Count).Range("E5") = "2016/05/" & iNextEnd Sub

　　

Sub bb()
Dim i As IntegerFor i = 2 To Sheets.CountSheet1.Range("B" & i + 8) = Sheets(i).Range("E5")Sheet1.Range("c" & i + 8) = Sheets(i).Range("E6")Sheet1.Range("d" & i + 8) = Sheets(i).Range("E44")NextEnd Sub

　　

Sub aa()
'線性思維 代碼量大 卡頓
Dim i As Integer
Dim aa As Integer
Dim bb As IntegerFor bb = 100 To 1 Step -1
For i = 1 To Sheets.Count
For aa = 1 To 200'第一循環 賦值科目If Sheets(i).Range("b" & aa) = "" ThenExit ForEnd IfIf Sheets(i).Range("b" & aa) = "理工" ThenSheets(i).Range("c" & aa) = "LG"ElseIf Sheets(i).Range("b" & aa) = "文科" ThenSheets(i).Range("c" & aa) = "WK"ElseIf Sheets(i).Range("b" & aa) = "財經" ThenSheets(i).Range("c" & aa) = "CJ"End If'第二循環 賦值先生女士If Sheets(i).Range("e" & aa) = "" ThenExit ForEnd IfIf Sheets(i).Range("e" & aa) = "男" ThenSheets(i).Range("f" & aa) = "先生"ElseIf Sheets(i).Range("e" & aa) = "女" ThenSheets(i).Range("f" & aa) = "女士"End If'第三循環 空行刪除If Sheets(i).Range("d" & bb) = "" ThenSheets(i).Range("d" & bb).EntireRow.DeleteEnd If
NextNextNextEnd Sub

　　

Sub aa()
'優化 尋找共性很重要
Dim i As Integer
Dim aa As IntegerFor i = 1 To Sheets.Count
For aa = 200 To 1 Step -1'第一循環 賦值科目If Sheets(i).Range("b" & aa) = "理工" ThenSheets(i).Range("c" & aa) = "LG"ElseIf Sheets(i).Range("b" & aa) = "文科" ThenSheets(i).Range("c" & aa) = "WK"ElseIf Sheets(i).Range("b" & aa) = "財經" ThenSheets(i).Range("c" & aa) = "CJ"End If'第二循環 賦值先生女士If Sheets(i).Range("e" & aa) = "男" ThenSheets(i).Range("f" & aa) = "先生"ElseIf Sheets(i).Range("e" & aa) = "女" ThenSheets(i).Range("f" & aa) = "女士"End If'第三循環 空行刪除If Sheets(i).Range("d" & aa) = "" ThenSheets(i).Range("d" & aa).EntireRow.DeleteEnd IfNextNextEnd Sub

轉載于:https://www.cnblogs.com/yigeduanpian/p/10041719.html

總結

以上是生活随笔為你收集整理的VBA学习第三课的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。