数组初学求助：C列的3出不来了，求助大神

约定的童话

数组初学求助：C列的3出不来了，求助大神

zhangzhang

Public Sub test()

Dim Arr, Brr, i%

Arr = Range("A1:B9")
ReDim Brr(1 To UBound(Arr), 1 To 1)

For i = 1 To 9
    Brr(i, 1) = Arr(i, 1) - Arr(i, 2)
Next i

Range("C1").Resize(9) = Brr

End Sub

zhangzhang

Public Sub test()

Dim Arr, i%

Arr = Range("A1:C9")
ReDim Brr(1 To UBound(Arr), 1 To 1)

For i = 1 To 9
    Arr(i, 3) = Arr(i, 1) - Arr(i, 2)
Next i

Range("A1").Resize(9, 3) = Arr

End Sub

约定的童话

zhangzhang 发表于 2018-7-20 13:50
Public Sub test()

Dim Arr, i%

必须加ReDim这句啊，这句话什么意思？起什么作用？

gdw831001

1. Sub test()
   
2.     Dim arr, i%
   
3.     arr = Range("A1:C9")
   
4.     For i = 1 To UBound(arr)
   
5.         arr(i, 3) = arr(i, 1) - arr(i, 2)
   
6.     Next i
   
7.     Range("c1").Resize(UBound(arr)) = Application.Index(arr, , 3)
   
8. End Sub

复制代码

这个是昵称吗

约定的童话 发表于 2018-7-20 13:56
必须加ReDim这句啊，这句话什么意思？起什么作用？

对于你这个不用加 Redim的
你这个出不来完全是最后一句的Resize的列，你的是选择9行1列=arr
你arr是3列，所以你要全部显示出来至少3列

lsc900707

1. Sub test()
   
2.     arr = [a1:c9]
   
3.     For i = 1 To UBound(arr)
   
4.         arr(i, 3) = arr(i, 1) - arr(i, 2)
   
5.     Next
   
6.     [a1:c9] = arr
   
7. End Sub

复制代码

约定的童话

lsc900707 发表于 2018-7-20 15:08

这个代码厉害啊，精简干练，学习了

约定的童话

gdw831001 发表于 2018-7-20 14:06

for这一句这样写比1-9灵活多了