excel vba 选定一列中第一个空单元格

1. 快速选中整列：将鼠标放至需选中列的第一个单元格位置。

2. 然后按住ctrl+shift+下键头，即可选中一列。

3. 当然如果中间遇到空格，就要继续按ctrl+shift+下键头
   快速选中整行：将鼠标放至需选中行的第一个单元格位置。

4. 然后按住ctrl+shift+右键头，即可选中一行。

5. 当然如果中间遇到空格，就要继续按ctrl+shift+右键头。

date是VBA的日期函数，不符合变量的命名规则，所以用riqi来代替这个变量吧~

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count = 1 Then '判断选中的单元格数量是否为1个
riqi = InputBox("日期")
Target.Value = riqi '给该单元格赋值
End If
End Sub
这段代码的所实现的功能是，当你选中某个单元格的时候，会通过inputbox给该单元格赋值
你问的有点含糊，不知道是不是想实现这个功能~

语句如下
do
i=i+1
if activesheet.cells(i,1)="" then
activesheet.cells(i,1)=date
exit do
end if
loop