[已解决]请教大佬个VBA的问题，非常感谢

雪之下路漫漫

我想把后面三张表的借方小计右边的数（也就是100000）循环统计在sheet1。我自己尝试了一下写代码，运行的时候没有报错但是没有值返回。希望大佬们能帮忙看一下是哪里有问题。谢谢~




替代表格.zip (33.08 KB, 下载次数: 3)

2022-5-11 14:53 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

fox2002tv123

2022-5-11 14:54:20

'问题点，合并的单元格只有第一个位置有值，所以+5

1. Option Explicit
   
2. 
   
3. Sub DoArray()
   
4. Dim s$, k, a
   
5. Dim arr, i, j
   
6. Application.ScreenUpdating = False
   
7. s = "借方小计"
   
8. For a = 2 To 4
   
9.     arr = Sheets(a).UsedRange
   
10.     For i = 1 To UBound(arr)
    
11.         For j = 1 To UBound(arr, 2)
    
12.           If arr(i, j) = s Then
    
13.           Sheet1.Select
    
14.           '问题点，合并的单元格只有第一个位置有值，所以+5
    
15.           Sheet1.Range("a" & a) = arr(i, j + 5)
    
16.           End If
    
17.         Next
    
18.     Next
    
19. Next
    
20. Application.ScreenUpdating = True
    
21. 
    
22. End Sub
    
23. 
    

复制代码

跳转到最佳答案楼层

fox2002tv123

'问题点，合并的单元格只有第一个位置有值，所以+5

1. Option Explicit
   
2. 
   
3. Sub DoArray()
   
4. Dim s$, k, a
   
5. Dim arr, i, j
   
6. Application.ScreenUpdating = False
   
7. s = "借方小计"
   
8. For a = 2 To 4
   
9.     arr = Sheets(a).UsedRange
   
10.     For i = 1 To UBound(arr)
    
11.         For j = 1 To UBound(arr, 2)
    
12.           If arr(i, j) = s Then
    
13.           Sheet1.Select
    
14.           '问题点，合并的单元格只有第一个位置有值，所以+5
    
15.           Sheet1.Range("a" & a) = arr(i, j + 5)
    
16.           End If
    
17.         Next
    
18.     Next
    
19. Next
    
20. Application.ScreenUpdating = True
    
21. 
    
22. End Sub
    
23. 
    

复制代码