Excel vba:键入范围和单元格

Question

我对vba(excel)中的单元格和范围感到有点困惑.从逻辑上讲,我可以将单元格视为size = 1的范围; 而且我认为从一个细胞中制作一个范围很容易.

如果我在这里读取了EntireRow属性的api, 它就会在范围内运行.但是,下面的代码工作,表明循环内的'cell'变量是一个范围

Set import = Sheets("import")
    Set spRange = import.Range("A2")
    Set spRange = import.Range("A2:" & spRange.End(xlDown).Address)
    For Each cell In spRange
        dict.Add cell.Offset(0, 2).Text, cell.EntireRow
    Next cell

同时,以下代码在调用removecell函数时返回指示类型不匹配的错误.函数定义中targetCell的类型应该是什么？

Set spRange = mySheet.Range("b2", mySheet.Range("b2").End(xlDown))
For Each cell In spRange
    val = removecell (cell)
Next cell


Public Function removecell(targCell As Range) As Boolean
    removecell = False
End Function

Answer 1

这编译并运行:

Sub Tester()
Dim spRange As Excel.Range
Dim cell As Excel.Range
Dim mySheet As Excel.Worksheet
Dim val As Boolean

Set mySheet = ActiveSheet
Set spRange = mySheet.Range("b2", mySheet.Range("b2").End(xlDown))
For Each cell In spRange
    val = removecell(cell)
Next cell

End Sub

Public Function removecell(targCell As Range) As Boolean
    removecell = False
End Function