13问答网 > EXCEL VBA如何实现“不同工作表间自动核对并查找相关数据”？

EXCEL VBA如何实现“不同工作表间自动核对并查找相关数据”？

2025-02-23 09:36:23

推荐回答（2个）

回答1：

首先，在“视图”－〉“工具栏”－〉“窗体”下，选择“命令”按钮，画到excel上，然后到宏里面去编程序，假设你按钮的名字叫按钮1
程序如下：
Sub 按钮1_单击()
For i = 1 To 1000
If Cells(i, "D") = Cells(2, "C") Then
Cells(1, "F") = i
Exit For
End If
Next i
End Sub

我最终显示的行数i显示到F列第一格。
当你点按钮，就出来结果了

回答2：

Sub aa()
Sheet2.[d:d].Find(Int(Sheet1.Cells(2, 3).Value / 100) * 100).EntireRow.Select
End Sub
启动excel后,ALT+F11,插入菜单---插入模板---复制以上代码,然后执行这个宏.