"四维数组并加载 FirstName、LastName、Sex 和 Age"

Question

1 创建一个四维数组，并将 FirstName、LastName、Sex 和 Age 列加载到所有 100 人的数组中。<\/strong> 记得从第 2 行开始<\/strong>

2 使用 For\/Next 循环将数组输出到即时窗口<\/strong>

3 确保在逻辑上缩进您的 VBA 代码以使其更具可读性。<\/strong> 此外，使用注释来解释您在 VBA 代码中所做的事情。<\/strong>

4 在即时窗口中输出所有男性的名字、姓氏和性别。<\/strong>

5 对所有女性重复此操作。<\/strong>

6 向用户请求 17 到 29 岁之间的目标年龄。目标年龄应存储在整数类型的变量中。<\/strong>

7 在即时窗口中输出所有目标年龄的人的名字和姓氏。<\/strong>

Sub Customer()
'Declare the worksheets
   Dim ws_Source As Worksheet
   Dim ws_Destination As Worksheet
'Declare the array
   Dim wsData(100, 3) As Variant
'Declare the variables
   Dim rw As Integer
   Dim col As Integer
'refer to the source sheet
Set ws_Source = Worksheets("Sheet1")
'get the information from the source sheet and populate the array
   For rw = LBound(wsData, 1) To UBound(wsData, 1)
      For col = LBound(wsData, 2) To UBound(wsData, 2)
         wsData(rw, col) = ws_Source.Range("A2").Offset(rw, col).Value
      Next col
   Next rw
'refer to the destation sheet
   Set ws_Destination = Worksheets("Sheet2")
' populate the destination sheet from the array
   For rw = LBound(wsData, 1) To UBound(wsData, 1)
      For col = LBound(wsData, 2) To UBound(wsData, 2)
         ws_Destination.Range("A1").Offset(rw, col).Value = wsData(rw, col)
         Debug.Print wsData(rw, col)
      Next col
   Next rw
   
End Sub