通过 vba查找到表中某一数据，然后需要知道该数据所在的行和列

来源：百度知道 编辑：UC知道 时间：2024/06/21 09:02:39
是 excel
各科室上交的电子表格考勤按照各科自己顺序来，每次在汇总要逐个填入，通过vba来打开 上交各科文件 然后自动填入数据，不知怎么实现。

是EXCEL吗？如果收到的都是EXCEL表就好办了。
1.建一个新excel文件"a.xls"作为汇总数据的文件.建好后先保存一下。
2.在a的Sheet1中加入一个按钮来收集数据：
例如要打开c:\Book1.xls,就为按钮加入代码:
Workbooks.Open "c:\Book1.xls" '打开表文件
Workbooks("c:\Book1.xls").Activate '激活表
3.在Book1.xls找数据：
用Activesheet.cells(行号，列号)引用单元格去查找（Activesheet就是步骤2激活的Book1表）。记下找到的结果赋值给自定义的全局变量。
4.Workbooks("c:\a.xls").Activate'激活a表
5.仍然用Activesheet.cells(行号，列号)来引用本表单元格填写前面记录的全局变量值。
不知道说明白没有。