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

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

2024-12-04 14:44:00

推荐回答（3个）

回答（1）：

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

回答（2）：

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

回答（3）：

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