specialcells用法请教，折磨好久了。

嘿嘿嘿哈嘿

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
    

复制代码

问题出现在9/10行，我是想把筛选之后rng直接赋值给一个数组，可是一直出问题，arr里面只有一个单元格数据。specialcells返回的是range类型的数据吗？为什么不能直接赋值给数组呀？真诚提问各位大佬

嘿嘿嘿哈嘿

我想把第九行的rng赋值给二维数组arr，不知道为什么不可以，求指教。

dambcer

，，，，，，，，，，，，，

3190496160

数组只能是一个连续的单元格区域

嘿嘿嘿哈嘿

dambcer 发表于 2024-3-26 17:53
，，，，，，，，，，，，，

大佬，非常感谢，我还有一个问题我把第九行的代码用下面两种方式写，为什么就得不到相同的rng范围了。

1. Set rng = ws.[A1]。CurrentRegion.SpecialCells(xlCellTypeConstants, 3)[/code[code]Set rng = ws.UsedRange.SpecialCells(xlCellTypeConstants, 3)

复制代码

]

嘿嘿嘿哈嘿

3190496160 发表于 2024-3-26 18:02
数组只能是一个连续的单元格区域

学到了，谢谢大佬

嘿嘿嘿哈嘿

dambcer 发表于 2024-3-26 17:53
，，，，，，，，，，，，，

大佬，我全懂了，学到了很多，非常感谢

ykcbf1100

arr=rng.value

嘿嘿嘿哈嘿

ykcbf1100 发表于 2024-3-26 21:31
arr=rng.value

大佬试了这个方法，不行嘞，因为单元格不连续，要用dambcer的方法

ykcbf1100

嘿嘿嘿哈嘿 发表于 2024-3-27 10:09
大佬试了这个方法，不行嘞，因为单元格不连续，要用dambcer的方法

你用的是别人的例子，合并的代码别人早写过了，你为啥非得用SpecialCells呢？
如果你会用SpecialCells，那也没问题，问题是你自己都不会，那搞啥。