Найти последнюю ячейку со значениями с использованием индексов

Question

Я пытаюсь найти последнюю ячейку в столбце, который содержит значения. Я знаю, что могу использовать что-то вроде:

Dim findme As Range = excel.Range("A1:A" & lastrow.row) 

, но я ищу способ не использовать этот формат символов столбца. Что-то вроде этого формата VBA

Dim rng as range 
with myWorksheet 
    LastRow = .Cells(.Rows.Count, 1).End(xlUp).Row 
    rng = .Range(.Cells(1,1), .Cells(LastRow, 1)) 
end with 

Answer 1

Я создал вспомогательный класс, чтобы решить эту проблему:

Imports Excel = Microsoft.Office.Interop.Excel 

Public Class FindLastCellByIndex 
    Private Shared Function getStringRangeFormat(ByVal colNumber As Long, ByVal rowNumber As Long) As String 
     If colNumber > 0 AndAlso colNumber < 27 Then 
      Dim c As Char 
      c = Convert.ToChar(colNumber + 64) 
      Return (c & rowNumber & ":" & c).ToString 
     Else 
      Return "" 
     End If 
    End Function 

    Public Shared Function getSearchRange(ByRef _sheet As Excel.Worksheet, ByVal Col As Long, ByVal startRow As Long) As Excel.Range 
     Dim strColCharSpez As String = getStringRangeFormat(Col, startRow) 
     'Build String 
     Dim rng As Excel.Range = DirectCast(_sheet.Cells(_sheet.Rows.Count, startRow), Excel.Range) 
     Dim t As Long 
     t = rng.End(Excel.XlDirection.xlUp).Row 

     Return _sheet.Range(strColCharSpez & t) 

    End Function 
End Class 

Это способ использовать его:

Dim rng As Excel.Range = FindLastCellByIndex.getSearchRange(_sheet, 3, 3) 

Теперь вы получаете Диапазон: Range(Cells(3,3), Cells(LastRow, 3) как объект.