VBA學習第五課
阿新 • • 發佈:2018-11-29
Sub shishi() Dim rng As Range For Each rng In Range("b2:b20") If rng.Offset(0, -1) = "男" Then rng = "先生" Else: rng = "女士" End If Next End Sub
Sub shishi() Dim i As Integer For i = 1 To Range("a65536").End(xlUp).Row If Sheet1.Range("d" & i).Value = "一車間" Then Sheet1.Range("d" &i).EntireRow.CopySheet2.Range("a"&Range("a65536").End(xlUp).Row) End If Next End Sub
Sub aaa() Dim sht As Worksheet Dim i As Integer For i = 2 To Sheet1.Range("a65536").End(xlUp).Row Sheet1.Range("d" & i).EntireRow.Copy Sheets(Sheet1.Range("d" & i).Value).Range("a" & Sheets(Sheet1.Range("d" & i).Value).Range("a65536").End(xlUp).Row + 1) Next For Each sht In Worksheets sht.Copy ActiveWorkbook.SaveAs Filename:="d:\data\" & sht.Name & ".xlsx" ActiveWorkbook.Close Next End Sub
Sub 巨集1() Dim sht As Worksheet For Each sht In Sheets(Array("一車間", "二車間", "財務部", "銷售1部", "經理室", "人力資源部", "銷售2部", "技改辦")) Sheet1.Range("a1").Resize.AutoFilter Field:=4, Criteria1:=sht.Name Sheet1.Range("a1").Resize(Sheet1.Range("a65536").End(xlUp).Row, 6).Copy Sheets(sht.Name).Range("a1") sht.Copy ActiveWorkbook.SaveAs Filename:="d:\data\" & sht.Name & ".xlsx" ActiveWorkbook.Close Next End Sub