各位老师们好！新手小白求助，关于批量插入固定位置的问题，谢谢各位老师！！

wang6013

大概意思就是 第一个表中，A列中的单元格如果内容为1，则在当前行的下一行插入辅料表头里面的全部内容，然后再找下一个单元格内容为1的下一行插入辅料表头里面的全部内容，直到全部完成。小白可能表达不是很清晰，敬请老师谅解,谢谢各位老师。详见附件 批量插入辅料表头.rar (17.12 KB, 下载次数: 5)

2024-11-23 16:53 上传

点击文件名下载附件

dambcer

.................

Qs18

1. Sub qs()
   
2.     Application.ScreenUpdating = False
   
3.     Dim arr, i, rng As Range
   
4.     Set rng = Sheet4.Rows("1:17")
   
5.     With Sheet3
   
6.     arr = .Range("a1:a" & .Cells(Rows.Count, 1).End(3).Row)
   
7.     For i = UBound(arr) To 1 Step -1
   
8.         If arr(i, 1) = 1 Then
   
9.             rng.Copy
   
10.             .Range("a" & i + 1).Insert shift:=xlDown
    
11.         End If
    
12.     Next
    
13.     End With
    
14.     Set rng = Nothing
    
15.     Application.ScreenUpdating = True
    
16. End Sub

复制代码

Qs18

试试..........

Qs18

试试...........