用VBA解决Sub dd()Dim arr, arr1Dim c1&, c2c1 = Range("A1").End(xlToRight).Columnc2 = Range("A2").End(xlToRight).ColumnReDim arr(1 To c1)ReDim arr1(1 To c2)ReDim arr2(1 To c1 + c2)arr = Range("A1", Cells(1, c1))arr1 = Range("A2", Cells(2, c2))For x = 1 To c1
arr2(x) = arr(1, x)Next xFor y = c1 + 1 To
|
