|
楼主 |
发表于 2007-12-26 13:43
|
显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
[求助]将一张表上的数据转移至另一张工作表上
<p>Sub 按钮3_单击()<br/>Dim i As Integer, j As Integer<br/>Dim my As Object<br/>Set my = GetObject( thisworkbook.path & "\8-1.xls")<br/>For i = 2 To 1000<br/>For j = 2 To 1000<br/>Cells(i, j).ClearContents<br/>If Cells(i, j) <> "=*" Or Cells(i, j) = "*月*" Then<br/>Cells(i, j) = my.Sheets(1).Cells(i, j)<br/>End If<br/>Next j<br/>Next i<br/>End Sub</p><p></p><p>有没有人帮忙指点一下这个程序到底错在如果要实现我的目的到底错在哪个地方啊?</p> |
|