隔行插入空行并写入固定内容

BU_PING

详情请打开工作簿看说明工作表

半百

我就好奇，这样做有什么意义？

杨建营

1. Sub 隔行插入行并写入数据()
   
2. 'Sheets("原数据").Select
   
3. Dim m As Long
   
4. Dim arr
   
5. Application.ScreenUpdating = False
   
6. arr = Array("买1", "", "", "买2", "", "", "卖1", "", "卖2")
   
7. m = [a65536].End(xlUp).Row
   
8. For i = m To 3 Step -1
   
9.     Rows(i & ":" & i).Insert Shift:=xlDown
   
10. Next i
    
11. m = [a65536].End(xlUp).Row
    
12. For i = m + 1 To 3 Step -2
    
13.     Cells(i, 4).Resize(, 9) = arr
    
14. Next
    
15. Cells(1, 1).CurrentRegion.Borders.LineStyle = 1
    
16. Application.ScreenUpdating = True
    
17. End Sub

复制代码

ykcbf1100

代码这样改下即可。

ykcbf1100

附件供参考。。。

cdcn

练下手。。。。。。





示例表.rar (19.15 KB, 下载次数: 4)

2024-1-20 23:03 上传

点击文件名下载附件

BU_PING

ykcbf1100 发表于 2024-1-20 21:32
附件供参考。。。

感恩帮助，这个循环和变量的方法太好了。现实中遇到这个问题。没有好的思路。

BU_PING

半百 发表于 2024-1-20 20:34
我就好奇，这样做有什么意义？

现实中遇到这个问题，为了方便记录