將某個單元格的值移動到列中的下一個打開的單元格中

Question

我正在嘗試設置一個類似數據庫的文檔，以允許用戶能夠向單元格中輸入一個值，例如C4和有沒有什麼價值放在單元格C4被移動到列A中的下一個空閒單元格。

是否有一個函數（或函數集）我可以使用，或者我應該使用VBA for excel來嘗試這樣做？

我對excel很陌生，所以如果任何人都可以引導我以正確的方向發展，那就太棒了。謝謝:)

Answer 1

你在找什麼是Worksheet_Change事件。

將這個相關Worksheet模塊

Private Sub Worksheet_Change(ByVal Target As Range) 
    Dim rTarget As Range 

    Set rTarget = Me.Cells(4, 3) 
    If Not Application.Intersect(rTarget, Target) Is Nothing Then 
     Me.Cells(Me.Rows.Count, 1).End(xlUp).Offset(1, 0) = rTarget.Value 
     rTarget.ClearContents 
    End If 
End Sub 

Answer 2

這是很簡單的，如果你只跟蹤單個細胞英寸

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 

    If Target.Address = "$C$4" Then 
     Range("A" & Rows.Count).End(xlUp).Offset(1).Value = Target.Value 
     Target.Clear 
    End If 

End Sub