方法一：利用快捷键逐个提取
这个实例的效果是：点选要提取数据的单元格后，只要按一下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行了，其他数据的提取以此类推。