Excel VB Cell finder宏

Question

我正在Excel中的VB中编程一个宏，它将在单元格表/范围内找到一个填充的（不是空的）单元格。 我知道一些C ++，但是我不认为在VB中创建一个宏不会太困难。

这里的问题是宏找不到填充的单元格，而是跳过了它。 我做错了什么？

Sub Datum()
Dim Horizontal As Integer
Horizontal = 10

Dim Vertical As Integer
Vertical = 10

Dim h As Integer
Dim v As Integer
h = 0
v = 0

Range("A1").Select


For v = 0 To Vertical

    For h = 0 To Horizontal
        If ActiveCell.Value = True Then
            Exit For
            Exit For
            End If

    ActiveCell.Offset(0, 1).Select

    Next

ActiveCell.Offset(1, 0).Select

h = 0
Next

MsgBox ActiveCell.Value


End Sub

ps。 我已经在互联网上进行了研究，但似乎没有一个人像我这样有这个问题。

Answer 1

您不应该选择每个单元格，因为这非常耗时。 范围是否为10 * 10并不重要，但我认为这是一个实验。

这段代码取代了您的循环。 我用了你的变量。

Dim Found as Boolean

Found = False

With ActiveSheet

  For v = 1 to vertical
    For h = 1 to horizontal
      If IsEmpty(.Cells(v, h).Value) Then
        Found = True
        Exit For
      End If
    Next
    If Found then
      Exit For
    End If
  Next

  If Found Then
    ' Action empty cell (v,h) found in range
  Else
    ' Action no empty cell in range
  End If 

在此实验中，您的范围是10x10。 你知道真实的尺寸吗？ 您是否要在运行时确定使用范围？ 在我们提供总体解决方案之前，必须解决这些问题。

Answer 2

部分问题将是我认为的循环：

Exit For
Exit For

这不会执行您想要的操作，因为第一个命令将使您跳出内部For循环，并且您永远也不会遇到第二个命令，因此您将继续执行外部for循环。

使用Do-While类型循环可能会更好：

Dim blnFound as Boolean
Dim v as integer
dim h as integer
blnFound = false
v = 0
Do while v <= Vertical and not blnFound

    h = 0

    Do while h <= Horizontal and not blnFound
        If ActiveCell.Value = True Then
            blnFound = True
        End If

        h=h+1
        ActiveCell.Offset(0, 1).Select

    loop

    v = v+1
    ActiveCell.Offset(1, 0).Select

loop

我也不确定您的Offset调用是否可以满足您的要求，尤其是在转到下一列的顶部时。 您最好使用v和h值来选择要更精确检查的单元格（例如ActiveSheet.Cell(h,v) ）

注意：我尚未测试此代码，因此可能需要进行调整，但是应该给出一个主意。