데이터가 존재하는 행 수

데이터가 존재하는 행 수

데이터가 있는 행의 총 개수를 세어봐야 합니다.저는 데이터 행의 양이 다른 여러 장의 시트에서 이것을 사용할 수 있기를 바랍니다.

A1-A100 또는 A1-A300의 행 수를 셀 일반 코드를 찾을 수 없습니다.

저는 이런 것을 사용하려고 합니다.

i = ActiveWorkbook.Worksheets("Sheet1").Range("A2 , Range("A2").End(xlDown)).Rows.Count

VBA가 필요한 경우 다음과 같은 신속한 작업을 수행할 수 있습니다.

Sub Test()
    With ActiveSheet
    lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
    MsgBox lastRow
    End With
End Sub

이렇게 하면 데이터가 포함된 마지막 행의 번호가 인쇄됩니다.다른 용도로 사용하는 경우에는 MsgBox가 필요하지 않지만 그래도 lastRow가 그 값이 됩니다.

당신이 당신의Sheet1활성화되어 있을 필요는 없습니다. 이 개선된 코드를 사용해야 합니다.

i = ActiveWorkbook.Worksheets("Sheet1").Range("A2" , Worksheets("Sheet1").Range("A2").End(xlDown)).Rows.Count

다음에 대한 두 번째 인수에 대한 전체 워크시트 참조를 살펴봅니다.Range(arg1, arg2)이 상황에서 중요한 건

저는 이 방법을 http://www.mrexcel.com/ 에서 찾았습니다.

이것은 "데이터"라는 워크시트의 A열에 있는 비어 있지 않은 셀의 수를 계산합니다.

With Worksheets("Data")
  Ndt =Application.Range("A:A").Cells.SpecialCells(xlCellTypeConstants).Count
  debug.print Ndt
End With

결과가 즉시 창으로 인쇄됩니다.열 A에 카운트하지 않으려는 머리글 선(또는 선)이 있으면 1(또는 그 이상)을 빼야 합니다.

lastrow = Sheet1.Range("A#").End(xlDown).Row

이렇게 하면 행 수를 쉽게 결정할 수 있습니다.
행이 큰 경우에는 올바른 변수를 선언해야 합니다.
그런데 '#' 기호는 행 수를 시작하려는 숫자여야 합니다.

이거 먹어봤어요?

    countif(rangethatyouhave, not(""))

코드 편집기를 열 필요는 없고, 스프레드시트 자체에서 하면 될 것 같습니다.

이렇게 구현했습니다.

Public Function LastRowWithData(ByVal strCol As String, ByVal intRow As Integer) As Long
    Range(strCol & intRow).Select
    LastRowWithData= ActiveSheet.Cells(ActiveSheet.Rows.Count, strCol).End(xlUp).Row
End Function

저는 이 정도면 돼요.아래 상태 행에 Excel이 표시하는 번호를 반환합니다.pivot column가filtered그리고 나는 그것이 필요합니다.count눈에 보이는cells.

Global Const DashBoardSheet = "DashBoard"
Global Const ProfileColRng = "$L:$L"
.
.
.
Sub MySub()
Dim myreccnt as long
.
.
.
myreccnt = GetFilteredPivotRowCount(DashBoardSheet, ProfileColRng)
.
.
.
End Sub

Function GetFilteredPivotRowCount(sheetname As String, cntrange As String) As long

Dim reccnt As Long

reccnt = Sheets(sheetname).Range(cntrange).SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeConstants).Count - 1

GetFilteredPivotRowCount = reccnt

End Function

언급URL : https://stackoverflow.com/questions/18088729/row-count-where-data-exists