写入一维数组，出现错误

hcy1185

请教老师一下！循环二维数组arr，把arr列隔行数值存入一维数组，循环一维数组把元素的值累加，写入y8单元格。
出现问题是：一维数组的三个元素都是最后一个数据。请教老师指导，谢谢！

    arr = Range("aa8:" & szz & myr)
    For i = LBound(arr) To UBound(arr)
         For j = LBound(arr, 2) To UBound(arr, 2) Step 2
              ReDim brr(1 To i * UBound(arr, 2) / 2)
              For x = LBound(brr) To UBound(brr)
                   brr(x) = arr(i, j) '存在问题，三个元素都是最后一个数据
              Next x
         Next j
         sumResult = 0                   '初始化结果为0
         For num = 1 To UBound(brr)
               sumResult = sumResult + brr(num) '将当前元素加到结果上
         Next num
         Range("y" & 7 + i) = sumResult
    Next i

chxw68

1.     arr = Range("aa8:" & szz & myr)
   
2.     For i = LBound(arr) To UBound(arr)
   
3.         ReDim brr(1 To UBound(arr, 2) / 2)
   
4.         n = 0
   
5.         For j = LBound(arr, 2) To UBound(arr, 2) Step 2
   
6.             n = n + 1
   
7.             brr(n) = arr(i, j)    '存在问题，三个元素都是最后一个数据
   
8.         Next j
   
9.         sumResult = 0                   '初始化结果为0
   
10.         For num = 1 To UBound(brr)
    
11.             sumResult = sumResult + brr(num)    '将当前元素加到结果上
    
12.         Next num
    
13.         Range("y" & 7 + i) = sumResult
    
14.     Next i
    

复制代码

hcy1185

chxw68 发表于 2024-1-7 10:13

感谢chxw68老师！
Sub 查找I3单元格的月份列二()
Dim myr%, rng As Range, fhzm$, zmz%, szz$
Dim arr, br1(), br2(), i%, j%, n%
Dim x%, sumx1&, sumx2& '变量存放结果
With Sheets("完成情况明细表")
    If Range("i3").Value = "" Then Exit Sub
    myr = Range("b65536").End(xlUp).row
    Set rng = Range("aa6:ax6").Find(Range("i3"), LookAt:=xlWhole)   '完全匹配
        fhzm = Split(rng.Address(1, 1), "$")(1)                     '返回列字母
        zmz = Range("a1:" & fhzm & "1").Cells.Count + 1             '字母转列数
        szz = Replace(Cells(1, zmz).Address(False, False), "1", "") '列数转字母
        arr = Range("aa8:" & szz & myr)
        For i = LBound(arr) To UBound(arr)
            ReDim br1(1 To UBound(arr, 2) / 2)
            ReDim br2(1 To UBound(arr, 2) / 2)
            n = 0
            For j = LBound(arr, 2) To UBound(arr, 2) Step 2
                n = n + 1
                br1(n) = arr(i, j)
                br2(n) = arr(i, j + 1)
            Next j
            sumx1 = 0                  '初始化结果为0
            For x = 1 To UBound(br1)
                sumx1 = sumx1 + br1(x) '将当前元素加到结果上
            Next
            sumx2 = 0
            For x = 1 To UBound(br2)
                sumx2 = sumx2 + br2(x) '将当前元素加到结果上
            Next
        Range("y" & 7 + i) = sumx1
        Range("z" & 7 + i) = sumx2
    Next i
End With
End Sub

chxw68

hcy1185 发表于 2024-1-7 11:02
感谢chxw68老师！
Sub 查找I3单元格的月份列二()
Dim myr%, rng As Range, fhzm$, zmz%, szz$

最好把文件发上来。

A刘志勇

ReDim brr(1 To i * UBound(arr, 2) / 2)改成：ReDim preserve brr(1 To i * UBound(arr, 2) / 2)，没有你的原数据，没有办法验证，你试试吧

A刘志勇

我按你的意思，写了，对不对，你试试