jackyq

try .....

d(A & "") = Br

jackyq

¤£¬O¥u¦³ Array
¥H¤U¤]·|²£¥Í "°}¦C¯Á¤Þ¶W¥X½d³ò"

Workbooks("¤£¦s¦bªºwb").Activate
Sheets("¤£¦s¦bªºws").Select

jackyq

' ¦³¥i¯à§Aªº k­È ¥X²{ <=0
' §A¥i¥H¸Õ¸Õ¤U­±

Option Base 1  

Sub QX9650_____()

Dim a()


k = 10
ReDim a(k)

k = 1
ReDim a(k)

k = 0
ReDim a(k)  '§A§â°}¦C¤U­­³]¬° 1 , µ²ªGÅܦ¨ Redim  a(1 to 0)

End Sub




'    If k >= 1 Then
'        For Each a In .Range(.[A9], .[A6000].End(xlUp))
'            ReDim Br(k)
'
'            For j = 1 To k
'            Br(j) = a.Offset(, j + 159).Value
'            Next j
'            d1(a & "") = Br
'        Next
'    End If

jackyq

(1)
k=0 ®É
·|Åܦ¨ Redim Br(1 To 0)  '--> VBA ¨S¦³¿ìªk°t¸m³oºØ°}¦C
IF K>=1 Then ..... End if ¥i¥H¨¾¤î °õ¦æ¨ì Redim Br(1 To 0)  

(2)
¾¨¶q¤£­n¥h¨Ï¥Î Option Base 1 ³oºØªF¦è

³Ì¦nª½±µ¼g¦¨ Redim Br(1 To K)