复制和粘贴行和列取决于单元格的值
你好,我需要一些代码的帮助,基本上我有一个工作簿,其中有很多数据的产品附件列在行旁边列这些有所有单元格中的空白字段的产品,基本上是点这是当用户在任何这些单元格中键入“x”时,表格能够被过滤。
我已经做了一个总结表,我希望它看到这些特定的列,例如列EN,如果它包含一个“X”它将复制相应的行是A,B,C,D,并粘贴在这张汇总表一个接一个地从上面的行复制产品
例如
Column E has an x in E4,5,10,15,53
我希望它复制
ABCD4 ABCD5 ABCD10 ABCD15 ABCD53
以及产品名称,例如位于每一列的第一个空白框上方的“甜瓜”,在这种情况下,可以说E4是第一个空白,所以E3将是产品名称。
并将其粘贴在一张又一张的“总结表”中。
我知道这真的很混乱,但我希望你能帮助:)
代码我有:我现在有这个代码和即时通讯几乎在哪里我想成为我需要帮助就行了
Range("A5").Select
它给了我一个错误,但除非我select这个单元格,它随机粘贴在工作表上
Private Sub CommandButton9_Click() Range("A7:D7").Select Range(Selection, Selection.End(xlDown)).Select ' Go to last line ' Add a filter behavior Selection.AutoFilter Field:=5, Criteria1:="<>" Range("A7:D7").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy ' Paste data where you want Sheets ("Summary Sheet") Range("A5").Select ActiveSheet.Paste End Sub
这个想法可能是
-
select你的数据集
-
应用filter来隔离x行作为过滤列的值
-
select数据并执行复制/粘贴操作
build议的代码示例(应适应您的电子表格)
' Select your range of data - maybe Range("A1:E1").Select Range(Selection, Selection.End(xlDown)).Select ' Go to last line ' Add a filter behavior Selection.AutoFilter Field:=5, Criteria1:="<>" Range("A1:E1").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy ' Paste data where you want Sheets("Feuil2").Select Range("A1").PasteSpecial Paste:=xlPasteValues