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