ipz-634迅雷:快速从表格中提取数据中的Office宏--太平洋电脑网Pconline-[Excel]

来源：百度文库编辑：偶看新闻时间：2024/04/30 03:28:01

快速从表格中提取数据中的Office宏
[ 2008-06-04 10:09:03 ] 作者：cfan.com.cn 责任编辑：xuwei2

导读
经常使用Windows Office办公软件，特别是Excel的时候，宏的使用很大程度上能够提高加快办公效率，今天我们反其道而行，看看如何提取数据中的宏。

珊瑚虫QQ作者被捕的完整视频下载【火热讨论】

秒杀!看老外高手如何玩转人工闪电【火热讨论】
方法一：利用快捷键逐个提取

这个实例的效果是：点选要提取数据的单元格后，只要按一下Ctrl+d键，数据就自动拷贝到你指定的位置，并且可以连续操作，后拷贝的数据会自动顺延到指定位置的下一单元格中。
Step1
启动Excel新建一个文件，保存为DataCenter.xls。点击“工具→宏→录制新宏”菜单命令，设置宏名为CopyRange，快捷键设为Ctrl+d（注意：不要跟系统的快捷键冲突），点击“确定”按钮。
Step2
点击“工具→宏→停止录制”菜单命令。怎么刚开始录制就要停止呢？这样做的目的只是要获得一个带有快捷键的宏的框架，具体代码还得自己输入。按Alt+F11键打开Visual Basic编辑器窗口，双击打开“工程”窗格中的“模块1”，删除最后的“End Sub”语句并加入如下代码：
Selection.Copy '拷贝所选单元格
TheSel = ActiveCell.Address '存储单元格位置
For I = 1 To 100 '设定从H列的第1行开始，到100行停止，H、1、100这三个参数，你可以根据需要改动
If Range（"H" & I） = "" Then '如果H列I行为空
Range（"H" & I）.Select '选择H列I行的单元格
ActiveSheet.Paste '粘贴单元格
Range（TheSel）.Select '回到拷贝位置
GoTo line1 '跳出循环
End If
Next I
line1： End Sub
Step3
关闭Visual Basic编辑器窗口返回Excel。将其他Excel表格复制到DataCenter.xls中，点选需要提取数据的单元格，按Ctrl+d键，就可以把它拷贝到H列的第1行了，其他数据的提取以此类推。
方法二：多单元格同时提取
上面的方法一次只能提取一个单元格，在此基础上再增加一个简单的宏，可以达到一次提取多个单元格的效果。
Step1
首先假设如图所示是需要提取数据的表格形式。录制一个新宏，名称为CopyAll，快捷键设为Ctrl+e，在宏内输入以下代码（这次千万别删除“End Sub”）：

图1 表格例子
Range（"B1"）.Select '选择“姓名”后的数据
CopyRange '调用上一方法中的宏，下同
Range（"B2"）.Select '选择“性别”后的数据
CopyRange
Range（"B3"）.Select '选择“年龄”后的数据
CopyRange
Range函数中的参数，表示你想要提取数据的单元格位置，可以根据需要随意设置。
Step3
返回Excel，在B1、B2、B3单元格中分别输入“张小乐”、“男”、“18”。按Ctrl+e键，这些人物数据很快就被拷贝到H1～H3单元格中。以此类推可继续提取其他数据。

怎样从excel表格中快速找数据？如何提取网页表格中的数据 excel技巧：请问如何在表格中快速将数据从万元替换到亿元如何在EXCEL表格中随机提取数据如何从listview中提取数据如何从listview中提取数据[VB] 在asp.net中提取数据库中的数据怎么样把EXECL中的数据提取到ACCESS中？？在VB中如何提取EXCEL表中的数据？？在ASP中怎样提取Access数据库中的数据 vb如何从数据库中提取数据到一个文本框如何从tcp/ip封包中提取数据从网页中粘贴到word中的文档表格如何清除？空行有快速清除方法吗？为什么？电脑中表格中的数据为什么突然丢失如何提取大盘中的数据关于JSP中的提取数据如何将Word表格中的数据复制到 Excel表格中如何提取和保存网页中的表格？ excel中利用索引把一个表格中的数据插入到另外一个表格中所对应索引中的 excel中提取重复数据 vb中如何将datagrid表格中的数据保存在单独的word文件中从数据库中提取数据到textbox中后,再将修改后的数据更新回数据库,无法更新怎么样把EXECL中的数据提取到ACCESS中？？大虾请进！！在ASP中怎样提取Access数据库中的数据进一步提问