求大神解决疑惑

mx31876

rocklyman 发表于 2023-6-30 22:45

运行时错误9,下标越界

mx31876

XIHAUA 发表于 2023-7-2 06:07
这个问题不复杂,接受付费吗?付费后5分钟解决.
可以私信我.

怎么付费？5块可以吗？

shiruiqiang

还没处理好吗？

mx31876

shiruiqiang 发表于 2023-7-3 11:39
还没处理好吗？

大神好，你的代码还是有点漏洞，就是汇总行的文本没有等于前面的内容，然后凭证序号也是空的。

rocklyman

mx31876 发表于 2023-7-3 11:30
运行时错误9,下标越界

1. Sub test()
   
2. k = 1
   
3. 
   
4. For i = 2 To Sheets("明细").Range("A1").End(xlDown).Row
   
5.     j = Range("D65535").End(xlUp).Row + 1
   
6.     Range("D" & j) = Sheets("明细").Range("A" & i + m + n)
   
7.     Range("F" & j) = Sheets("明细").Range("B" & i + m + n)
   
8.     Range("H" & j) = Sheets("明细").Range("E" & i + m + n)
   
9.     Range("I" & j) = Sheets("明细").Range("C" & i + m + n)
   
10.     Range("J" & j) = Sheets("明细").Range("D" & i + m + n)
    
11.     Range("E" & j) = "11"
    
12.     Range("G" & j) = Sheets("明细").Range("F" & i + m + n)
    
13.     Range("A" & j) = k
    
14.     If Sheets("明细").Range("G" & i) <> "" Then
    
15.         m = m + 1
    
16.         Range("D" & j + m) = Sheets("明细").Range("A" & i)
    
17.         Range("F" & j + m) = Sheets("明细").Range("B" & i)
    
18.         Range("H" & j + m) = Sheets("明细").Range("I" & i)
    
19.         Range("I" & j + m) = Sheets("明细").Range("G" & i)
    
20.         Range("J" & j + m) = Sheets("明细").Range("H" & i)
    
21.         Range("E" & j + m) = "11"
    
22.         Range("G" & j + m) = Sheets("明细").Range("J" & i)
    
23.         Range("A" & j + m) = k
    
24.     End If
    
25.     If Sheets("明细").Range("K" & i) <> "" Then
    
26.         n = n + 1
    
27.         Range("D" & j + m + n) = Sheets("明细").Range("A" & i)
    
28.         Range("F" & j + m + n) = Sheets("明细").Range("B" & i)
    
29.         Range("H" & j + m + n) = Sheets("明细").Range("M" & i)
    
30.         Range("I" & j + m + n) = Sheets("明细").Range("K" & i)
    
31.         Range("J" & j + m + n) = Sheets("明细").Range("L" & i)
    
32.         Range("E" & j + m + n) = "11"
    
33.         Range("G" & j + m + n) = Sheets("明细").Range("N" & i)
    
34.         Range("A" & j + m + n) = k
    
35.     End If
    
36.     Range("D" & j + m + n + 1) = Sheets("明细").Range("A" & i)
    
37.     Range("F" & j + m + n + 1) = "1121040000"
    
38.     Range("H" & j + m + n + 1) = "S000000"
    
39.     Range("I" & j + m + n + 1) = "999"
    
40.     Range("J" & j + m + n + 1) = "1000000000"
    
41.     Range("E" & j + m + n + 1) = "40"
    
42.     Range("G" & j + m + n + 1) = Application.Sum(Range("G" & j & ":G" & j + m + n))
    
43.     Range("A" & j + m + n + 1) = k
    
44.     m = 0
    
45.     n = 0
    
46.     k = k + 1
    
47. Next
    
48. End Sub

复制代码