数据只有几十行，ctrl+end却到了数千行？

Adel_NN

gams 发表于 2009-11-12 17:45
不能不感谢，太强了。

强在哪里？骗骗你们小白吧，这个就是弹出个提示而已

Adel_NN

qqboy1 发表于 2005-6-19 17:21
Good!

语句Activesheet.UsedRange.Address 返回当前工作表已使用单元格区域的地址，我也是呵呵了

Adel_NN

大头 发表于 2002-10-16 10:19
运行一次下面宏就可以了
Sub dd()
MsgBox ActiveSheet.UsedRange.Address

误人子弟啊，那么多小白也是醉了

Adel_NN

cutejdy 发表于 2009-10-28 17:36
关键问题，那个宏是什么意思啊，解释一下吧

语句Activesheet.UsedRange.Address 返回当前工作表已使用单元格区域的地址，只是提示个地址而已，解决不了问题，你们先搞清楚别盲目崇拜

chiefwade

Adel_NN 发表于 2016-11-8 09:26
你懂VBA么？这个究竟牛在什么地方？无非就是得出最后一个使用过的单元格的地址弹出个提示而已，又不能解 ...

你意思要是把EXCEL学好，就得会VBA，是吗

ae9480

这个我也遇到过，不知怎么删除，打印起来不会停

sh205

删除空白试试！

sh205

不会啊！！！

104764472

rabbitning 发表于 2009-4-18 14:40
我的表格内容只有54行，多余的那些行怎样用“Sub dd()
MsgBox ActiveSheet.UsedRange.Address
End Sub” ...

你把后面的空行全部删除掉，保存，然后就可以了。

fbj-Excel

这个问题也困扰了我好久，看了上面的帖子，我总结了下解决问题的办法1、要用快捷键ctrl+shift+→和ctrl+shift+↓分别选择整行整列，然后删除这些行和列。
2、立即保存。
没有解决问题的小伙伴试试我这个代码。

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

复制代码