如果滿足某些條件，如何從另一張表中的每一行復制特定單元格？

Question

所以我的問題是這樣的。我有一個工作簿可以說2張。我已經從另一個程序和sheet1中自動創建了sheet2，我只希望sheet2中的一些信息。

我現在正在嘗試創建一個宏，它將檢查從14開始的每一行，E％大於15的值。如果滿足條件，我希望宏從C％和E％複製單元格值到sheet1讓我們在A5和B5中說，然後繼續到sheet2中的下一行，將值粘貼到A6 B6等等。

Sub Test() 
    Dim rng As Range 
    Dim lastRow As Long 
    Dim cell As Variant 


    With Sheets("Sheet2") 


     lastRow = .Range("E" & .Rows.Count).End(xlUp).Row 
     Set rng = .Range("E14:E" & lastRow) 


     For Each cell In rng 
      If cell.Value > 15 Then 
      'And here is where it gets bugged. I know theres something wrong with the .select but I couldnt think of any other way to 
      'pick only just the 2 cells needed. 
       Range(cell.Offset(0, -1), cell.Offset(0, 0)).Select 
       Selection.Copy 

       'In here there should also be some code to select where to place the copyed 
       'data but since it already got bugged couldnt really find a solution for 
       'it.. 
       Sheets("Sheet1").Select 
       ActiveSheet.Paste 
       Sheets("Sheet2").Select 

      End If 
     Next 
    End With 


End Sub 

Answer 1

所以我想我會把它放在一起：

Sub Test() 
Dim rng As Range 
Dim lastRow As Long 
Dim cell As Variant 
dim count as long 
count = 0 

With Sheets("Sheet2") 


    lastRow = .Range("E" & .Rows.Count).End(xlUp).Row 
    Set rng = .Range("E14:E" & lastRow) 


    For Each cell In rng 
     If cell.Value > 15 Then 
     'And here is where it gets bugged. I know theres something wrong with the   .select but I couldnt think of any other way to 
     'pick only just the 2 cells needed. 
      Range(cell.Offset(0, -1), cell.Offset(0, 0)).Select 
      Selection.Copy 
     'maybe use: Range(cell.Offset(0, -1), cell.Offset(0, 0)).copy 


      'In here there should also be some code to select where to place the copyed 
      'data but since it already got bugged couldnt really find a solution for 
      'it.. 
      Sheets("Sheet1").Activate 
      Range("A5", B5).offset(count, 0).PasteSpecial 'this will make it so that it starts in a5, and moves down a row each time 
      count = count + 1   'dont forget to increment count 

      Sheets("Sheet2").Activate 

     End If 
    Next 
End With 


End Sub 

，這就是有點粗糙的東西..

你可能包括一些錯誤處理，如：if not cell.value = "" then或也if not isNumeric(cell.value) then和那些一起將確保您只處理與數字非空白單元格。