Excel vba：类型范围和单元格

Question

我对vba（excel）中的单元格和范围感到困惑。从逻辑上讲，我可以将一个单元看作size = 1的范围;我认为从一个单元格制作一个范围是很容易的。

如果我读了EntireRow属性的api here 它对范围进行操作。但是，下面的代码的工作，指示“内循环cell'variable是一个范围

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