VBA 多表循环判断列字符及添加空行

On_fire

VBA 多表循环判断列字符及添加空行

*

Sheet1是源数据,

第1及2行是标题行, 行数是变量,

工作表是变量 ( 多文件, 多表 ).

*

代码逻辑如下,

1.      工作表中的A及G列是关键列

2.      判断这两列的字符串, 如多过3个/位, 插入步长3列的空行

*

模拟结果在Sheet1(2)

*

恳请大神, 老师出帮忙…

chxw68

1. Sub test()
   
2.     Dim r%, i%
   
3.     Dim arr, brr
   
4.     With Worksheets("sheet1")
   
5.         For j = 1 To 7 Step 6
   
6.             r = .Cells(.Rows.Count, j).End(xlUp).Row
   
7.             arr = .Cells(1, j).Resize(r, 1)
   
8.             For i = UBound(arr) To 3 Step -1
   
9.                 If Len(arr(i, 1)) >= 3 Then
   
10.                     .Cells(i + 1, j).Resize(1, 3).Insert shift:=xlDown
    
11.                 End If
    
12.             Next
    
13.         Next
    
14.     End With
    
15. End Sub
    

复制代码

chxw68

很简单的问题。

liulang0808

这个对楼主来说，难点在哪里？
哪里需要求助？

On_fire

chxw68 发表于 2023-2-9 21:32
很简单的问题。

褚老师晚上好,
谢谢您的帮忙…

On_fire

liulang0808 发表于 2023-2-9 21:34
这个对楼主来说，难点在哪里？
哪里需要求助？

版主好,
个人不懂写判断及循环的代码…

leolee82

On_fire 发表于 2023-2-9 22:55
版主好,
个人不懂写判断及循环的代码…

楼主肯定是在开玩笑，6-7年内发了300百个VBA求助的帖子，居然不会写循环和判断的代码...