none
excel vba 中怎样得到真正的最后一行、最后一列 RRS feed

  • 问题

  • 我这里有个方法:

    已知最后一行为 6,最后一列为 8

    A:

    nLR = Activesheet.Cells.SpecialCells(xlLastCell).Row            '最后一行
    nLC = Activesheet.Cells.SpecialCells(xlLastCell).Column       '最后一列

     

    但是为什么当隐藏第 6 行或隐藏第 8 列时,按照上面方法得到的行号或列号就不对了

    请大家指教,谢谢!

    2008年11月26日 3:04

答案

  • Sub test()
      Dim lLastRow As Long, lLastColumn As Long
      lLastRow = Cells(Rows.Count, 1).End(xlUp).Row
      lLastColumn = Cells(1, Columns.Count).End(xlToLeft).Column
    End Sub
    

    我的小站:http://pfsx.5d6d.com

    我的新书:《Word排版之道》已被台湾引进

    我的新书:《Excel公式与函数大辞典》已出版上市

    2011年4月10日 19:17
    版主

全部回复

  • 如果你是用VSTO请试试
    Dim rng As Microsoft.Office.Interop.Excel.Range = Me.Range("d1000").End(Excel.XlDirection.xlUp)
    MsgBox("最后单元格为:" & Convert.ToString(rng.Address(0, 0)) & "行数为:" & rng.Row & "列数为:" & rng.Column & "值为" & rng.Value)
    如果是VBA请试试:
    dim rng as range=range("d1000").End(............................)
    其实取最后一行(列)可用END函数!自已试试
    2009年10月20日 13:10
  • Sub test()
      Dim lLastRow As Long, lLastColumn As Long
      lLastRow = Cells(Rows.Count, 1).End(xlUp).Row
      lLastColumn = Cells(1, Columns.Count).End(xlToLeft).Column
    End Sub
    

    我的小站:http://pfsx.5d6d.com

    我的新书:《Word排版之道》已被台湾引进

    我的新书:《Excel公式与函数大辞典》已出版上市

    2011年4月10日 19:17
    版主