[已解决]求助vba80集数值案例疑问

almeida

大家好，最近看vba80其中数值第二篇有这样一个案例

1. '2、读取存入单元格中
   
2.          
   
3.       Sub d2() '二维数组存入单元格
   
4.         Dim arr, arr1(1 To 5, 1 To 1)
   
5.         Dim x As Integer
   
6.         arr = Range("b2:c6")
   
7.         For x = 1 To 5
   
8.           arr1(x, 1) = arr(x, 1) * arr(x, 2)
   
9.         Next x
   
10.         Range("d2").Resize(5) = arr1
    
11.       End Sub

复制代码

如果数量和单价有几千行，怎么判断金额共有多少行
求教各位大师

最佳答案

月排行榜 / 总排行榜

我不知道呀

2012-8-17 11:58

    Sub d2() '二维数组存入单元格
        Dim arr, arr1()
        Dim y As Integer
        Dim x As Integer
        y = Range("a65536").End(xlUp).Row - 1
        arr = Range("b2" & ":c" & y + 1)
        ReDim arr1(1 To y, 1 To 1)
        For x = 1 To y
        arr1(x, 1) = arr(x, 1) * arr(x, 2)
        Next x
        Range("d2").Resize(y) = arr1
      End Sub
帮你把代码写全了，试试吧

跳转到最佳答案楼层

hoogle

range("b65536").end(3).row  可以返回B列最后一行的行号。
Resize(range("b65536").end(3).row-1)  就是除了标题以外，有多少行的数量，就多少行的区域。

我不知道呀

    Sub d2() '二维数组存入单元格
        Dim arr, arr1()
        Dim y As Integer
        Dim x As Integer
        y = Range("a65536").End(xlUp).Row - 1
        arr = Range("b2" & ":c" & y + 1)
        ReDim arr1(1 To y, 1 To 1)
        For x = 1 To y
        arr1(x, 1) = arr(x, 1) * arr(x, 2)
        Next x
        Range("d2").Resize(y) = arr1
      End Sub
帮你把代码写全了，试试吧

JLxiangwei

Ubound(数组) 可以获取数组的最大上标(编号)
ubund(arr)

1. Sub d2()    '二维数组存入单元格
   
2.     Dim arr, arr1(1 To 10000, 1 To 1)
   
3.     Dim x As Integer
   
4.     arr = Range("b2:c6")
   
5.     For x = 1 To UBound(arr)
   
6.         arr1(x, 1) = arr(x, 1) * arr(x, 2)
   
7.     Next x
   
8.     Range("d2").Resize(UBound(arr)) = arr1
   
9. End Sub

复制代码