VBA查找最后一行非空单元格为什么不对

king260815796

我想查找最后一行的非空单元格，为什么这样写结果不对？

Sub 最后一行()
Dim x%, y%, rlarge%

For x = 6000 To 11 Step -1
For y = 2 To 11
      If Cells(x, y) <> "" Then
        rlarge = x
        Exit For
      End If

    Next
Next
MsgBox rlarge
End Sub

江小鱼123

用那个counta找非空行.

petergaod

Exit For跳出的是最内层的循环，改成goto语句试试

microyip

1.     Dim nCol As Integer, nMaxRow As Long, nRow As Long
   
2.    
   
3.     For nCol = 2 To 11
   
4.         nRow = Cells(Rows.Count, nCol).End(xlUp).Row
   
5.         If nRow > nMaxRow Then nMaxRow = nRow
   
6.     Next
   
7.     msgbox "最大行数是：" & nMaxRow

复制代码

king260815796

microyip 发表于 2019-12-31 11:59

不行，“不支持属性或方法”？？？？？？？

microyip

king260815796 发表于 2019-12-31 14:38
不行，“不支持属性或方法”？？？？？？？

写漏了几个字，已经修正了

answer6141

Sub test()
    Dim i As Integer
    Dim arr(1 To 10)
   
    For i = 2 To 11
        j = j + 1
        arr(j) = Cells(65536, j).End(xlUp).Row
        
    Next
    MsgBox "最大行为" & Application.WorksheetFunction.Max(arr)
End Sub

answer6141

1. Sub test()
   
2.     Dim i As Integer
   
3.     Dim arr(1 To 10)
   
4.    
   
5.     For i = 2 To 11
   
6.         j = j + 1
   
7.         arr(j) = Cells(65536, j).End(xlUp).Row
   
8.         
   
9.     Next
   
10.     MsgBox "非空单元格为" & Application.WorksheetFunction.Max(arr)
    
11. End Sub

复制代码

格物郅知

1. For i = 2 To 11
   
2. maxr = Sheet1.Cells(65536, i).End(3).Row
   
3.     If maxr > r Then
   
4.     r = maxr
   
5.     End If
   
6. Next
   
7. MsgBox r

复制代码

king260815796

大神多。越学越知道自己菜了。