Question

使用VBA，我需要根据一列数据复制某些行，然后粘贴到另一工作表中。诀窍是我需要复制的行数总是在变化。宏必须使用“ A”列复制所有行，直到找到短语“ Respondent ID”。然后，我需要它来复制上面的所有行并将其粘贴到工作表B中。我在另一个宏中找到了一些看起来有所帮助的内容，但是在转换时遇到了麻烦…

Sheets("WorksheetA").Select
Columns("A:A").Select
       Selection.Find(What:="Respondent ID", after:=ActiveCell, 
LookIn:=xlFormulas _
           , LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, 
           _ MatchCase:=False, SearchFormat:=False).Activate
       Rows(ActiveCell.Row - 1).Select
       Selection.Copy
       Rows("1:1").Select
       ActiveSheet.Paste

但这仅复制一行，并且仅复制到同一工作表中。你能帮忙吗？

Answer 1

我找到了一种对我有用的方法。如果您也尝试这样做，请尝试查找具有该特定值的单元格（在这种情况下为“ Respondent ID”），然后清除内容或删除该行下的所有行（我保留了清除的内容。）然后，您可以复制并粘贴剩余数据。

default_factory

当行数总是变化时，VBA在工作表之间复制/粘贴行吗？

1 个答案: