运行这句时出错，网上查了一下，不能给二维数组使用redim preserve增加行数，大神有解决办法吗

preserve只能改最后一维，1to2那里改不了

只能将最后一维的空间增大。如题你的情况想改第一位空间，有个办法，把数组转置，这样如今的第一维就变成了第二维，你可以不停扩大第二维，最后，再将数组转置回来，赋值给单元格

Option Explicit
Sub 如何变化第一维() '我要把所有姓李的人的信息提取出来
Dim i%, j%, arr(), brr(), u1%, u2%, x%
arr = Range("A1").CurrentRegion.Value2
u1 = UBound(arr)
u2 = UBound(arr, 2)
ReDim brr(1 To u2, 1 To 1) 'arr的维度是第表格先行后列对应的。但是这个brr,我在设置的时候，就让它第一维为列，因为列固定的，而姓李的人有多少行，不确定，我就放在第二维。
For j = 1 To u2 '添加标题
brr(j, 1) = arr(1, j) '这样看，brr和arr就是行列顺序相反的
Next
x = 1
For i = 2 To u1
If arr(i, 2) Like "李*" Then '如果姓李
x = x + 1 'brr的列+1
ReDim Preserve brr(1 To u2, 1 To x)
For j = 1 To u2
brr(j, x) = arr(i, j) '行列相反
Next
End If
Next
Range("G1").Resize(x, u2).Value2 = Application.WorksheetFunction.Transpose(brr)
End Sub

如果是输出区域，我会直接将空白单元格区域赋值给变量，获得一个天然的空白二维数组

Preserve是用于修改数组最末一维的大小

转成另一个数组