[已解决]将一列excel的值，赋入数组

billyzhang0609

如何将一列excel的内容，赋值到数组里面。

然后循环的 将 数组的内容 显示在msgbox上？

最佳答案

月排行榜 / 总排行榜

xdragon

2015-1-6 11:56

1. Sub test()
   
2.     Dim arr()
   
3.     Dim i%, j%
   
4.     i = Sheets("table1").Cells(Rows.Count, 1).End(3).Row
   
5.     arr = Sheets("table1").Range("A1:A" & i).Value
   
6.     For j = 1 To UBound(arr)
   
7.         MsgBox arr(j, 1)
   
8.     Next
   
9. End Sub

复制代码

跳转到最佳答案楼层

xdragon

1. Sub test()
   
2.     Dim arr()
   
3.     Dim i%, j%
   
4.     i = Sheets("table1").Cells(Rows.Count, 1).End(3).Row
   
5.     arr = Sheets("table1").Range("A1:A" & i).Value
   
6.     For j = 1 To UBound(arr)
   
7.         MsgBox arr(j, 1)
   
8.     Next
   
9. End Sub

复制代码