excel中符合条件的数据显示在另一表格中

1. excel中符合条件的数据显示在另一表格中

筛选   复制粘贴                  或者使用vba
Visual Basic 的应用程序版（VBA）是Microsoft 公司长期追求的目标，使可编程应用软件得到完美的实现，它作为一种通用的宏语言可被所有的Microsoft 可编程应用软件所共享。在没有VBA 以前，一些应用软件如Excel、Word、Access、Project 等都采用自己的宏语言供用户开发使用，但每种宏语言都是独立的，需要用户专门去学习，它们之间互不兼容，使得应用软件之间不能在程序上互联。拥有一种可跨越多个应用软件，使各应用软件产品具有高效、灵活且一致性的开发工具是至关重要的。VBA 作为一种新一代的标准宏语言，具有上述跨越多种应用软件并且具有控制应用软件对象的能力，使得程序设计人员仅需学习一种统一的标准宏语言，就可以转换到特定的应用软件上去，程序设计人员在编程和调试代码时所看到的是相同的用户界面，而且VBA 与原应用软件的宏语言相兼容，以保障用户在代码和工作上的投资。有了VBA 以后，多种应用程序共用一种宏语言，节省了程序人员的学习时间，提高了不同应用软件间的相互开发和调用能力。 
在Office 2000 中，宏语言VBA 适用于所有应用程序，包括Word 、 Excel、PowerPoint、Access、Outlook 以及Project。在Office 97 的各应用程序中，新增了Visual Basic 编辑器。这样，用户无论是在Excel 中，还是在Word 中以至是在Access 中建立和管理VBA 都具有统一的方法和标准。 
在介绍如何利用VBA 提高工作效率之前，首先介绍一些与VBA 有关的基础知识。
VB 与VBA

VBA 是基于Visual Basic 发展而来的，它们具有相似的语言结构。Visual Basic 是Microsoft 的主要图形界面开发工具，VBA 5.0 （亦即VBA 97）则是Visual Basic 5.0 的子集。Visual Basic 是由Basic 发展而来的第四代语言。Visual Basic 作为一套独立的 Windows 系统开发工具，可用于开发Windows 环境下的各类应用程序，是一种可视化的、面向对象的、采用事件驱动方式的结构化高级程序设计语言。它具有高效率、简单易学及功能强大的特点。VB 的程序语言简单、便捷，利用其事件驱动的编程机制，新颖易用的可视化设计工具，并使用Windows 应用程序接口（API）函数，采用动态链接库（DLL）、动态数据交换（DDE）、对象的链接与嵌入（OLE）以及开放式数据库访问（ODBC）等技术，可以高效、快速地编制出 Windows 环境下功能强大、图形界面丰富的应用软件系统。 
Visual Basic 程序很大一部分以可视（Visual）形式实现，这意味着在设计阶段就可以看到程序运行的屏幕画面，用户可以在设计时能够方便地改动画面图像、大小、颜色等，直到满意为止。VB 的用户可以是缺乏Windows 及C 语言开发经验的专业软件人员，也可以是具有一定Windows 开发经验的专业人员，VB 的可视化编程方法使得原来繁琐枯燥、令人生畏的Windows 应用程序设计变得轻松自如、妙趣横生。以往的Windows 应用程序开发工具在设计图形用户界面时，都是采用编程的方法，并伴随大量的计算任务，一个大型应用程序约有90%的程序代码用来处理用户界面，而且在程序设计过程中不能看到界面显示的效果，只有在程序执行时才能观察到，如果界面效果不佳，还需要回到程序中去修改。Visual Basic 提供了新颖的可视化设计工具，巧妙地将Windows 界面设计的复杂性封装起来，程序开发人员不必再为界面设计而编写大量程序代码，仅需采用现有工具按设计者要求的布局，在屏幕上画出所需界面，并为各图形对象设置属性即可，VB 自动产生界面设计代码，这样便将事先编制好的控件可视地连接到一起，构成一个随时可调整的界面。 
VBA 不但继承了VB 的开发机制，而且VBA 还具有与VB 相似的语言结构，它们的集成开发环境IDE（Intergrated Development Environment）也几乎相同。但是，经过优化，VBA 专门用于Office 的各应用程序。VB 可运行直接来自Windows 95 或NT 桌面上的应用程序，而VBA 的项目（Project）仅由使用VBA 的Excel、Word、 PowerPoint 等称为宿主（Host）的Office 应用程序（Application）来调用。
WordBasic 和 Visual Basic

