以下函数中Set Cella = Rng.Range("A1") 是什么用意啊？

Question

Function CellType(Rng)Dim Cella As Range Set Cella = Rng.Range("A1") Select Case TrueCase IsEmpty(Cella)CellType = "Blank"Case Application.IsText(Cella)CellType = "Text"End SelectEnd FunctionSub 类型()Dim a As Varianta = CellType(Selection)MsgBox "该类型为：" & a, vbInformationEnd Sub

Answer 1

这是一个来判断某个单元格中数据类型的自定义函数。rng为单元格区域，可以为一个单元格，也可以是一块单元格区域，Rng.Range("A1") 是你所选区域的第一个单元格，通过这个自定义函数来判断如果为空，则返回此为blank,如果为文本，即返回text.

Answer 2

Rng.Range("A1")并不是表的第一个单元格。
Rng 是你的selection, Rng.Range("A1") 是你所选区域的第一个单元格
你的程序存在两个情况：
1> 当只选择一个单元格时
2> 当选择多个单元格时，如果所选区域有的单元格有值，有的没有值，那么就有问题，而Rng.Range("A1")，将selection定位于所选区域的第一个单元格进行判断