[求助]将一张表上的数据转移至另一张工作表上

qclldzy

<p>请高手帮忙：</p><p>目前有一张工作表里设置有公式，另一张工作表中有原始数据，能不能有一个比较简单的方法将另一张工作表中的原始数据转移至有公式的工作表中，计算得出完整的数据（当然这两张工作表对应了相同数目的工作簿，单元格也是一一对应的）</p><p>谢谢了！非常感谢！</p>

ychexcel

建议上传你的附件，以方便大家研究讨论。

射雕

<p>嗯，要看看附件。</p>

qclldzy

<p>因为涉及到一些东西，所以将其中的部分提出来了，要将数据表中的数据通过公式表中的公式再重新失算一遍，然后跟原始数据对照！</p>

qclldzy

<br/> IYhJoJ5w.rar (9 KB, 下载次数: 14)

2007-12-25 23:05 上传

点击文件名下载附件
[求助]将一张表上的数据转移至另一张工作表上

<br/>忘了上传了！

qclldzy

<p>Sub 按钮3_单击()<br/>Dim i As Integer, j As Integer<br/>Dim&nbsp;my As Object<br/>Set my = GetObject( thisworkbook.path &nbsp;&amp; "\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) &lt;&gt; "=*" 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>

在石

恩呢嫩呢，呵呵呵，我也不会，学学