Question

excel怎么快速定位到空白行并让其处在首行位置？ 比如1到10行都有数据的，我想直接移动到第1

excel怎么快速定位到空白行并让其处在首行位置？

比如1到10行都有数据的，我想直接移动到第11行的空白行，并且第11行要自动保持在首行的位置，怎么做到
——————
我有N个表格，有客户来了，我要询问他的资料，然后打开某一个表格，在最后一行输入他的资料，而电脑是放在前台客户也能看到的，为了保护其他客户的隐私，所以要直接让第11行的空白行定位到首行，不能让前面的资料让前台的客户看到

Answer 1

打开你的工作簿，按ALT+F11,在左边找到工作簿下面对应的 thiswork ，双击它，将代码贴到弹出的窗口中。

当然，打开工作簿的时候要启用宏。

Private Sub Workbook_Open()
    Dim R As Range
    Set R = Cells.Find("*", [A1], , , xlByRows, xlPrevious, , , False)
    If R Is Nothing Then
        Application.Goto [A1], True
    Else
        Application.Goto Range("A" & R.Row + 1), True
    End If
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Dim R As Range
    Set R = Sh.Cells.Find("*", Sh.[A1], , , xlByRows, xlPrevious, , , False)
    If R Is Nothing Then
        Application.Goto Sh.[A1], True
    Else
        Application.Goto Sh.Range("A" & R.Row + 1), True
    End If
End Sub

追问

请问能不能实现随便点击一个单元格就能实现上述效果，楼上兄弟的代码就可以，不过他的代码有点缺陷，点击之后是直接在当前首行+已有数据行。
两位大兄弟如果哪位先优化好了就采纳哪位的，今天下午6点下班前在线等，谢谢了

追答

激活工作表的时候执行比较好。
如果点单元格就实现，那你不想运行的时候又要改。
上面代码是打开工作簿以及切换工作表的时候会运行。

Answer 2

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 2 Then
        n = Range("A65536").End(xlUp).Row
        Range("A1").Select
        ActiveWindow.SmallScroll Down:=n
    End If
End Sub

按ALT+F11，打开VBE编辑器，双击VBE编辑器中要实现效果的Sheet的名称，把上面的代码复制进去，关闭VBE编辑器，回到工作表中，点一下B列的任意单元格，就可以看到效果了

追问

这组代码效果有点奇怪啊，如果我目前的置顶行是第10行，数据有一共30列，点B行就到了第40了。实际情况不可能有数据的表格打开时置顶行还是第一行吧，要是能在前面加一个先回到首行应该就可以了
另外能不能使点ABCD列都能实现上面的效果呢，因为我表格的B列很窄的，只有个位数，并不想为了方便调宽，不太美观
两位大兄弟如果哪位先优化好了就采纳哪位的，今天下午6点下班前在线等，谢谢了

追答

看看这个效果行不行？详见附件。

追问

抱歉让你又白忙活一趟，确实如crazy0qwer所说，打开表格时候才实现效果比较好，实际工作的时候我点一下就实现效果太白痴了，要正常输入却造成反效果，是我想太多了

Answer 3

Ctrl+ 下方向键
Ctrl+End

追问

不行啊，我试了下，就一个表格可以，但大部分的c+e后都定位到一个莫名其妙的单元格去了

追答

Ctrl+End是使用范围的最后一个单元格，如果 跑到 很远的地方 表明 那里曾经有过数据，你可以试着删除 所有 多余空白行 ，空白列，保存 ， 关闭 重新打开 ，就会 定位最后一个有内容的单元格

Ctrl+下方向键 就是 到 本列 最后一个非空单元格，如果你的单元格 内容 是连续的话
Ctrl+右方向键 就是到最后一列非空列了

Ctrl+Home 返回到第一个单元格
Ctrl+Shift + 下方向键 选中 整列有内容 的单元格
Ctr;+Shift + 右方向键 选中整行 有内容的 单元格

很多快捷键 是能帮助我们做到 快速操作的，你可以直接 F1 Excel帮助 看快捷键

追问

我补充了一下问题，你看吧，这几组快捷键都不行

追答

要用宏， 很简单的几句话就搞定了， 搞个样表来

+  1052974911@qq.com , 然后使用要先开启宏

==========================

给你写个  直接隐藏的：

Private Sub Worksheet_Deactivate()
Me.Rows("1:10000").Hidden = False
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column < 5 Then
   arr = ActiveSheet.UsedRange
   r = UBound(arr)
   ActiveSheet.Rows("2:" & r).Hidden = True
    End If
End Sub

追问

大兄弟 我并不需要直接隐藏啊，我只需要避一下嫌不让来办业务的客户看到就可以了，我自己还是要经常看的

追答

只要切换到别的表，再切回来   就可以看到全部了，

改回你要的：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column < 5 Then
   arr = ActiveSheet.UsedRange
   r = UBound(arr)
   ActiveWindow.SmallScroll Down:=r - Target.Row + 3
    End If
End Sub

 

===================
这个比较合适：
你自己选吧：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column < 5 Then
   arr = ActiveSheet.UsedRange
   r = UBound(arr)
   Rows(r + 12).Select
    End If
End Sub

追问

这两代码更奇怪，以至于我都找不到规律来形容代码实现的效果

追答

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column < 5 Then
   arr = ActiveSheet.UsedRange
   r = UBound(arr)
   Rows(r + 12).Select
    End If
End Sub

这个规律

Answer 4

可以用vba编程实现

Answer 5

你这个要编个程序（宏）才能实现了。

追问

咋整

追答

这个一句两句也说不清楚...不知道你具体要做什么用。

追问

我有N个表格，有客户来了，我要询问他的资料，然后打开某一个表格，在最后一行输入他的资料，而电脑是放在前台客户也能看到的，为了保护其他客户的隐私，所以要直接让第11行的空白行定位到首行，不能让前面的资料让前台的客户看到

追答

这样的话很简单的操作就能解决你的问题了，比如说，你一到十行，全部都有客户资料了，要输入第11行的资料，那把前面的那一行数隐藏掉就可以了。
把鼠标点在第10行，上拉到第一行的位置，别人能看到的就只有第一行(你可以把这行设成空白)，和11行以下的资料了..