Excel：需要复制和粘贴单元格，具体取决于范围中一行中单元格值的非空白状态

Question

宏新手在这里......

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

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

我能够对b列值进行非空白复制和粘贴，但丢失了为每行拾取其他所需的单元格。

谢谢！

Answer 1

我建议：

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

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

• 对于相邻列，您可以说

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

我希望这会有所帮助