excel row column問題

只要在cells 輸入公式, 就可以辦到:
1) 在 B1 輸入公式
=INDIRECT( ADDRESS( COLUMN(), 1 ))
2) 將公式複製到 C1, D1, E1, F1, ....
完成.

上面位網友的操作已經是正確的, 要由程式做到, 就要寫巨集程式了, 下面是步驟:
在excel中, 選 工具--->巨集--->巨集, 打入名稱, 例如 Ro, 選 新建
進入一個編輯程式的畫面, 打入或貼上下面程式:
Sub Ro()
Range(Selection, Selection.End(xlDown)).Select
If Selection.Rows.Count < 100 Then
Selection.Copy
Cells(Selection.Row, Selection.Column + 1).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
End If
End Sub

其中Sub Ro() 和 End Sub是電腦一早就有的。
之後再到 工具--->巨集--->巨集--->選項, 在格內打入一個快速鍵, 例如Shift-S, 那麼該程式的快速鍵就成了 Ctrl-Shift-S, 然後可以測試了

把光標停在要處理的資料的第一格, 按Ctrl-Shift-S, 就會自動在該格的旁邊把資料返轉好。

2007-03-22 17:42:33 補充：
如果單單在excel的格裡打函數, 應該做不到的。

SELECT A1-A6, COPY
SELECT B1, 選擇性貼上(PASTE SPECIAL ), 勾選 "轉置(E)"
OK!