Question

我目前正在尝试创建一个基于一些条件进行选择的宏。但是，由于某些单元格为空，因此在选择当前点右侧的所有数据时遇到问题。

到目前为止，我有这样的事情：

rwcnt = WorksheetFunction.CountA(Range("A:A"))
lastc = Cells(1, Columns.Count).End(xlToLeft).Column
Dim i As Long


For i = 2 To rwcnt
    If IsNumeric(Cells(i, 1).Value) <> True Then
        Range(Cells(i, 1).Address, Cells(i, 1).End(xlDown).Address).Select
        Range(Selection, lastc).Select
        Exit For
    End If
Next

这给了我一个对象'_global'失败的错误方法'范围'

之前，我将最后一个范围行读作：

Range(Selection, Selection.End(xlToRight)).Select

我尝试了这个，因为我从左边开始，但是，有些行有空白单元格，这是选择停止的地方。因此，我试图从右边进入并找到我的最后一列，然后选择那个。任何帮助将不胜感激！

Answer 1

Range(Selection, lastc).Select

将失败，因为对于此语法，Range期望起始Range和结束Range。（有关语法，请参阅https://msdn.microsoft.com/en-us/library/office/ff841254(v=office.15).aspx）

lastc是一个数字（特别是最后使用过的列的编号）。

您想要使用以下内容：

        Range(Selection, Cells(i, lastc)).Select

参数将取决于您想要选择的内容。

VBS Excel尝试在宏中选择过去的空单元格

1 个答案: