...For i = 1 To UBound(rng) d(rng(i, 1)) = rng(i, 2答:k = k + 1'自加 ReDim Preserve arr(1 To 6, 1 To k)’在数组arr后面增加一列 arr(1, k) = rng1(l, 1)arr(2, k) = rng1(l, 2)arr(3, k) = rng1(l, 3)arr(4, k) = rng1(l, 4)arr(5, k) = d(rng1(l, 1))arr(6, k) = rng1(l, 5)'以上把对应的...