如何將特定行數據導出到另一個電子表格

Question

我完全是VBA的新手，並且需要根據特定列中的值將特定行導出到另一個電子表格。不幸的是我不能發表一個例子，所以我會試着解釋。我有一張由A到D列和任意數量的行組成的工作表。我需要將列C中任何位置包含[DV]的所有行復制到另一個電子表格中的另一個工作表。

我還有另外幾個變種，我也需要做，但我希望如果我得到這一個，我可以修改它，以適應其他人的需要。

Answer 1

您必須閱讀C列下的每一行（for each）。在每一行中，您都需要對該單元格中的字符進行細分。 If它們與您的條件（DV）相匹配，而不是將其複製到所需的工作表中。

您沒有提供任何代碼，所以這是最好的，我可以幫助你。如果你想獲得更多的幫助，你需要提供一些代碼，並顯示你被困住的地方。

Answer 2

這應該這樣做：

Dim cl As Range 
dim wb as workbook 
dim ws as worksheet 

set wb = workbooks.open("Your other workbook path & name") 
set ws = wb.Sheets("destination sheet name") 

For Each cl In Range("D1:D" & Range("D1").End(xlDown).Row) 
    If InStr(cl.Offset(0, -1).Value, "[DV]") > 0 Then 
     cl.EntireRow.Copy 
     ws.Range("A50000").End(xlUp).Offset(1, 0).PasteSpecial 

    End If 
Next cl