Question

我试图编写一个函数来返回工作表上的下一个空白行以插入输入。

代码正在运行，所以我只能总结一下。

我执行Set rng = Range("Data!A" & row)之类的操作然后返回引用。

通过调试，我确定正在创建的范围是引用有效的单元格位置。然而，它正在回归＆＃34;没什么＆＃34;而不是一个空的Range对象。我已经把这个单元格的价值设置为＆＃34; ＆＃34; （空格）返回范围并将其设置回＆＃34;＆＃34;后。

我的问题是两个部分：
（1）为什么空（单元格值）范围引用始终返回＆＃34;没有＆＃34;？
（2）如何正确引用空单元格作为有效的Range对象？

Answer 1

假设我们有一个范围，并希望选择该范围内的第一个真正的空单元格

Sub FirstBlank(r2 As Range)
    Dim r1 As Range
    Set r1 = Cells.SpecialCells(xlCellTypeBlanks)
    If Intersect(r1, r2) Is Nothing Then
        MsgBox "there is nothing to find"
    Else
        r2.Cells.SpecialCells(xlCellTypeBlanks).Cells(1).Select
    End If
End Sub

Answer 2

您的代码中有错误。

＆＃34; A＆＃34;＆安培; row =＆＃34; A 300＆＃34; （其中row = 300）

VBA插入前导空格。

范围参考是＆＃34;没什么＆＃34;？

2 个答案: