Question

我试图建立一个类似数据库的文档，允许用户能够将值输入到单元格中，比如说C4，并且将单元格C4中的任何值放到要移动到的单元格中A列中的下一个免费单元格。

是否有我可以使用的函数（或函数集），或者我应该使用VBA for 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

将某个单元格的值移动到列中的下一个打开的单元格

2 个答案: