關於excel問題~

Question

請問大家怎麼把A1欄裡的偶數行的資料轉換到B1欄裡~thanks

題目：　Ａ１　　　　　　　結果：　Ａ１　　　Ｂ１
　　　１１１１　　　　　　　　　１１１１　２２２２
　　　２２２２　　　　　　　　　３３３３　４４４４
　　　３３３３　　　　　　　　　５５５５
　　　４４４４
　　　５５５５

Answer 1

在 B1 輸入下列公式可取出 A 欄的奇數列=INDEX($A$1:$A$5,2*ROW()-1,1)在 C1 輸入下列公式可取出 A 欄的偶數列=INDEX($A$1:$A$5,2*ROW(),1)接著將這兩個公式往下複製就可以了

2006-01-18 09:24:04 補充：
如果要這樣，只能借助巨集了
Sub Macro1()
'
' Macro1 Macro
' Johnny Wang 在 2006/1/18 錄製的巨集
'

'
Dim Source, Target As Range
Dim Odd As Boolean

Set Source = Range("A1")
Set Target = Source
Odd = True

2006-01-18 09:24:32 補充：
Do While (Source <> "")
If Odd Then
Target = Source
If Source.Row <> 1 Then
Source.Value = ""
End If
Set Source = Source.Offset(1, 0)
Odd = False
Else
Target.Offset(0, 1) = Source

2006-01-18 09:24:39 補充：
Source.Value = ""
Set Source = Source.Offset(1, 0)
Set Target = Target.Offset(1, 0)
Odd = True
End If
Loop
End Sub