Excel中：需要複製並根據單元格值的非空白的狀態在一排範圍

宏新手在這裏貼細胞....Excel中：需要複製並根據單元格值的非空白的狀態在一排範圍

我想的範圍內粘貼某些細胞從一個工作表另一個基於特定行中單元格的內容。例如，在範圍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列值，但失去了爲每一行拾取其他需要的單元格。

謝謝！

來源

2013-10-24 user2916912

可以請您發佈您的代碼，以便我們瞭解您的嘗試？ –

我並沒有真正地嘗試獲得其他列值。我只能找到代碼字符串複製非空白列B值。以下是我使用的：Sub CopyDataOnly（） On Error Resume Next 表（「Tracking Sheet」）。Range（「j5：j100」「）。 _ SpecialCells（xlCellTypeConstants，23）.Copy 表（「圖表片」）範圍（「A2」）PasteSpecial的_ 粘貼：。。= xlPasteValues，_ 操作：= xlNone，_ SkipBlanks：=假，_ 轉置：= False On Error GoTo 0 Application.CutCopyMode = False End Sub – user2916912

我建議：

使用Cells.Find
當你找到的項目找到該項目，你可以得到的單元格的行/列。然後在新的工作表，使用單元格引用，你可以這樣說：

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

對於相鄰列，你可以說

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

希望這有助於

來源

2013-10-24 20:55:46

Excel中：需要複製並根據單元格值的非空白的狀態在一排範圍

回答

相關問題