使用 VBA，我想计算行数，然后在特定单元格中打印

Question

Here's the code I'm using but it's not working

Sub CountRowsAndPrintInColumnQ()
    
        Dim last_row As Long
        Dim Result As Long
        Set last_row = Cells(Rows.Count, 1).End(xlUp).Row
        Set Result = Range("Q1")
        
        Result.Value = last_row
        
    End Sub

Essentially, I want it to count the rows and then print the value in Q1.

Thanks in advance.

Answer 1

Try this:

Sub CountRowsAndPrintInColumnQ()
    Dim Index As Long

    Index = 1
    Do Until Range("A" & Index).Value = ""
        Index = Index + 1
    Loop
    Range("Q1").Value = Index
End Sub

Answer 2

also an option

Sub CountRowsAndPrintInColumnQ()
         'This will write  column "A"  number of rows into cell Q1
        ActiveSheet.Range("Q1").Value = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
 End Sub