作者：乔山办公网日期：
返回目录：excel表格制作
在你设定公式的工zd作表中插入一回个按钮答,按钮代码
Do While [a1] < 10
[b1] = [b1] + 1
Loop
Do While [a2] < 100
[b2] = [b2] + 1
Loop
Sub 名称匹配()
Dim x As Integer, y As Integer
For x = 2 To 201
For y = 2 To 201
If Cells(x, 2) & Cells(x, 3) & Cells(x, 4) = Cells(y, 7) & Cells(y, 8) & Cells(y, 9) Then Cells(x, 1) = Cells(y, 6)
Next y
Next x
End Sub