☰

有没有办法可以将输入到单元格 F58 的数据值自动添加到 F 列的下一个空单元格中？

tag-icon • tag-icon microsoft-excel
有没有办法可以将输入到单元格 F58 的数据值自动添加到 F 列的下一个空单元格中？

我有一个电子表格，每天我会在单元格 F58 和 F59 中输入一个值。

F81 处是一列单元格的起始处，其中包含单元格 F59 中给定的每一天的值。

    F   
58  390.74  Dynamic Data

81  366.07  Static Data
82  363.98  
83  362.17  
84  360.74  
85  364.25  
86  363.5   
87  362.93  
88  365.05  
89  365.79  
90  368.56  
91  368.89  
92  368.32  
93  364.1   
94  ??????  Next Empty Cell

有没有办法可以将输入到单元格 F58 的数据值自动添加到 F 列的下一个空单元格中？

答案1

您可以编写一个简单的 excel 宏来执行此操作（搜索 Google 查看现有的宏）或仅使用一些 excel 热键快捷键。+（“结束”键）后跟“向下箭头”键（或光标键），这将跳转到列空间的末尾。由于 f58 和下面的列之间有空格，因此您必须按两次这些键。然后，一旦到达列的底部（当您的手指仍在箭头键上时），再次按一次箭头键以移动到空白处。当然，在移动之前，使用 ctrl-C 复制单元格的值，然后使用 ctrl-V 将其粘贴到空单元格中。

执行此操作的击键次数比调用自定义宏要多，但更便携，并且让您的大脑/手指处于正确的区域，从而成为 Excel 快速用户。

答案2

要自动执行此操作，我相信您将需要 VBA。我建议实现此操作的方法是使用 Worksheet_Change 事件。为此，请按Alt+在 Excel 中打开 VBA 编辑器F11。从那里，在窗口左侧的 Microsoft Excel 对象列表中找到您正在编辑的工作表，然后双击它。

在此处输入图片描述

然后将以下代码粘贴到右侧打开的文本框中（如上图所示）。

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Me.Range("F58")) Is Nothing Then
    Range("F81").End(xlDown).Offset(1, 0) = Range("F58").Value
End If
End Sub

只要列表中至少有两个项目从 开始，此方法就会起作用F81。每次您在特定工作表上进行更改时，此代码都会运行。它将检查是否对 进行了更改F58。如果没有，它将不执行任何操作；如果是，它将把 的值附加F58到从 开始的列表底部F81。

相关内容