请教大佬个VBA的问题，非常感谢
我想把后面三张表的借方小计右边的数（也就是100000）循环统计在sheet1。我自己尝试了一下写代码，运行的时候没有报错但是没有值返回。希望大佬们能帮忙看一下是哪里有问题。谢谢~'问题点，合并的单元格只有第一个位置有值，所以+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
页:
[1]