Liczba wierszy w arkuszu roboczym

Question

Chcę policzyć liczbę wierszy w arkuszu Arkusz1, z modułu kodu Sheet2.

W module kodu Arkusz1 dodaje kod działa poprawnie

ctr = Range("B2", Range("B2").End(xlDown)).Count 

próbowałem ten sam kod w Sheet2 module kodu

recct = ThisWorkbook.Sheets("Sheet1").Range("B2", Range("B2").End(xlDown)).Count 

Dostaję run time error 1004 Application -Defined or Defined error

Dzięki

Answer 1

Można to wykorzystać na przykład:

rowsInThere = Sheets("Sheet1").UsedRange.Rows.Count 

to działa bez przedziałów. Możesz również użyć ActiveSheet jako arkusza do sprawdzenia, na wypadek gdybyś musiał zmienić bieżący arkusz i sprawdzić liczbę wierszy.

Answer 2

Błąd występuje w 2. zakresie odniesienia w recct. Ponieważ odwołujesz się do innego arkusza, musisz powiedzieć VBA nazwę arkusza w obu odniesieniach do zakresu.

Spróbuj to zamiast:

With ThisWorkbook.Sheets("Sheet1")  
    recct = .Range("B2", .Range("B2").End(xlDown)).Rows.Count  
End With 

Alternatywnie, to będzie działać, jak również (choć nieco sloppier).

recct = ThisWorkbook.Sheets("Sheet1").Range("B2", ThisWorkbook.Sheets("Sheet1").Range("B2").End(xlDown)).Rows.Count 

Aktualizacja

Ponieważ istnieje wiele dyskusji wokół tego, co właściwie znaczy przez liczbę wierszy w arkuszu, należy użyć powyższy kod dosłownie zaczynają się B2 i policzyć liczbę sąsiadujących komórek bezpośrednio pod

Jednakże, jeśli chcesz znaleźć ostatnią „prawdziwą” używaną komórkę w kolumnie B (za prawdziwe, to znaczy z danych w nim) to zrobić:

With ThisWorkbook.Sheets("Sheet1") 

    recct = .Range("B2", .Range("B" & .Rows.Count).End(xlUp)).Rows.Count 

End With 

Answer 3

dwie rzeczy

1. Przy pracy poza arkusz trzeba w pełni zakwalifikować Twój zakres
2. Zawsze mierzyć ostatnie dno komórek w górę, zamiast z góry na dół - może mieć luki

kod

Sub GetB() 
Dim ws As Worksheet 
Set ws = Sheets(1) 
Dim lngCnt As Long 
lngCnt = ws.Range(ws.[b2], ws.Cells(Rows.Count, "b").End(xlUp)).Count 
End Sub 

więcej niezawodny

Aby obsłużyć wszystkie sytuacje czysto następnie Find łatwiej

Sub GetB() 
    Dim ws As Worksheet 
    Dim rng1 As Range 
    Set ws = Sheets(1) 
    Set rng1 = ws.Range("B:B").Find("*", ws.[b1], xlValues, , , xlPrevious) 
    If Not rng1 Is Nothing Then 
    Select Case rng1.Row 
    Case 1 
    MsgBox "Only B1 has data", vbCritical 
    Case 2 
    MsgBox "No used cells past B2" 
    Case Else 
    MsgBox rng1.Row - 1 & " cells between B2 and B" & rng1.Row 
    End Select 
    Else 
     MsgBox ws.Name & " column B Is blank", vbCritical 
    End If 
End Sub 

Answer 4

nie wiem, czy to pomoże, ale używam tego w moich modułów cały czas:

Dim TR as long, TC as long 

TR = [Sheet1!A1].CurrentRegion.Rows.count 
TC = [Sheet1!A1].CurrentRegion.Columns.count 

Jeśli wiem że jeśli zbiór danych, z którym mam do czynienia, nie ma pustego wiersza lub kolumny, jak wyciąg z innego programu lub czegoś takiego, to działa szybko i działa świetnie! Z tego można określić zakres wyboru lub wykonać vlookup.

TR = [Sheet1!A1].CurrentRegion.Rows.count 
[I2] = "=vlookup($C2,'sheet1'!A$2:B$" & TR & ",2,FALSE)"