急！急！急！怎么使用VBA查找多组数据 然后输出到指定的单元格区域

linuxmsi

急！急！急！假设我有三个编号 1 2 3 ；三个编号都对应五组数据 那么能通过VBA 转换到指定的数据页面的指定位置么，应该怎么实现 在线等 希望高手帮下忙

1808835746

Sub asd()
Dim arr()
arr = Range("a1").CurrentRegion
For a = 1 To UBound(arr)
For i = 1 To 2
If arr(a, i) = "1" Then
    k1 = arr(a, 2) & "," & k1
    End If
     If arr(a, i) = "2" Then
    k2 = arr(a, 2) & "," & k2
      End If
     If arr(a, i) = "3" Then
    k3 = arr(a, 2) & "," & k3
     End If
Next
Next
  [f17:j17] = Split(k1, ",")
  [f18:j18] = Split(k2, ",")
  [f19:j19] = Split(k3, ",")
End Sub

1808835746

期待更好的答案，

linuxmsi

不行啊 运行后显示下标越界

yunyibin

用PQ貌似要容易一些