如何有條件地將數據行從一個Excel工作表複製到另一個工作表

Question

我在我的「項目主文件」Excel工作表中放置了4列中的項目和項目詳細信息列表：項目類型，項目編號，項目值和項目經理'的名字。我想編寫一個宏，將這4列的內容從「項目主文件」工作表複製到同一工作簿中的另一個工作表（「細節」），但僅當該行包含項目類型「A」時纔可以。這可能嗎？ 問候， CK

Answer 1

相關的你的任務描述中，樣品Worksheet內容可能看起來像示於下表中：

Type Num Value Manager Name 
B  3 3.14 I. Newton 
A  5 2.71 T. Edison 
C  8 9.95 H. Ford 
A  1 4.99 S. Jobs 
D  4 21  G. Leibniz 

和相應的樣本VBA子CopyDetails()執行的任務如下所示：

Sub CopyDetails() 
    Dim ws As Worksheet 
    Dim LastRow As Long 

    Set ws = ThisWorkbook.Worksheets("Project Master") 
    LastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row 
    For i = 2 To LastRow 
    If (ws.Range("A" & i) = "A") Then 
     ws.Range("B" & i & ":D" & i).Copy Destination:=Worksheets("Details").Range("A" & i) 
    End If 
    Next i 
End Sub 

或者，你可以參考設置到Excel像如Worksheet對象：

Set ws = ThisWorkbook.Worksheets("Sheet1") 

希望這可能有所幫助。