即B1放到A1下,B2放到A2下………………
但是不能合并,就是说B1变成A2,不能把B1和A1合并成A1
是本来有两列,比如A1-A20,B1-B20,存放了两列数据。
修改之后,要求只有一列,A1-A40
A1,A3,A5,A7……单数行是原来A列的数据,
A2,A4,A6,A8……双数行是原来B列的数据。
ç¨ä¸è½çVBAå¯ä»¥å®ç°ã
ä¾å¦æè¡¨æ ¼å¦å¾ï¼
第ä¸æ¥ï¼ç¼å¶ä»£ç å¦ä¸ï¼
Sub 交åæå ¥()
Dim I, J As Integer
I = 1: J = 1
Do While Cells(I, 1) <> ""
Cells(J, 3) = Cells(I, 1)
Cells(J + 1, 3) = Cells(I, 2)
J = J + 2
I = I + 1
Loop
End Sub
第äºæ¥ï¼æ§è¡ä»£ç ãç»æå¦å¾ï¼