Question

所以我的基本VBA技能限制了我的编程代码。我想在范围（“A14：A23”）内搜索第一个空单元格以填充值。我必须在A的各个范围内执行此操作，因此我不能只使用列代码中的lastcell。任何人都可以帮助我吗？

Answer 1

关于Scott Craner的评论，您可以使用.Select（在大多数情况下建议不要这样做）。

请参阅How to avoid .Select

Sub FindEmptyCell()

   ActiveSheet.Range("A1:A10").Find("").Select

End Sub

这将选择第一个空单元格

Answer 2

如果您正在使用各种范围，可以将其编写为子程序，以将范围的第一个和最后一个单元格作为参数：

Sub FindEmpty(a, b)

    ' loop through the range, find the first empty cell, then exit the loop

    For Each x In ActiveSheet.Range(a, b)
        If x.Value = "" Then
            ' do something here
            Exit For
        End If
    Next x

End Sub

a将是范围中的第一个单元格，b将是该范围中的最后一个单元格。找到第一个空单元后，您可以执行代码，然后退出子程序。

您还可以将子例程设置为从电子表格中的单元格中获取这些值（第一个和最后一个单元格），而不是直接传入它们，或者如果需要，可以将它们硬编码到子例程中。

选择范围内的第一个空单元格

2 个答案: