c_c_lai

¦^´_ 1# naruto018
¸Õ¸Õ¬Ý¡I
Public Sub ´ú¸Õ3()
    Dim ¤å¥»(), ¤å¥»A()
   
    With Worksheets("1111")
        n = 0
        ¤å¥» = .Range("P3").Resize(4, 2).Value
        For i = 1 To 4
            If ¤å¥»(i, 2) <> Empty Or ¤å¥»(i, 2) <> "µL" Then
                n = n + 1
        
                '  ReDim Preserve ¤å¥»A(1 To n, 1 To 2)
                ReDim Preserve ¤å¥»A(1 To 2, 1 To n)
                For c = 1 To 2
                    '  ¤å¥»A(n, c) = ¤å¥»(i, c)
                    ¤å¥»A(c, n) = ¤å¥»(i, c)
                Next
            End If
        Next
    End With
End Sub

c_c_lai

¦^´_ 3# naruto018
§A¥Î°»´ú¼Ò¦¡«K¥i¸Ñ©Î¤F
ReDim Preserve ¤å¥»A(1 To n, 1 To 2) ªºÅܤơA
»P ReDim Preserve ¤å¥»A(1 To 2,, 1 To n)

c_c_lai

¦^´_ 3# naruto018
¥i°Ñ¦Ò¡G
http://yes.nctu.edu.tw/vb/0_Basis/Variable/ReDim.htm