excel中如何做宏，在按下设定的快捷键后 寻找并定位A1到A20一列中的第一个空白单元格，以便进行数字输入

Question

同上

Answer 1

Sub LocateBlankCell()
With Range(Cells(1, 1), Cells(20, 1))
.SpecialCells(xlCellTypeBlanks).Cells(1, 1).Select
End With
End Sub

ALT+F8,选定LocateBlankCell，为其指定快捷键。
也可以使用onkey方法指定。

Answer 2

Range("A1:A20").SpecialCells(xlCellTypeBlanks).Cells(1, 1).Select
这个代码有个前提条件是，空单元格后的单元格中有非空单元格，否则无效。以下代码可以完全达到您的要求
Sub aa()
For x = 1 To 20
If Cells(x, 1) = "" Then
Cells(x, 1).Select
Exit For
End If
Next x
End Sub