合并表格出现问题

嘿嘿嘿哈嘿

这个出现了问题，为什么rng不是一个含有常数单元格的区域？哪位大佬帮忙解答一下？

1. Sub 合并数据()
   
2.     Dim ws As Worksheet, arr
   
3.     Dim i&, j&, p&, rng As Range
   
4.     Sheets(1).UsedRange.ClearContents
   
5.     Sheets(2).[A1:I2].Copy Sheets(1).[A1]
   
6.     For Each ws In Worksheets
   
7.        If IsEmpty(ws.[A5]) = False Then
   
8.             If ws.Name <> "汇总" Then
   
9.             Set rng = ws.[A1:I100].SpecialCells(xlCellTypeConstants, 3)
   
10.              arr = rng
    
11.                 For j = 3 To UBound(arr)
    
12.                 i = i + 1
    
13.                 Sheets(1).Cells(i + 2, 1) = i
    
14.                     For p = 2 To UBound(arr, 2)
    
15.                     Sheets(1).Cells(i + 2, p) = arr(j, p)
    
16.                     Next p
    
17.                 Next j
    
18.             End If
    
19.         End If
    
20.     Next        
    
21. End Sub
    

复制代码