我是VBA的新手,需要根据特定列中的值将特定行导出到另一个电子表格。不幸的是我不能发表一个例子,所以我会试着解释一下。我有一张由A到D列和任意行组成的工作表。我需要将C列中任何位置包含[DV]的行复制到另一个电子表格中的另一个工作表中。
我还需要另外几个变种,但是我希望如果我得到这个,我可以修改它以满足我对其他人的需求。
答案 0 :(得分:0)
您必须阅读C列(for each
)下的每一行。在每一行中,您需要对该单元格中的字符进行子字符串。 If
它们符合您的条件(DV),而不是复制到您想要的工作表。
您没有提供任何代码,所以这是我能帮到您的最佳选择。如果您需要更多帮助,则需要提供一些代码,并显示您遇到的确切位置。
答案 1 :(得分:0)
这应该这样做:
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