excel vba 工程资源管理器双击sheets(1),编辑窗口输入以下代码:Private Sub Worksheet_Change(ByVal Target As Range)Sheets(2).Cells(2,4) = Cells(2, 2)End Sub
Private Sub Worksheet_Change(ByVal Target As Range) sheets(2).cells(2.4)=sheets(1).cells(2,2)End Sub