VBA可以实现,代码如下:
Private Sub Worksheet_Change(ByVal Target As Range)If Target.Address(0, 0) = "A1" Then If [b1] = "" Then Cells(1, 2) = Target.Value Else Cells([b65536].End(xlUp).Row + 1, 2) = Target.Value End IfEnd IfEnd Sub