VBA练习

oyzjo

Sub test123()
Dim cc As Worksheet
For Each cc In ThisWorkbook.Worksheets
If cc.Name Like "*" & "物品名称" & "*" And Not (cc.Name Like "*" & "电子物品" & "*") Then
cc.Cells.Copy Sheet1.Range("A1")
End If

If cc.Name Like "*" & "物品名称" & "*" And cc.Name Like "*" & "电子物品" & "*" Then
cc.Cells.Copy Sheet2.Range("A1")
End If

If cc.Name Like "*" & "仓库" & "*" Then
cc.Cells.Copy Sheet3.Range("A1")
End If

Next

End Sub

2288liu