困扰好久的问题终于解决了。根治Excel ctrl+end不能真正定位到最后一个单元格的顽疾。

fbj-Excel

大家知道，在Excel中按Ctrl+End可移动到工作表上的最后一个单元格，即所使用的最下面一行与所使用的最右边一列的交汇单元格。然而有时这个快捷键似乎会失效，比如当我们在可见数据后面很远的地方输入了一个数字，然后又删除了，实际上这个单元格已经空了，按快捷键Ctrl+End，Excel仍会“聪明地”记住上次的最后一个单元格，而没有选定可见数据的最后一个单元格。解决这个问题的方法说简单也简单，说复杂也复杂。
说简单，就是说你只要把空白数据删除就行了。
但实际上好多同学走入了误区，他只删除了空白行或只删除了空白列。所以还是不行。
说复杂，就是你必须同时删除空白行和空白列，少一样都不行。因为Excel是按“数据所使用的最下面一行和数据所使用的最右边一列交汇的单元格”定义最后一个单元格的。还有一个致命的问题是，你在删除完成了之后必须快速保存才见效。
是不是有点复杂、没关系，有vba，一键完成。看下面的代码：

1. Sub 数据末端()
   
2. '删除无用行列，解决快捷键ctrol+end后不是数据末端的问题
   
3. MsgBox "使用方法：鼠标点击最后一个有数据的单元格(即有用数据最大列号和最大行号交汇的单元格)，运行宏即可"
   
4. Set InputRng = Application.Selection
   
5. Set InputRng = Application.InputBox("用鼠标点选数据末端最后一个单元格", _
   
6. xTitleId, InputRng.Address, Type:=8)
   
7. 
   
8.     InputRng.Offset(1, 1).EntireColumn.Select
   
9.     ActiveCell.EntireColumn.Select
   
10.     Range(Selection, Selection.End(xlToRight)).Select
    
11.     Selection.Delete Shift:=xlToLeft
    
12. 
    
13.     InputRng.Offset(1, 1).EntireRow.Select
    
14.     Range(Selection, Selection.End(xlDown)).Select
    
15.     Selection.Delete Shift:=xlUp
    
16.    
    
17.     ActiveWorkbook.Save
    
18. End Sub

复制代码

刀羊

"使用方法：鼠标点击最后一个有数据的单元格(即有用数据最大列号和最大行号交汇的单元格)，运行宏即可"

这是会不会有问题呢？有数据的最大行号与最大列号交汇处 不一定有数据吧？

fbj-Excel

刀羊 发表于 2019-2-15 21:14
"使用方法：鼠标点击最后一个有数据的单元格(即有用数据最大列号和最大行号交汇的单元格)，运行宏即可"

...

这是让你确定你需要的数据区域的右下角的单元格，宏会帮你删除这个单元格右侧的所有列和这个单元格下侧的所有行。

刀羊

fbj-Excel 发表于 2019-2-17 16:15
这是让你确定你需要的数据区域的右下角的单元格，宏会帮你删除这个单元格右侧的所有列和这个单元格下侧的 ...

看来还可以再优化一下，能自动就好了，加油！

刀羊

fbj-Excel 发表于 2019-2-17 16:15
这是让你确定你需要的数据区域的右下角的单元格，宏会帮你删除这个单元格右侧的所有列和这个单元格下侧的 ...

有时候只删除行列还是不能改善。

susnenay

有个比较顽固的表，使用后完全没效果