ハイライトされたグリーンを別のワークシートにコピー

Question

同じシートにセルをコピーすることができました。しかし、それは私の主な目的ではない。強調表示されたセルをSheet2やSheet3のような別のワークシートにコピーできるはずです。それ、どうやったら出来るの？以下は

は、多くの人々を切り株のみ、特定の細胞を、コピーする方法を考え出すに良い仕事

Sub copyHighlight() 
    Dim ws As Worksheet 
    Dim lr As Long, i As Long, u As Long 

    Set ws = ThisWorkbook.Worksheets("Sheet1") 

    With ws 
     lr = .Cells(Rows.Count, 1).End(xlUp).Row 
     If 2 > lr Then Exit Sub 

     u = 2 
     For i = 2 To lr 
      If .Cells(i, 1).Interior.ColorIndex = 4 Then 
       .Cells(i, 1).Copy .Cells(u, "E") 
       u = u + 1 
      End If 
     Next i 
    End With 

    Set ws = Nothing 
End Sub 

Answer 1

私は同じシートにコピーするためにやっていることです。

小さな変更：以下のようにSheets("Sheet2")を追加します。

Sub copyHighlight() 
    Dim ws As Worksheet 
    Dim r As Long, i As Long, u As Long 

    Set ws = ThisWorkbook.Worksheets("Sheet1") 

    With ws 
     lr = .Cells(Rows.Count, 1).End(xlUp).Row 
     If 2 > lr Then Exit Sub 

     u = 2 
     For i = 2 To lr 
      If .Cells(i, 1).Interior.ColorIndex = 4 Then 
       .Cells(i, 1).Copy Sheets("Sheet2").Cells(u, "E") 
       u = u + 1 
      End If 
     Next i 
    End With 

    Set ws = Nothing 
End Sub 

Answer 2

あなたのコードは非常に良いですが、あなたが望むものを達成するために、あなただけの、いくつかの他のシートへの参照を必要とする、以下に示すように（私はあなたのコードをコピーして、コメントを追加しますそれを動作させるための部品）。それが働いています

Sub copyHighlight() 
Dim ws1 As Worksheet 
Dim ws2 As Worksheet 
Dim r As Long, i As Long, u As Long 

Set ws1 = ThisWorkbook.Worksheets("Sheet1") 
'here you set reference to another worksheet 
Set ws2 = ThisWorkbook.Worksheets("Sheet2") 

With ws1 
    lr = .Cells(Rows.Count, 1).End(xlUp).Row 
    If 2 > lr Then Exit Sub 

    u = 2 
    For i = 2 To lr 
     If .Cells(i, 1).Interior.ColorIndex = 4 Then 
      .Cells(i, 1).Copy ws2.Cells(u, "E") 'NOTE, that here we used reference to another worksheet 
      u = u + 1 
     End If 
    Next i 
End With 

Set ws1 = Nothing 
Set ws2 = Nothing 
End Sub