前端之家

  1. 首页
  2. 问答

查找下一个非空行

• 问答

我有一个问题，我想编写一些简单的代码来检查值，然后查找下一个“无空单元格”。我尝试这样做，但是有问题：

Sub test()
Dim ark1 As Worksheet,ark2 As Worksheet
Dim i As Long,j As Long,lastRow As Long,nextRow As Long,actCell As Long,actCell2 As Long
Set ark1 = Worksheets("Arkusz1")
Set ark1 = Worksheets("Arkusz2")

For i = 1 To 20
    If ark1.Cells(i,"A") = ark1.Cells(1,"B") Then
        ark1.Cells(i,1).Select
        actCell = activeCell.Row
        MsgBox actCell
    End If
Next i

For i = actCell To 20
    ark1.Cells(i,"A").Select
        If IsEmpty(activeCell) Then
            Next i
            Else
            ark1.Cells(i,"A") = 1
        End If
 Next i
End Sub
zsg12345 回答：查找下一个非空行

感谢JvdV，我找到了解决方案，也许对某人有用：

Sub test()
Dim ark1 As Worksheet
Dim i As Long,j As Long,lastRow As Long,nextRow As Long,actCell As Long,actCell2 As Long
Set ark1 = Worksheets("Arkusz1")

For i = 1 To 20
    If ark1.Cells(i,"A") = ark1.Cells(1,"B") Then
        ark1.Cells(i,1).Select
        actCell = ActiveCell.Row
        MsgBox actCell
    End If
Next i

' Next no empty cell
For i = actCell + 1 To 20
        If IsEmpty(ark1.Cells(i,"A")) Then
            Else
            ark1.Cells(i,1).Select
            actCell2 = ActiveCell.Row
            MsgBox "The active cell is not empty   " & actCell2
            Exit For
        End If
 Next i
End Sub
excelnextrowvba
本文链接：https://www.f2er.com/3082141.html

大家都在问