<求助>看书后实践时遇到的问题

王小博vba

为了减轻媳妇痛苦的对数工作压力。夸口说通过VBA程序，对数简直小菜一碟。一口气买了很多本EXCEL的书，但翻了翻以后，还是觉的《别怕，Excel VBA其实很简单》让我上手最快，一口气看了100页。对数这碟菜，我可以试着做了吧。但是实际操作中就会遇见问题。
问题1：如何将非连续区域的值存入多维数组？
[code=vb]name  salary  sex
dick  5000   1
happy  2000   1
dick  5000   1
bobo  15000   1
zhangnan  1000   1
aa  1000   1
bb  1000   1
cc  1000   1
dd  1000   1
ee  1000   1
[/code]
将连续的表格存到数组中，我已经学会了。利用如下代码很好实现（存入name，salary，sex列）。
Dim str2() As Variant
str1 = Sheet1.Range("A2:C11").Value
但我只想将name和sex存入多维数组，如何实现呢？

王小博vba

{:soso_e100:}谢谢大家关注我的问题，vba小菜鸟一只，希望和众菜鸟一样，通过《别怕，Excel VBA其实很简单》这本书，轻松跨进EXCEL编程的大门。

ggsmart

可以对数组元素逐个赋值。

1. 
   
2. Sub ggsmart()
   
3.     Dim arr(1 To 10, 1 To 2), i As Integer  '定义数组（10行2列），循环变量
   
4.     For i = 1 To 10
   
5.         arr(i, 1) = Cells(i, "A").Value     '为数组赋值
   
6.         arr(i, 2) = Cells(i, "C").Value     '为数组赋值
   
7.     Next
   
8.     Range("G1").Resize(10, 2) = arr         '将数组写入单元格区域
   
9. End Sub
   

复制代码