Excel 表格中输入内容后如何自动跳转到其他表格当中
发布网友
发布时间：2022-04-27 04:34
共1个回答
热心网友
时间：2022-06-26 07:11
右击sheet1表的表名（如下方的“sheet1”），选“查看代码”，在打开的代码窗口中粘贴下列代码：
Private Sub Worksheet_Change(ByVal Target As Range)If Target.Address = "$E$1" Then
If Sheet2.Cells(1, 1) = "" Then
Range("A1:e1").Copy Sheet2.Range("A1")
Else
p = Sheet2.Cells(Cells.Rows.Count, 1).End(xlUp).Row + 1
Range("A1:e1").Copy Sheet2.Cells(p, 1)
End If
Range("A1:e1").Select
Cells(1, 1).Activate
End If
End Sub
追问你好，我操作了下，没有反应
