第1个回答 2011-10-26
比如你的数据是在A列和B列、第一行开始,在C1:
=OFFSET($A$1,ROUNDUP(ROW(A1)/2,0)-1,MOD(ROW(A2),2),,)
下拉。
第2个回答 2011-10-26
Sub write_data()
Dim i%, j%
For i = Range("b65536").End(xlUp).Row To 1 Step -1
Rows(i + 1).insert
Cells(i + 1, 1) = Cells(i, 2)
Next
End Sub
第3个回答 2011-10-26
重新制作一列,在C1列输入:
=INDEX($A$1:$B$3,IF(MOD(ROW(),2),INT(ROW()/2)+1,ROW()/2),IF(MOD(ROW(),2),1,2))
下拉,修改了一下,应该可以
第4个回答 2011-10-26
=A1&","&C1