[A1]) Is Nothing Then Application.EnableEvents = False y = Sheets(2).Columns(1).Find("*", , xlValues, , , 2).Row Sheets(2).Range("A" & y + 1) = Sheets(1).Range("A1").Value Sheets(2).Range("A1") = "" End If Application.EnableEvents = True End Sub 运行发现,表1中A1...