[已解决]根据条件用vba批量插入标题

yslvictor

请各位论坛老师帮忙写段代码。先谢了。
条件：
A3：A50有一中、二中或三中，只在三中的上一行插入一行并复制A2：L2的内容。
图：

附件： 绩统计表.rar (7.58 KB, 下载次数: 8)

2012-11-6 10:53 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

huoxieshen

2012-11-6 12:26

1. Sub text()
   
2. Application.ScreenUpdating = False '关闭屏幕刷新
   
3. Dim i As Integer, arr(), l As Long
   
4. arr = Range("a2:l2").Value
   
5. l = Cells(Rows.Count, 1).End(3).Row
   
6. i = 4
   
7. Do While i <= l
   
8.   If Cells(i, 1).Value = "三中" Then
   
9.      Range("a" & i).EntireRow.Insert
   
10.      Range("a" & i & ":l" & i).Value = arr
    
11.          With Range("a" & i & ":l" & i).Interior
    
12.         .ColorIndex = 36
    
13.         .Pattern = xlSolid
    
14.     End With
    
15.      i = i + 1
    
16.      l = l + 1
    
17.   End If
    
18.   i = i + 1
    
19. Loop
    
20. Application.ScreenUpdating = True '开启屏幕刷新
    
21. End Sub

复制代码

试试这个看~~

跳转到最佳答案楼层

huoxieshen

1. Sub text()
   
2. Application.ScreenUpdating = False '关闭屏幕刷新
   
3. Dim i As Integer, arr(), l As Long
   
4. arr = Range("a2:l2").Value
   
5. l = Cells(Rows.Count, 1).End(3).Row
   
6. i = 4
   
7. Do While i <= l
   
8.   If Cells(i, 1).Value = "三中" Then
   
9.      Range("a" & i).EntireRow.Insert
   
10.      Range("a" & i & ":l" & i).Value = arr
    
11.          With Range("a" & i & ":l" & i).Interior
    
12.         .ColorIndex = 36
    
13.         .Pattern = xlSolid
    
14.     End With
    
15.      i = i + 1
    
16.      l = l + 1
    
17.   End If
    
18.   i = i + 1
    
19. Loop
    
20. Application.ScreenUpdating = True '开启屏幕刷新
    
21. End Sub

复制代码

试试这个看~~

yslvictor

正是我要的，谢谢论坛老师。