按alt+F11,然後在左側工程窗口中找到sheet1,雙擊並輸入以下代碼。
私有子工作表_Change(ByVal目標作為範圍)
暗淡的
有目標
如果。地址= "$A$1 "然後
If範圍(" B65536 ")。結束(xlUp)。Row = 1,Cells(1,2) = " "那麽
Range("b1") =。價值
其他
單元格(範圍(" B65536 ")。結束(xlUp)。Row + 1,2) =。價值
如果…就會結束
如果…就會結束
以…結尾
末端接頭
然後關閉VBE。在A1中輸入任意數據以查看效果。