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

 > 

  • 问题

  • Question
    登录进行投票
    0
    登录进行投票

    我这里有个方法：

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

    A：

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

     

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

    请大家指教，谢谢！

    2008年11月26日 3:04
    |

答案

  • Question
    登录进行投票
    0
    登录进行投票 
    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
    |
    版主

全部回复

  • Question
    登录进行投票
    0
    登录进行投票
    如果你是用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
    |
  • Question
    登录进行投票
    0
    登录进行投票 
    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
    |
    版主