更新两个表格Excel VBA中的数据

是否有可能在两张纸上更新数据，即Sheet1和Sheet2中的数据在两张纸的同一行和同一列中可用

我使用这个更新代码

Private Sub cmdUpdate_Click() Cells(currentrow - 1, 1).Resize(1, 4).Value = Array(TB1.Text,startdate.Text, enddate.Text, ComboB.Text) End Sub 

Answer 1

在单元格（）： Sheets("Sheet1").Cells(currentrow - 1, 1).Resize(1, 4).Value之前，只需添加要更新的工作Sheets("Sheet1").Cells(currentrow - 1, 1).Resize(1, 4).Value然后将其复制/粘贴并更改为“Sheet2” ：

 Private Sub cmdUpdate_Click() Sheets("Sheet1").Cells(currentrow - 1, 1).Resize(1, 4).Value = Array(TB1.Text,startdate.Text, enddate.Text, ComboB.Text) Sheets("Sheet2").Cells(currentrow - 1, 1).Resize(1, 4).Value = Array(TB1.Text,startdate.Text, enddate.Text, ComboB.Text) End Sub