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

如何将特定的数据行导出到另一个电子表格

2 个答案: