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

来源：百度知道 编辑：UC知道 时间：2024/06/28 02:55:52
例如A列中有些单元格中有数字有些是空单元格，我设定了一个变量是date，用inputbox给其赋值，怎样能自动选中第一个空单元格并往里写入变量date的值？
dim date
date = inputbox("日期")

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给该单元格赋值
你问的有点含糊，不知道是不是想实现这个功能~

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

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

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

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

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

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