Excel 做得到在A1輸入1，B1顯示1然後換行清除A1數值1，A1再輸入2，B2顯示2換行>以此ˋ類推?
回答 (1)
2016-03-21 5:32 am
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
If Range("B1") = "" Then
Range("B1") = Range("A1")
Else
Range("B" & [B65536].End(xlUp).Row + 1) = Range("A1")
End If
End If
Range("A1").Select
End Sub
If Target.Address = "$A$1" Then
If Range("B1") = "" Then
Range("B1") = Range("A1")
Else
Range("B" & [B65536].End(xlUp).Row + 1) = Range("A1")
End If
End If
Range("A1").Select
End Sub
收錄日期: 2021-05-04 02:07:06
原文連結 [永久失效]:
https://hk.answers.yahoo.com/question/index?qid=20160320085359AArkFaN