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

时间:2015-07-20 17:29:39

标签: excel vba excel-vba

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

到目前为止,我有这样的事情:

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

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

1 个答案:

答案 0 :(得分: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

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