如何在应该为空白但有空格的列中找到最后一个单元格？

Question

所以我有大约20,000条记录的数据。 我想设置范围，以便仅在A列中检查从第2行到20,000的数据。但是，单元格20,001不是空白，它也可以包含空格。 （此数据是在验证之前导入的，因此无法更改）

当我使用.End（xlUp）时，它将检查直到第50,000行。

有帮助吗？

样品：

A栏

一种

乙

（插入2个空格）

---

我只想检查直到B（包括它）的单元格

更新：设法将最后一个必需的单元格返回到主子单元

Private Sub last()
Dim rngX As Range

Set rngX = ActiveSheet.Range("A1").EntireColumn.Find("  ", lookat:=xlPart)

    If Not rngX Is Nothing Then
       /* return value 
    End If


End Sub

Answer 1

GD花生

如果要使用VBA，可以考虑检查[space]字符？ 假设该单元格仅包含空格（或与此相关的仅一个空格）

就像是：

Dim r as range
set r = range("B")

For each c in r.rows

    if instr(1, c.value,chr(32)) > 0 then
    'do something
    end if

next 

您可以对cell.value字符串中的所有字符进行检查，以确认它们只是空格？

有帮助吗？

Answer 2

我相信您将必须分别测试每个单元。 为了使要检查的单元数更小并加快速度，我将首先阅读该列以检查Variant数组，然后从下至上进行检查。 如果空间确实是一个space ，下面的测试将起作用。 如果该空间是NBSP或两者结合，那么您将不得不修改检查以确保只有该空间。

例如：检查A栏：

Option Explicit
Sub foo()
    Dim R As Range
    Dim WS As Worksheet
    Dim V As Variant
    Dim I As Long

Set WS = Worksheets("sheet2")
With WS
    V = .Range("a1", .Cells(.Rows.Count, "A").End(xlUp))
    For I = UBound(V) To LBound(V) Step -1

        'Revise this check line as needed
        If Len(Trim(V(I, 1))) > 0 Then Exit For
    Next I
    Set R = .Cells(I, 1)
End With

Debug.Print R.Address

End Sub

如果所有单元格都为空，则可能需要添加一些错误检查。