选中任意区域，每行下面插入2行空白行

无雨谷 · 发表于 2024-6-28 09:41

本帖最后由无雨谷于 2024-6-28 10:40 编辑

选中任意区域，每行下面插入2行空白行。每行包括没选的所有数据都同步下移。目前代码达不到表2效果。表1选中行后面没选的部分数据没下移.请大神帮忙修改一下代码，谢谢！

测试.rar (15.72 KB, 下载次数: 7)

发哥76 · 发表于 2024-6-28 10:14

SelRange.Rows(i + 1).EntireRow.Insert

cidanji · 发表于 2024-6-28 10:14

SelRange.Rows(i + 1).Insert 改成 SelRange.Rows(i + 1).EntireRow.Insert

沈默00 · 发表于 2024-6-28 10:37

表2是所有行下面都插入了两空白行，和选择哪一行有关吗？

无雨谷 · 发表于 2024-6-28 10:39

谢谢俩位，可以了

无雨谷 · 发表于 2024-6-28 10:42

沈默00 发表于 2024-6-28 10:37
表2是所有行下面都插入了两空白行，和选择哪一行有关吗？

实际就是达到表格的插入同样效果，不是只插选中部分

沈默00 · 发表于 2024-6-28 10:52

沈默00 · 发表于 2024-6-28 10:53

插入和删除

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

[已解决] 选中任意区域，每行下面插入2行空白行