在 Word 中，为完成具体的任务，所用的是WordBasic 命令。 WordBasic 是从VBA 扩展而来的一种专用于处理Word 自动功能的语言，下面介绍它们在概念上的区别和它们的宏的相互转换。WordBasic 和 Visual Basic 在概念上的区别
VBA 和WordBasic 之间主要的区别是 WordBasic 语言包含由大约 900 个命令组成的一张平面列表，而 Visual Basic 则包含了由对象组成的一个分层结构，每个对象都可提供一组特定方法和属性（与 WordBasic 中的语句和函数相似）。大多数 WordBasic 命令在任何时候都可运行，而 Visual Basic 只在特定的时候提供有效对象的方法和属性。
编辑本段注意

本书提到的Visual Basic 如果不加特别说明，都是指Visual Basic For Applications。 
对象是 Visual Basic 这一宏伟大厦的基石，在 Visual Basic 中进行的几乎任何操作都与修改对象有关。Word 的任何元素（如文档、段落、域、书签等），都可以用 Visual Basic 中的对象来代表。与平面列表中的命令不同，部分对象只能通过其他对象才能加以访问。例如，可以通过不同的对象（如 Style、Selection 和 Find 对象）来访问 Font 对象。 
应用加粗格式的编程任务就表明了两种编程语言之间的区别。下面的 WordBasic 指令对所选内容应用加粗格式。 
下面的示例是 Visual Basic 语句，也是对所选内容应用加粗格式。
Selection.Font.Bold = True

Visual Basic 不包含 Bold 语句和函数，却有一个名为 Bold 的属性（属性通常指一个对象的特性，例如大小、颜色，或者是否是加粗）。Bold 是 Font 对象的一个属性。同样地，Font 是返回一个 Font 对象的 Selection 对象的一个属性。按照下面的对象结构，可以生成指令，以将加粗格式应用于所选内容。 
Bold 属性是一个 Boolean 类型、可读写的属性。这意味着可以将 Bold 属性设置为 True 或 False（真或假），也可返回当前值。下面 WordBasic 指令的返回值表明是否将加粗格式应用于所选内容。
x = Bold（）

下面的示例是 Visual Basic 语句，返回所选内容的加粗格式的状态。
x = Selection.Font.Bold

要在 Visual Basic 中执行一个任务，就需要确定合适的对象。例如，如果用户想应用【字体】对话框中的字符格式，可使用 Font 对象。然后需要确定如何理顺从 Application 对象到 Font 对象的 Word 对象结构，以找到包含需要修改的 Font 对象的对象。在确定了该对象的路径之后（例如，Selection.Font），可使用 Visual Basic 编辑器中的【对象浏览器】、【帮助】或【自动列表成员】之类的功能来确定可将什么属性和方法应用于该对象。
将 WordBasic 宏转换为 Visual Basic

宏可使任务自动化，如果在 Word 中重复进行某项工作，可用宏使其自动执行。宏是将一系列的 Word 命令和指令组合在一起，形成一个命令，以实现任务执行的自动化。用户可创建并执行一个宏，以替代人工进行一系列费时而重复的 Word 操作。事实上，它是一个自定义命令，用来完成所需任务。 
宏的一些典型应用如：加速日常编辑和格式设置、组合多个命令、使对话框中的选项更易于访问、使一系列复杂的任务自动执行等。 
Word 提供了两种创建宏的方法：宏录制器和 Visual Basic 编辑器。宏录制器可帮助用户开始创建宏。Word 在 VBA 编程语言中把宏录制为一系列的 Word 命令。可在 Visual Basic 编辑器中打开已录制的宏，修改其中的指令。也可用 Visual Basic 编辑器创建包括 Visual Basic 指令的非常灵活和强有力的宏，这些指令无法采用录制的方式。 
当第一次进行下列任何操作时，Word 2000 将自动转换 Word 6.x 或 Word 95 模板中的宏。
编辑本段模拟器

掌机GBA的模拟器，VisualBoyAdvance，简称VBA，目前最新版本为   1.80中文版。
该模拟器由Forgotten开发，是目前windows上最好的几款GBA模拟器之一，据说可以完美模拟GBA上100%的游戏并且集成GB/GBC模拟功能，可以实现一机玩GB/GBC/GBA游戏。遗憾的是早已停止开发，目前在VBA基础上有其他团队开发的GBA模拟器，功能性可能更为强大。
VBA功能较为强大，支持及时存/读档、多点及时存档、金手指、按键修改、音乐音效等功能，甚至支持反编码调试。其实际运行效果如下图：

2. EXCEL函数：一个表格中的多个条件自动筛选后对应的值求平均数，放入另一个表格的对应单元格中

可以使用averageifs函数，2003版本没有这个函数。具体为
=AVERAGEIFS(D:D,B:B,日期,C:C,">="&1/12,C:C,"<="&47/144)

