Excel：需要復制和粘貼單元格，取決於范圍中一行中單元格值的非空白狀態

Question

宏新手在這里...。

我正在嘗試根據特定行中單元格的內容粘貼從一個工作表到另一個工作表的范圍內的某些單元格。 例如，在B5：B100范圍內，當相關行的B單元格非空白時，我想將B單元格復制並粘貼到另一個工作表-以及它們在J和M列中的伴隨行單元格。 而不是在工作表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列值進行jsut的非空白復制和粘貼，但由於沒有為每一行選擇其他所需的單元格而迷失了。

謝謝！

Answer 1

我會建議：

• 使用Cells.Find查找項目
• 找到項目后，您可以獲取單元格的行/列。 然后在新工作表上，使用單元格引用，您可以說

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

• 對於相鄰的列，您可以說

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

我希望這有幫助