Как условно скопировать строки данных из одного листа Excel в другой

Question

У меня есть список проектов и сведений о проекте в моем рабочем листе Excel «Project Master», размещенном в 4 столбцах: тип проекта, номера проектов, значение проекта и руководители проектов 'имена. Я хочу написать макрос, чтобы скопировать содержимое этих 4 столбцов из рабочего листа «Мастер проекта» на другой рабочий лист («Сведения») в той же книге, но только если строка содержит тип проекта «А». Это возможно? С уважением, 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 Sub 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") 

Надеюсь, это поможет.