一个小问题，请教各位大侠。
原先杀号区的代码是
q1 = 0
For q = 1 To 9
If Cells(18, q) <> "" Then
q1 = q1 + 1
End If
Next
ReDim crr(0 To q1 - 1)
For s = 0 To q1 - 1
crr(s) = Cells(18, s + 1)
Next
我想把区域改为17到19的前6位，咋改？谢谢，在线等。
一个小问题，请教各位大侠。
原先杀号区的代码是
q1 = 0
For q = 1 To 9
If Cells(18, q) <> "" Then
q1 = q1 + 1
End If
Next
ReDim crr(0 To q1 - 1)
For s = 0 To q1 - 1
crr(s) = Cells(18, s + 1)
Next
我想把区域改为17到19的前6位，咋改？谢谢，在线等。