按指定数值合并对应行数单元格并赋值

gxls · 发表于 2019-3-18 15:37

后学菜鸟求助：想通过VBA设计一个表格，需要按给定的数值合并相应行数的单元格并赋值，这代码应该怎么写？求指点。谢谢。

合并单元格.zip (7.05 KB, 下载次数: 3)

不知道为什么 · 发表于 2019-3-18 15:45

本帖最后由不知道为什么于 2019-3-18 16:09 编辑

供参考

复制代码

不知道为什么 · 发表于 2019-3-18 15:46

代码审核中，贴图参考

gxls · 发表于 2019-3-18 16:20

不知道为什么发表于 2019-3-18 15:46
代码审核中，贴图参考

谢谢指点。

代码有两处看不太懂：①代码第五行len函数不是返回字符串的长度么，“len(rng.value)"这个代码的作用是什么呢？②代码第六行“nr=rng.value"的nr是变量么，这个不用声明吗？

不知道为什么 · 发表于 2019-3-18 16:26

gxls 发表于 2019-3-18 16:20
谢谢指点。

代码有两处看不太懂：①代码第五行len函数不是返回字符串的长度么，“len(rng.value)"这个 ...

没有强制申明变量。当然可以申明
判断是否是空值

gxls · 发表于 2019-3-18 16:39

不知道为什么发表于 2019-3-18 16:26
没有强制申明变量。当然可以申明
判断是否是空值

明白了，谢谢

		自动登录	找回密码
密码			免费注册

[求助] 按指定数值合并对应行数单元格并赋值