Excel:如果单元格包含值,则将行复制到新选项卡

时间:2014-07-21 08:58:50

标签: excel excel-vba excel-formula excel-2010 vba

对于Excel来说,我是一个完整的新手,我已经用Google搜索了它并且它提出了一些我一点也不理解的回复。大多数是我需要在Visual Basic中做的事情?

基本上我想要的是为主要标签生成的各个用户设置多个标签。所有这些都已经建立。

因此主板上的IF行没有(人员姓名缩写) 将此行复制到“尼克”选项卡(每个用户将有20多行,不确定是否会更改任何内容)

任何帮助都会令人难以置信并受到大力赞赏!

谢谢, 尼克

1 个答案:

答案 0 :(得分:1)

您可以通过录制宏来开始。以下是有关如何执行此操作的链接:http://office.microsoft.com/en-us/excel-help/create-or-delete-a-macro-HP010342374.aspx#BMrecordmacro。单击记录后,只需手动开始执行您想要的操作。这将向您展示一些语法。在这种情况下,最简单的方法是将摘要数据格式化为表格,按每个人的姓名首字母对其进行过滤,然后将结果复制到各个标签中。您录制的代码可能看起来像这样:

Sub CopyNO()
ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=1, Criteria1:= _
    "NO"
Range("Table1[#All]").Select
Selection.Copy
Sheets("NO").Select
Range("A2").Select
ActiveSheet.Paste
End Sub

要清理您录制的代码,您需要尝试将任何说ActiveSheet的内容更改为Sheets(“SheetName”),并且理想情况下,通过使用实际完成的任何内容来删除任何.Select命令随着选择。在这里你可能会得到类似的东西:

Sub CopyNO()
Sheets("Summary").ListObjects("Table1").Range.AutoFilter Field:=1, Criteria1:= _
    "NO"
Worksheets("Summary").Range("Table1").Copy _
   Destination:=Worksheets("NO").Range("A5")
End Sub
相关问题