UC知道我写的VBA小程序怎么运行不了？
来源：百度知道 编辑：UC知道 时间：2024/05/31 05:44:37
实现：在第7页的第一列上，查找是否有等于第6页的数据（肯定有），知道该数据的行数后，把第7页的数据拷到第6页。
谢谢大家了。
Sub try()
Dim i As Variant, n As Variant
For i = 3 To 1606
n = WorksheetFunction.Match(Worksheets(6).Cells(i, 1), worksheets(7).range(cells(1,1),cells(2000,1), 0)
Worksheets(6).Cells(i, 11) = Worksheets(7).Cells(n, 3)
Next i
End Sub
很可能是因为你写好后就把VB卸载了 对吧
没有啊。
谢谢大家了。
Sub try()
Dim i As Variant, n As Variant
For i = 3 To 1606
n = WorksheetFunction.Match(Worksheets(6).Cells(i, 1), worksheets(7).range(cells(1,1),cells(2000,1), 0)
Worksheets(6).Cells(i, 11) = Worksheets(7).Cells(n, 3)
Next i
End Sub
很可能是因为你写好后就把VB卸载了 对吧
没有啊。
range(cells(1,1),cells(2000,1), 0)
三个参数？有这样用range的吗？没见过。
楼主你设断点跟踪一下不就知道了，看第一次运行到这一行时，n的值是不是你预期的。
授人以鱼不如授人以渔，这种小程序楼主你能自己搞定的。
建议到 http://www.38duoffice.cn/bbs 的Excel专区求助，能很快得到解决。
很可能是因为你写好后就把VB卸载了 对吧