请教为什么数组无法向单元格赋值

苏南

即时窗口测试没问题，但是无法向单元格赋值，请教老师们是什么原因。谢谢老师们的时间！！

1. Sub right3()
   
2. Dim trow%, i%, k%
   
3. Dim arr, brr(1000, 8)
   
4. 
   
5. Application.DisplayAlerts = False
   
6. 'k = 0
   
7. trow = Sheets("detail").Range("b50000").End(xlUp).Row
   
8. arr = Sheets("detail").Range("a1:j" & Worksheets("detail").Range("a10000").End(xlUp).Row)
   
9. For i = UBound(arr) To 2 Step -1
   
10.     If arr(i, 2) = Sheets("co.report").Range("k1") And arr(i, 3) = Sheets("co.report").Range("l1") _
    
11.     And arr(i, 7) = Sheets("co.report").Range("q1") Then
    
12.         'k = k + 2
    
13.         If Sheets("co.report").Range("o1") < 0 And arr(i, 5) < 0 Then
    
14.             k = k + 1
    
15.             brr(1, k) = arr(i, 2)
    
16.             'Debug.Print k, brr(1, 1), brr(k, 1), arr(i, 2)
    
17.             brr(2, k) = arr(i, 3)
    
18.             brr(3, k) = arr(i, 4)
    
19.             brr(4, k) = arr(i + 1, 4)
    
20.             brr(5, k) = arr(i, 5)
    
21.             brr(6, k) = arr(i, 6)
    
22.             brr(7, k) = arr(i, 7)
    
23.             brr(8, k) = arr(i, 9)
    
24.         ElseIf Sheets("co.report").Range("o1") > 0 And arr(i, 5) > 0 Then
    
25.             k = k + 1
    
26.             brr(1, k) = arr(i, 2)
    
27.             brr(2, k) = arr(i, 3)
    
28.             brr(3, k) = arr(i - 1, 4)
    
29.             brr(4, k) = arr(i, 4)
    
30.             brr(5, k) = arr(i, 5)
    
31.             brr(6, k) = arr(i, 6)
    
32.             brr(7, k) = arr(i, 7)
    
33.             brr(8, k) = arr(i, 9)
    
34.         End If
    
35.     End If
    
36. Next i
    
37. Debug.Print k, brr(1, 1), brr(2, 1)
    
38.     Sheets("co.report").Range("a2").Resize(k, 8) = Application.Transpose(brr)
    
39. Application.DisplayAlerts = True
    
40. End Sub

复制代码

excelvlookup

Sheets("co.report").Range("a2").Resize(k, 8) = brr

jiangxiaoyun

本地窗口调试，k=1，brr数组结果自己看。

苏南

jiangxiaoyun 发表于 2018-7-6 16:55
本地窗口调试，k=1，brr数组结果自己看。

我好像知道怎么调试了，谢谢了