大师你好！如何向二维数组添加行。谢谢！

fsydw

谢谢版主大师赐教！珍藏！！学习中......

fsydw

版主大师你好！最后一句，输出arr2到工作表，代码如何写？谢谢！！！
Range("d10").Resize...???...=arr2

[ 本帖最后由 fsydw 于 2010-4-25 23:55 编辑 ]

fsydw

大师！请帮我看看6楼的代码。谢谢！

HHAAMM

10楼“arr2 = Application.Transpose(arr2)”换为下面一句
Range("d10").Resize(f, 7) = Application.Transpose(arr2)

fsydw

原帖由 HHAAMM 于 2010-4-25 23:58 发表
10楼“arr2 = Application.Transpose(arr2)”换为下面一句
Range("d10").Resize(f, 7) = Application.Transpose(arr2)

谢谢大师赐教！
结果是正确的 。
我是想实现：arr2数组中所有记录（共有两行）：

1、ABCDEFG

30*6

X2

blue

个

20

3100

2、BBBCCCF

20*5

X1

red

个

30

3600

上面两条，全部输出到工作表中。代码如何写呢？

[ 本帖最后由 fsydw 于 2010-4-26 00:08 编辑 ]

HHAAMM

Sub aa()
Dim Mystr As String
Dim arr2()
    With Sheets("sheet2")
        arr1 = .Range("d2:j" & .Range("d65535").End(xlUp).Row)
         For i = 1 To UBound(arr1, 1)
         Mystr = arr1(i, 1)
         If InStr(1, Mystr, "b", 1) > 0 Then '如果名称中包括字符“b”
         n = n + 1
         ReDim Preserve arr2(1 To 7, 1 To n) '将包括字符“b”的记录，生成新数组
            For ii = 1 To 7
                arr2(ii, n) = arr1(i, ii) '包含字符“”的记录应该有2条，第1条和第2条
            Next ii
         End If
         Next
         Range("d10").Resize(n, 7) = Application.Transpose(arr2) '为什么输出结果，是最后一条记录？？
     End With
End Sub

fsydw

ABCDEFG

30*6

X2

blue

个

20

3100

AAABBBCCCF

20*5

X1

red

个

30

3600

大师你好！
1、6楼的代码，运行后，arr2是不是应该有上面两条记录？
2、我想用 Range("d10").Resize(n, ii - 1) = arr2，将上面两条记录输出到工作表。
3、可是仅输出一条（数组中最后一行）记录。错哪了？
谢谢！！

fsydw

谢谢版主大师！OK了   学习中......

HHAAMM

ReDim 语句
      

在过程级别中使用，用于为动态数组变量重新分配存储空间。

语法

ReDim [Preserve] varname(subscripts) [As type] [, varname(subscripts) [As type]] . . .

ReDim 语句的语法包括以下几个部分：

部分 描述
Preserve 可选的。关键字，当改变原有数组最末维的大小时，使用此关键字可以保持数组中原来的数据。

同时，动态数组只能扩展最末维的大小，所以要写成ReDim Preserve arr2(1 To 7, 1 To n) 这样，最后再转置
要是ReDim Preserve arr2(1 To n, 1 To 7) 这样是通不过的

[ 本帖最后由 HHAAMM 于 2010-4-26 00:27 编辑 ]

fsydw

原帖由 HHAAMM 于 2010-4-26 00:17 发表
Sub aa()
Dim Mystr As String
Dim arr2()
    With Sheets("sheet2")
        arr1 = .Range("d2:j" & .Range("d65535").End(xlUp).Row)
         For i = 1 To UBound(arr1, 1)
         Mystr = arr1(i, 1) ...

大师你好！
1、必须用转置吗？Transpose？
2、preserve是重新定义最后一维的最大值的大小？什么意思呢？
谢谢！！！！！！！！！！！！！！！！！！！