又来麻烦大家了，定义数组遇到了一个问题

jaxxcyh

1. Sub main()
   
2.     '获取名单表学生信息
   
3.     Dim arrStu
   
4.     arrStu = Sheets("Sheet1").Range("A1").CurrentRegion.Value
   
5.    
   
6.     '设定班级数
   
7.     Dim Classes$
   
8.     Classes = 5
   
9.    
   
10.     '获取总人数，男生数，女生数
    
11.     Dim StuNum$, Boys$, Girls$
    
12.     StuNum = UBound(arrStu, 1) - 1
    
13.    
    
14.     '获取性别列
    
15.     Dim arrTmp()
    
16.     arrTmp = Application.Index(arrStu, , 2)
    
17.    
    
18.     '筛选出男生
    
19.     Dim arrboytmp()    '此处加上括号就出现错误提示：类型不匹配
    
20.     'Dim arrboytmp     '去掉括号则一切正常，为什么？？？
    
21.     arrboytmp = Filter(Application.Transpose(arrTmp), "男")
    
22.    
    
23.     '获取男女人数
    
24.     Boys = UBound(arrboytmp)
    
25.     Girls = StuNum - Boys
    
26. 
    
27. End Sub
    

复制代码

quqiyuan

在我印象中加了（）就是数组，只能redim了，不加，就是variant,赋值后才会准确类型

excel玉米

定义数字是%，你用的$这个是表示定义为字符串

abc123281

....................

abc123281

.............................

jaxxcyh

abc123281 发表于 2024-8-16 21:39
看起来是初学者，但也是vba爱好者。
想当初我们学习也是那样的困难，那样的难于理解。
初学时，可以不需 ...

就是不想用循环，才弄数组来直接处理

jaxxcyh

excel玉米 发表于 2024-8-16 20:41
定义数字是%，你用的$这个是表示定义为字符串

这是另一码事了，我的问题是关于那个括号的事。

abc123281

jaxxcyh 发表于 2024-8-16 22:33
这是另一码事了，我的问题是关于那个括号的事。

哦，对不起，原来如此

jaxxcyh

quqiyuan 发表于 2024-8-16 20:14
在我印象中加了（）就是数组，只能redim了，不加，就是variant,赋值后才会准确类型

带括号的可变数组，有时候不用redim，也能批量获得数据。如：
Dim arr()
arr=Range("A1").CurrentRegion
完全行得通。

quqiyuan

jaxxcyh 发表于 2024-8-16 22:36
带括号的可变数组，有时候不用redim，也能批量获得数据。如：
Dim arr()
arr=Range("A1").CurrentRegio ...

也只有这一种情况，dⅰm arr或dⅰm arr()一样，其他情况就不可以了。数组赋值一般是单个或者循环，而变量体相对灵活。大概想到这些。