当我单击按钮时，宏可按顺序从列中填充单元格

我很难解决这个问题。

这是我的布局：

如您所见，我有2个按钮。

我希望每个按钮都可以执行以下操作：

1. 每次单击YES，它将Y在特定范围的单元格中插入一个。
2. 如果YES再次单击，它将自动Y在同一列中上一个单元格的下一个单元格中插入一个。
3. 如果单击NO，它也将继续在列中向下插入N。

如何使按钮的输出始终使用下一个空闲单元？

我将假设您的其余代码已完成，并且您需要的是某种方法来获取用于插入值的行。如果您的数据不是很大，而您恰好喜欢循环，那么以下代码片段效果最好：

Dim rNext as Long
rNext = 2   'First used row in column F
Do Until LenB(Range("F" & rNext).Value) = 0
    rNext = rNext + 1
    If rNext = ActiveSheet.Rows.Count Then Exit Do
Loop

这是一个更强大且速度更快的解决方案：

Dim rNext As Long
rNext = Range("F2:F" & Cells.Rows.Count).Find(vbNullString).Row

从第二个示例中可以看出，可以直接使用以下命令执行此操作：

Range("F2:F" & Cells.Rows.Count).Find(vbNullString).Value = "Y"