如何按条件把数据写入不同数组？

mercy1218

如附件，按性别（男或女），按行把a到d的数据写入不同数组中，需要是动态数组，不要用字典，多谢。

limonet

猜一个，用select case或if than

ynzsvt

用高级筛选到空白工作表后赋值给数组变量

小凡、、、

都别管，我新手有我新手的写法

quqiyuan

供参考。。。
brr,crr分别代表男女

gwjkkkkk

数组嵌套
Option Explicit
Sub TEST2()
    Dim ar, br, j&
      
    With [A1].CurrentRegion
        br = .Value
        ReDim ar(1 To UBound(br, 2))
        For j = 1 To UBound(ar) 'UBound(ar)
             ar(j) = Application.Index(br, , j)
        Next j
    End With

End Sub

gwjkkkkk

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

wang-way

小凡、、、 发表于 2024-6-11 17:30
都别管，我新手有我新手的写法

几个地方可以改进，1 是数据读入数组处理  2 4列数据还可以套循环 3数组可以用动态的

tanglf188

参与一下
自定义函数，自己写条件即可，请参考