VBA中，确定某行或者某列是否有数据的属性或参数是什么？

Question

同标题！

Answer 1

Rows("3:3").Select
    Debug.Print IsEmpty(Selection)----------------------------------------------
http://training.yesky.com/topic/topic_vba.htm
EXCEL中VBA的学习、宏的使用，涉及图表、菜单、数据库等方面。
全程视频教学，光盘有每一章的实例代码。第一章免费试学。

Answer 2

你的方法确实可行。
现在我的问题是这样的！
我要把EXCEL中最后有数据的那行（列）中的数据删掉，该怎么写？
谢谢！

Answer 3

Sub aa()
    Dim r1 As Range
    Set r1 = ActiveSheet.UsedRange
    Debug.Print r1.EntireColumn.Address
    Rows(Range(Mid(r1.Address, InStr(1, r1.Address, ":") + 1)).Row).Select
    Columns(Range(Mid(r1.Address, InStr(1, r1.Address, ":") + 1)).Column).Select
End Sub

Answer 4

Sub aa()
    Dim r1 As Range
    Set r1 = ActiveSheet.UsedRange
    Debug.Print r1.EntireColumn.Address
    Rows(Range(Mid(r1.Address, InStr(1, r1.Address, ":") + 1)).Row).Select
    Selection.Delete
    Columns(Range(Mid(r1.Address, InStr(1, r1.Address, ":") + 1)).Column).Select
    Selection.Delete
End Sub

Answer 5

henrry说的对，首先通过.usedrange可以获得某worksheet所使用的所有区域;
后来的办法我的比henrry的好，使用.SpecialCells(xlLastCell)可以获得最右下角一个单元格，然后就随便你删除都可以了呵呵。。

Answer 6

Sub aa()
    Dim r1 As Range
    Set r1 = ActiveSheet.UsedRange
    Debug.Print r1.EntireColumn.Address
    Rows(Range(Mid(r1.Address, InStr(1, r1.Address, ":") + 1)).Row).Select
    Selection.Delete
    Columns(Range(Mid(r1.Address, InStr(1, r1.Address, ":") + 1)).Column).Select
    Selection.Delete
End Sub这里有个问题，根据你的这段代码运行，始终找不到最后有数据的那行。到底哪里还有问题？

Answer 7

FredLee2004(小小李)说的对，试试下面的：
Sub aa()
    Dim r1 As Range
    Set r1 = ActiveSheet.UsedRange
    Debug.Print r1.EntireColumn.Address
    
    
    Rows(r1.SpecialCells(xlCellTypeLastCell).Row).Select
    Selection.Delete
    Columns(r1.SpecialCells(xlCellTypeLastCell).Column).Select
    Selection.Delete
End Sub

Answer 8

试过了。都是执行到Rows(Range(Mid(r1.Address, InStr(1, r1.Address, ":") + 1)).Row).Select语句后，就跳到了End Sub。在没有放入这段代码时，一切都正常。但是放入这断代码后，就不能完整执行了。我迫切需要这个功能（自动找到最后有数据的行或列），到底哪里有问题？

Answer 9

呵呵，对于所有的Range对象，使用.row可以知道它的行号。
别忘了给我计分哦，这可是我第一次得分哦。