【求助大佬】如何用循环把Range后面的数字叠加啊

heshushan

麻烦大佬们帮忙看下，Range("23:23").Value 写成 Range("23" & lngRow : "23" & lngRow).Value 不好使
Sub 插入指定行()
Dim i As Integer
'i = 2  '[i5].Value + 10
Rows("2:2").Insert '在第二行插入行
Rows("2:2") = Sheets("出库表").Range("23:23").Value
Rows("2:2").Insert '在第二行插入行
Rows("2:2") = Sheets("出库表").Range("22:22").Value
Rows("2:2").Insert '在第二行插入行
Rows("2:2") = Sheets("出库表").Range("21:21").Value
Rows("2:2").Insert '在第二行插入行
Rows("2:2") = Sheets("出库表").Range("20:20").Value
Rows("2:2").Insert '在第二行插入行
Rows("2:2") = Sheets("出库表").Range("19:19").Value
Rows("2:2").Insert '在第二行插入行
Rows("2:2") = Sheets("出库表").Range("18:18").Value
Rows("2:2").Insert '在第二行插入行
Rows("2:2") = Sheets("出库表").Range("17:17").Value
Rows("2:2").Insert '在第二行插入行
Rows("2:2") = Sheets("出库表").Range("16:16").Value
Rows("2:2").Insert '在第二行插入行
Rows("2:2") = Sheets("出库表").Range("15:15").Value
Rows("2:2").Insert '在第二行插入行
Rows("2:2") = Sheets("出库表").Range("14:14").Value
Rows("2:2").Insert '在第二行插入行
Rows("2:2") = Sheets("出库表").Range("13:13").Value
Rows("2:2").Insert '在第二行插入行
Rows("2:2") = Sheets("出库表").Range("12:12").Value
Rows("2:2").Insert '在第二行插入行
Rows("2:2") = Sheets("出库表").Range("11:11").Value
Rows("2:2").Insert '在第二行插入行
Rows("2:2") = Sheets("出库表").Range("10:10").Value
Rows("2:2").Insert '在第二行插入行
Rows("2:2") = Sheets("出库表").Range("9:9").Value
Rows("2:2").Insert '在第二行插入行
Rows("2:2") = Sheets("出库表").Range("8:8").Value
Rows("2:2").Insert '在第二行插入行
Rows("2:2") = Sheets("出库表").Range("7:7").Value
Rows("2:2").Insert '在第二行插入行
Rows("2:2") = Sheets("出库表").Range("6:6").Value
Rows("2:2").Insert '在第二行插入行
Rows("2:2") = Sheets("出库表").Range("5:5").Value
Rows("2:2").Insert '在第二行插入行
Rows("2:2") = Sheets("出库表").Range("4:4").Value
Rows("2:2").Insert '在第二行插入行
Rows("2:2") = Sheets("出库表").Range("3:3").Value
End Sub

Chip_Kenny

1. Sub 插入指定行()
   
2. Dim arr
   
3. arr = Sheets("出库表").Range("3:23").Value
   
4. Rows("2:" & UBound(arr) + 1).Insert
   
5. Rows("2:2").Resize(UBound(arr)) = arr
   
6. End Sub

复制代码