这个出现了问题，为什么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
    

复制代码

tdpzby

看起来，你的想要的是rng中的数据
arr=rng.value

嘿嘿嘿哈嘿

tdpzby 发表于 2024-3-26 15:59
看起来，你的想要的是rng中的数据
arr=rng.value

老师，specialcells返回的是range类型的数据吗？为什么不能直接赋值给数组呀？

tdpzby

我是菜鸟，你定义arr的时候这样写试试：
dim arr as variant

赋值的时候
arr=rng.value

嘿嘿嘿哈嘿

tdpzby 发表于 2024-3-26 17:59
我是菜鸟，你定义arr的时候这样写试试：
dim arr as variant

好像不太行，我用了另外一个大佬的方法：arr=rng.areas

opiona

赋值的时候
arr=rng.value

如果rng只有一个单元格  得到的不是一个数组, 而是一个单元格值