Question

excel VBA程序问题：以下函数中Set Cella = Rng.Range("A1") 是什么用意啊？

Function CellType(Rng)
Dim Cella As Range
Set Cella = Rng.Range("A1")
Select Case True
Case IsEmpty(Cella)
CellType = "Blank"
Case Application.IsText(Cella)
CellType = "Text"
End Select
End Function

Sub 类型()
Dim a As Variant
a = CellType(Selection)
MsgBox "该类型为：" & a, vbInformation
End 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定位于所选区域的第一个单元格进行判断

Answer 3

先发第一个问题解决方案: Sub yueliang1() Application.ScreenUpdating = With Rng.Range("A1") .Insert Shift:=xlDown .Range("A1").Offset(