Excel的值在不同的片材

Question

我有一個Excel片狀下面

表名稱的一個：Raw

數據：

1. 藍VALUE1 VALUE2值3 VALUE4
2. 綠色值5 value6 value7 value8
3. 黑色值9值10值11值12
4. 藍色值13值14值15值16
5. 綠色值17值18值19值20。 。 。

我想自動創建名爲藍色，綠色，黑色的不同紙張並在其中添加這些行。所以我想有：

表名：Blue

1. 藍值1值2值3 VALUE4
2. 藍value13 value14 value15 value16

表名稱：綠

1. 綠色值5 value6 value7 value8
2. 綠色value17 value18 value19 value20

表名：黑

1. 黑色value9 value10 value11 value12

有什麼想法？

Answer 1

繼承人的快速程序，讓你開始...

Sub CopyColorRows() 
    Dim wb As Workbook 
    Dim shData As Worksheet 
    Dim shBlue As Worksheet, shGreen As Worksheet, shBlack As Worksheet 
    Dim rw As Range 

    Set wb = ActiveWorkbook 
    Set shData = wb.Sheets("Data") 

    Application.DisplayAlerts = False 
    On Error Resume Next 

    Set shBlue = wb.Sheets("Blue") 
    If Err.Number <> 0 Then 
     Err.Clear 
    Else 
     shBlue.Delete 
    End If 
    Set shBlue = wb.Sheets.Add 
    shBlue.Name = "Blue" 

    Set shGreen = wb.Sheets("Green") 
    If Err.Number <> 0 Then 
     Err.Clear 
    Else 
     shGreen.Delete 
    End If 
    Set shGreen = wb.Sheets.Add 
    shGreen.Name = "Green" 

    Set shBlack = wb.Sheets("Black") 
    If Err.Number <> 0 Then 
     Err.Clear 
    Else 
     shBlack.Delete 
    End If 
    Set shBlack = wb.Sheets.Add 
    shBlack.Name = "Black" 

    Application.DisplayAlerts = False 
    On Error GoTo 0 

    For Each rw In shData.UsedRange.Rows 
     Select Case rw.Cells(1, 1) 
     Case "Blue" 
      rw.Copy shBlue.UsedRange.Offset(1, 0) 
     Case "Green" 
      rw.Copy shGreen.UsedRange.Offset(1, 0) 
     Case "Black" 
      rw.Copy shBlack.UsedRange.Offset(1, 0) 
     End Select 
    Next 
End Sub