excel vba查询定位某列最后一个非空单元格下一格并在其中输入字符文本或是数值

Question

简单说：用一个切换按钮，实现ctrl+ ↓键组合的功能。按一下按钮 黑色选定框移到某列最后一个非空单元格的下一个行 输入文字；再按一下按钮 黑色选定框 移到该列的第一个非空单元格上。
我想用切换按钮实现：
当按钮为true时

当按钮为False时

本人刚接触vba ，求大神帮帮忙，在网上找了很久都是查询非空行号的，我只是想要让选定框移到那好方便输入省着来回拉滚动条，有时用快捷键也不是很好用。先谢谢了！！！

Answer 1

亲，最后一句话没有理解。“该列的第一个非空单元格”是什么意思？能截图上来举例说明一下吗？

第一个功能很好实现，就一句话：

Sub test()
Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Select
End Sub

追问

我不是用一个切换按钮吗？  当按钮为true时

当按钮为False时

本人刚接触vba  ，求大神帮帮忙，在网上找了很久都是查询非空行号的，我只是想要让选定框移到那好方便输入省着来回拉滚动条，有时用快捷键也不是很好用。先谢谢了！！！



追答

附件已上传。打开你的Excel文件，按“Alt+F11”打开VBA编辑窗口，然后在左侧对应的Sheet上双击，右侧空白处粘贴下面的代码。

Public flag As Integer
Sub test()
If flag = 0 Then
    If Cells(Rows.Count, "A").End(xlUp).Value = "请在这里输入" Then Cells(Rows.Count, "A").End(xlUp).Select Else Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Select: ActiveCell.Value = "请在这里输入"
    flag = 1
Else
    Range("A1").Select: flag = 0
End If
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
If Target.Value = "请在这里输入" Then
    Application.EnableEvents = False
    Target.Value = ""
    Application.EnableEvents = True
End If
End Sub

追问

谢谢，我想问下，那按钮怎么添加才能启用这个宏嘛？

再帮我加下注释好嘛！？

·好让我更明白怎么回事。

谢谢大神你了~~！

试了下，符合我的想法，在空白的单元格中的确是正常的！

但是在应用到需要的工作表中时就出现问题了，单元格里有函数公式，没有值是空白的，怎样才能视他为空的单元格？

我想的是在这，求大神帮我解决下！

