excel表格中如何用VBA实现复制第一次计算结果

如何复制数据到另一工作表的vba代码最好？~

用vba写代码，执行的结果是sheet1表内单元格的数据被复制到了sheet2表内。

既然如此，就是说明没有公式引用的复制要求。

这样就可以用复制+选择性粘贴，
复制同平时一样，粘贴时，在B4单元格选中后，右键，有选择性粘贴，
选择数值。因为没有公式引用，故此法功能同写vba一样。

如果有格式等问题，此法不可，那么vba法亦不可。

给你举一个代码段的例子，如果你会BASIC，在此基础由解决你的问题就不难了
Dim i, num1

num1 = Sheets("计算").Cells(65536, 1).End(xlUp).Row
'计算 Sheets("计算") A列最后一行数据的位置

For i = 1 To num1
If Sheets("计算").Cells(i, 1)>100 Then Sheets("公布表").Cells(i, 1) = Sheets("计算").Cells(i, 1)
Next i


'当 Sheets("计算")第1列的数据大于100时，自动拷入 Sheets("公布表") 的相应列中



如果你想将Sheets("公布表")中的空格删除，可以这样写
Dim i, num1,k

num1 = Sheets("计算").Cells(65536, 1).End(xlUp).Row
'计算 Sheets("计算") A列最后一行数据的位置
k=1
For i = 1 To num1
If Sheets("计算").Cells(i, 1)>100 Then
Sheets("公布表").Cells(k, 1) = Sheets("计算").Cells(i, 1)
k=k+1
else
k=k
endif
Next i

无需自定义函数
EXCEL 2007,WPS ET 2009,OPENOFFICE CALC 3.1等均可实现
应首先检查输入的正确性，如果版本过低，可考虑升级
-------------------------------
回LZ:
输入均不包含“”
C1中输入“=A1+B1”
D1中输入“=C1”
A1，B1任意，
打开“自动重算”，C1,D1会实时更新
如果C1被重算，而D1没有，可能D1的公式输入有问题

用宏吧，将下面代码粘贴到工作表的代码窗口中
右键工作表标签，查看代码，然后粘贴如下代码。

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column < 4 Then
For a = 1 To 300 '300代表需要设置的总行数,如果仅为1行，则设置为1即可
If Cells(a, 4) = "" And Cells(a, 3) <> "" Then Cells(a, 4) = Cells(a, 3)
Next
Else
Exit Sub
End If

End Sub

不需要循环，只需要考虑当前单元格的改变即可
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column < 3 Then
a = Target.Row
Cells(a, 3) = Cells(a, 1) + Cells(a, 2)
If Cells(a, 4) = "" Then Cells(a, 4) = Cells(a, 3)'如果对应的d列没有数据，则写入c列的数据，否则不改动，不知道这个是否符合要求
Else
Exit Sub
end if
end sub

---

excel表格中如何用VBA实现复制第一次计算结果视频