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

雪之下路漫漫

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




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

2022-5-11 14:53 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

fox2002tv123

2022-5-11 14:54:20

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

Option Explicit

Sub DoArray()
Dim s$, k, a
Dim arr, i, j
Application.ScreenUpdating = False
s = "借方小计"
For a = 2 To 4
    arr = Sheets(a).UsedRange
    For i = 1 To UBound(arr)
        For j = 1 To UBound(arr, 2)
          If arr(i, j) = s Then
          Sheet1.Select
          '问题点，合并的单元格只有第一个位置有值，所以+5
          Sheet1.Range("a" & a) = arr(i, j + 5)
          End If
        Next
    Next
Next
Application.ScreenUpdating = True

End Sub

跳转到最佳答案楼层

fox2002tv123

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

Option Explicit

Sub DoArray()
Dim s$, k, a
Dim arr, i, j
Application.ScreenUpdating = False
s = "借方小计"
For a = 2 To 4
    arr = Sheets(a).UsedRange
    For i = 1 To UBound(arr)
        For j = 1 To UBound(arr, 2)
          If arr(i, j) = s Then
          Sheet1.Select
          '问题点，合并的单元格只有第一个位置有值，所以+5
          Sheet1.Range("a" & a) = arr(i, j + 5)
          End If
        Next
    Next
Next
Application.ScreenUpdating = True

End Sub