这个是将2：00-7:50的平均数值算出来。

3. 使用VBA在Excel按条件查找，怎么让查找的两个结果显示在一个表格中？

按你的意思编了一个简单的VBA程序，利用循环语句FOR……NEXT的嵌套就能轻松实现想要的结果，其代码如下：
Public Sub ppp()
Dim a As Integer
a = [a65536].End(xlUp).Row
For k = 2 To a
Cells(k, "I") = Cells(k, "A")
j = 0
u = 0
For b = 2 To 7
If Cells(k, b) = "" Then
j = j + 1
Cells(k, "I").Offset(, 6 + j) = Cells(1, b)
ElseIf Cells(k, b) < 60 Then
u = u + 1
Cells(k, "I").Offset(, u) = Cells(1, b)
End If
Next
Next
End Sub

编好了之后我添加了一个按钮控件，然后把这个程序指定给了按钮，这样再多的学生成绩数据只要轻轻一点结果就能很方便快捷的判断出来。


如下载的附件打开后按钮失效的话，请将你的EXCEL中的宏安全性调低。
“工具”--“选项”--“安全性”--“宏安全性”

将宏安全等级设置为“中”或者“低”那样才能启动程序。设置好之后关闭EXCEL然后再重新打开就能用了。

4. Excel将一列中符合条件的内容提取到另一个表按顺序排列

使用excel vba宏功能。
录制 宏 ：选中单元格区域，进行排序； 
ALT+F11 打开VBE 可以看到模块中宏代码，类似于上图代码（以下为文字代码），稍加修改即可
Sub 宏1()   
Range("E815:F8179").SelectApplication.CutCopyMode = FalseActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.ClearActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range( _"E8155:E8179"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _xlSortNormalWith ActiveWorkbook.Worksheets("Sheet1").Sort.SetRange Range("E8155:F8179").Header = xlGuess.MatchCase = False.Orientation = xlTopToBottom.SortMethod = xlPinYin.ApplyEnd WithEnd Sub

5. Excel中，需要满足多个条件的数据查找并引用到另一个工作表中

有这么一个公式你可以用用：
=LOOKUP(1,0/((Sheet1!$A$2:$A$101=$A2)*(Sheet1!$C$2:$C$101=$C2)),Sheet1!D$2:D$101)
1、新建一个excel表，新建如图数据，命名为表1

2、新建另外一个excel表格，新增如图数据，命名为表2

3、先在表2”d2“单元格中输入”=LOOKUP(1,0/((Sheet1!$A$2:$A$101=$A2)*(Sheet1!$C$2:$C$101=$C2)),Sheet1!D$2:D$101)“。

4、就可以得到对应的引用结果。

5、使用向下填充方式，看到引用结果就算完成引用了。

6. excel中如何把某一列数据自动筛选然后返回对应值到另一个表格中？

用下面修改下
Excel按规定提取列数据

Option Base 1
Sub 按规定提取某列数据()
    '2020-4-3 21:34:49
    Dim mb(), m(), i As Long, j As Long, r As Long, c As Long, n As Range, k As Long, myr As Range, n1 As Long
    mb = Selection
    r = UBound(mb, 1)
    c = UBound(mb, 2)
    ReDim m(r, 1)
    Set n = Application.InputBox(prompt:="选择规定数据单元格", Type:=8)
    n1 = 1
    k = 0
    On Error Resume Next
    For i = 1 To r
        For j = 1 To c
            If InStr(1, mb(i, j), n.Text, 1) > 0 Then
                k = k + 1
                m(k, 1) = mb(i, n1)
                Exit For
            End If
        Next j
    Next i
    If k = 0 Then
        MsgBox "数据不存在！"
    Else
        Sheets("Sheet5").Select
        Set myr = Range("a1")
        myr.Value = "商户"
        Range(myr.Offset(1, 0), myr.Offset(k, 0)) = m
    End If
End Sub
在D列任单元格输入2020-06
运行上面宏时，选该单元格可以

7. 如何在EXCEL里把满足某一条件的姓名自动筛选到另一个工作表里

用数据透视表吧，先把原数据整理成数据清单的格式，即：
姓名    职务    其他信息
然后用透视表后显示如下格式：
职务   姓名
司长   张三   李四   王五   赵六
处长   韩伟   阴历   **     ***
然后用查找与引用将以上格式做函数即可

8. excel实现搜索多个表格中符合条件的行，并顺序复制到另外一个sheet？

我想到2个方法，一个是在另外一个sheet里面用if语句（如果满足条件，复制过来，放弃），然后下拉
另外一个是做个宏出来。