VBA 添加判断逻辑及循环代码

On_fire · 发表于 2023-2-5 19:28

VBA 添加判断逻辑及循环代码

*

Sheet1是有参考代码,

代码能判断A列不同行的连续值, 不同时, 要插入一空行!

*

Sheet2(2)是新的数据格式,

代码的逻辑如下,

1. 第1行是标题行,

2. 由K列开始往右, 每7列不同行是1组数据, 共有3组 ( 已标黄, 橙, 绿 )!

3. 每组的第1列第2行住下, 是要判断的关键值,

4. 当关键值有不同时, 要插入一行步长为6列的空行

*

Sheet2(3)是模拟结果

*

*恳请大神, 老师出手帮忙…谢谢!!!

zjzyj · 发表于 2023-2-5 23:03

附件供参考

liulang0808 · 发表于 2023-2-6 07:41

Sub test()

Application.ScreenUpdating = False
For j = 1 To 3
      k = j * 7 + 4
      For i = Cells(Rows.Count, k).End(3).Row To 3 Step -1
         If Cells(i, k) <> "" And Cells(i, k) <> Cells(i - 1, k) Then
            Cells(i, k).Resize(1, 6).Insert shift:=xlDown
         End If
      Next i

Next j
End Sub

liulang0808 · 发表于 2023-2-6 07:42

。。。。。。。。。。。。。。。。

On_fire · 发表于 2023-2-6 09:34

zjzyj 发表于 2023-2-5 23:03
附件供参考

老师早上好,
谢谢帮忙…

On_fire · 发表于 2023-2-6 12:13

liulang0808 发表于 2023-2-6 07:42
。。。。。。。。。。。。。。。。

版主好,
插入的一行, 可否规定"不带单元格的格式"?
比如截图中,
大箭头带格式 ( 会带底色或网格线 ),
小箭头没格式 ( 空白的, 对的 )

liulang0808 · 发表于 2023-2-6 13:01

On_fire 发表于 2023-2-6 12:13
版主好,
插入的一行, 可否规定"不带单元格的格式"?
比如截图中,

可以录制一段设置格式的宏代码，然后对插入的行进行设置就可以了

On_fire · 发表于 2023-2-7 14:17

liulang0808 发表于 2023-2-6 13:01
可以录制一段设置格式的宏代码，然后对插入的行进行设置就可以了

版主好, 搞定了…
*
现在想再优化,
就是文件夹内, 每个工作簿内, 每张工作表都要同样结果!
请问如何修改了?

liulang0808 · 发表于 2023-2-7 17:13

https://club.excelhome.net/threa ... tml?_dsign=73cffde5
相关案例，可以参考下凹

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

[求助] VBA 添加判断逻辑及循环代码

评分