【救助】用变量范围给数组赋值问题

ericniming

各位大师，菜鸟刚刚学习VBA，准备设计一个自动求和不同sheet的相同范围的程序。开始部分如下：

A列	B列	C列
1	源数据起始列	A
2	源数据起始行	1
3
4
5	源数据结束列	D
6	源数据结束行	10

Private Sub CommandButton1_Click()
Dim beg, fin As String, m, n, o As Integer
  beg = [b1]
m = [b2]
fin = [b5]
n = [b6]
o = Worksheets.Count
  arr = Sheets(1).Range(Cells(m, beg), Cells(n, fin))
brr = Sheets(3).Range("A1:D10")
'brr = Sheets(3).Range(Cells(m, beg), Cells(n, fin))（已加'让其不运行了）
  End Sub


为什么“arr = Sheets(1).Range(Cells(m, beg), Cells(n, fin))”可以赋值，“brr = Sheets(3).Range(Cells(m, beg), Cells(n, fin))“就出1004代码错误，如果用“ brr = Sheets(1).Range("A1:D10")”又是可以的。  就是说引用sheet（1）的可以，引用sheet（2）（3）......都不能变量赋值了

已经研究了一天了，也找不到原因，求解！

abc123281

Private Sub CommandButton1_Click()
Dim arr(1 To 10, 1 To 4), brr
Dim ws As Worksheet
For Each ws In Worksheets
  If ws.Name <> "输入sheet" And ws.Name <> "结果sheet" Then
    n = n + 1
    brr = ws.Range("a1:d10")
    For i = 1 To UBound(brr)
      For j = 1 To UBound(brr, 2)
         arr(i, j) = arr(i, j) + brr(i, j)
      Next
    Next
  End If
Next
With ThisWorkbook.Worksheets("结果sheet")
   .Range("a1").Resize(10, 4) = arr
End With
MsgBox "本次共汇总了" & n & "个工作表！", vbInformation
End Sub

abc123281

代码仅供参考  可以自行修改

自动累加不同sheet的数据V1.0.rar (21.78 KB, 下载次数: 1)

2018-9-29 10:19 上传

点击文件名下载附件

ericniming

abc123281 发表于 2018-9-29 10:16
Private Sub CommandButton1_Click()
Dim arr(1 To 10, 1 To 4), brr
Dim ws As Worksheet

谢谢帮助。我是打算这个方法搞不定，就用循环赋值方法了。因为这个Dim arr(1 To 10, 1 To 4) 10 和 4 也是需要变化的，因为每次需要求和的范围也变化，行号和列号都可能变化。所以brr = ws.Range("a1:d10")中的范围也要用变量来表示。

ericniming

abc123281 发表于 2018-9-29 10:19
代码仅供参考  可以自行修改

感谢回复，我就是没想明白为什么赋值sheet(1)可以的，变到sheet(2)、(3)这种四个变量的范围赋值方法就不行了。。。

abc123281

可以实现  有些麻烦  很少见过这种要求

ericniming

abc123281 发表于 2018-9-29 15:40
可以实现  有些麻烦  很少见过这种要求

用循环赋值语言搞定了。  这个要求是挺少的，因为处理的数据excel有几十个sheets，用普通公式加太麻烦了。

ericniming

abc123281 发表于 2018-9-29 15:40
可以实现  有些麻烦  很少见过这种要求

嗯，是很少有这个要求。因为需要加和的sheet有几十个，每次范围不一样，用excel公式做很麻烦。后来我用循环赋值搞定了。
Private Sub CommandButton1_Click()
Dim beg, fin As String, i, j, k, m, n, o, p, q As Integer

beg = [b1]
m = [b2]
fin = [b5]
n = [b6]
o = Worksheets.Count

p = n - m + 1
q = Cells(n, fin).Column - Cells(m, beg).Column + 1

ReDim brr(1 To p, 1 To q), crr(1 To p, 1 To q) As Variant
For k = 3 To o
  For i = 1 To p
    For j = 1 To q
      brr(i, j) = Sheets(k).Cells(m, beg).Offset(i - 1, j - 1)
      crr(i, j) = crr(i, j) + brr(i, j)
    Next j
  Next i
Next k
Sheets(2).UsedRange.Clear
Sheets(2).Cells(m, beg).Resize(p, q) = crr
Sheets(2).Activate

  End Sub

ericniming

是比较少见，主要需要累加的sheet有几十个，所以用excel的公式加就比较麻烦了。后来用循环语句来做了。Dim beg, fin As String, i, j, k, m, n, o, p, q As Integer
  beg = [b1]
m = [b2]
fin = [b5]
n = [b6]
o = Worksheets.Count
p = n - m + 1
q = Cells(n, fin).Column - Cells(m, beg).Column + 1
  ReDim brr(1 To p, 1 To q), crr(1 To p, 1 To q) As Variant
For k = 3 To o
  For i = 1 To p
    For j = 1 To q
      brr(i, j) = Sheets(k).Cells(m, beg).Offset(i - 1, j - 1)
      crr(i, j) = crr(i, j) + brr(i, j)
    Next j
  Next i
Next k
Sheets(2).UsedRange.Clear
Sheets(2).Cells(m, beg).Resize(p, q) = crr
Sheets(2).Activate