[已解决]如何循环读取每行的数组

lingyuncelia1

有区域【A1:I9】，arr=[A1:I1]、arr=[A2:I2]、arr=[A3:I3]、……arr=[A9:I9]，一个一个写实在太麻烦了，有哪位大神可以写个循环读取每行数组的代码啊？

最佳答案

月排行榜 / 总排行榜

dsmch

2016-2-14 13:04

1. Sub Macro1()
   
2. arr = [a1:i9]
   
3. For i = 1 To 9
   
4.     brr = Application.Index(arr, i, 0) '第i行
   
5.     Cells(i, "K").Resize(1, UBound(brr)) = brr
   
6. Next
   
7. End Sub

复制代码

跳转到最佳答案楼层

上清宫主

for i=1 to 9
   arr=range("A" & i & ":I" & i).value
next
只是，为什么要这么一行行的读呢？一次读进去要不得？

dsmch

1. Sub Macro1()
   
2. arr = [a1:i9]
   
3. For i = 1 To 9
   
4.     brr = Application.Index(arr, i, 0) '第i行
   
5.     Cells(i, "K").Resize(1, UBound(brr)) = brr
   
6. Next
   
7. End Sub

复制代码

lingyuncelia1

上清宫主 发表于 2016-2-14 11:55
for i=1 to 9
   arr=range("A" & i & ":I" & i).value
next

因为我要每一行单独处理，一次读取变成一大片区域一起处理。

lingyuncelia1

dsmch 发表于 2016-2-14 13:04

Sub Macro1()
arr = [a1:i9]
For i = 1 To 9
    brr = Application.Index(arr, i, 0) '第i行
    Cells(i, "K").Resize(1, UBound(brr)) = brr
Next
End Sub

不是"K"吧，是“A”吧

lingyuncelia1

dsmch 发表于 2016-2-14 13:04

运行过，原来如此。