0

宏新手在这里....

我正在尝试根据特定行中单元格的内容将某个工作表范围内的某些单元格粘贴到另一个工作表中。例如，在 B5:B100 范围内，当相关行的 B 单元格非空白时，我想将 B 单元格复制并粘贴到另一个工作表 - 以及它们在 J 和 M 列中的配套行单元格。我需要将结果整齐地粘贴到 A、B、C 列中，而不是在工作表 2 中有空白列。

例如，假设 worksheet1 区域 B5:B100 中只有两个非空白单元格 - 单元格 B26 和 B78。然后运行范围宏将复制 B26、J26、M26 和 B78、J78 和 M78，然后将它们粘贴到从 A2 开始的第二个工作表（以允许标题行）并且没有空白行（因此 B26 到 A2，J26 到 B2， M26 到 C2 和 B78 到 A3，J78 到 B3，以及 M78 到 C3）。

我能够对 b 列值进行非空白复制和粘贴，但无法为每一行拾取其他需要的单元格。

谢谢！

4

1 回答 1

0

我会建议：

  • 使用 Cells.Find 查找项目
  • 当您找到该项目时，您可以获得单元格的行/列。然后在新工作表上，使用单元格引用，您可以说类似

Sheet2.Cells(curRow,"A").Value = Sheet1.Cells(foundCellRow,B).Value

  • 对于相邻的列，您可以说

Sheet2.Cells(curRow,"B").Value = Sheet1.Cells(foundCellRow,"J").Value

我希望这有帮助

于 2013-10-24T20:55:46.893 回答