エクセル 行列を入れ替えてオートフィルしたい！

出来ないのものでしょうか？
仕事でとてもこまっています。

セルの内容をコピーして【リンク貼り付け】しますよね、セルはA1,A2,A3と連続したデータを横にA1,B2,C3とオートフィルできないでしょうか？

瀬戸際で困り果ててます、宜しくお願いします。

No.2 回答者： shoyosi 回答日時： 2002/03/26 23:24

データを横にA1,B2,C3とオートフィルできないでしょうか？＞

　A1,B1,C1　ならば、「形式を選択して貼り付け」→「行列を入れ替える」でいいんですが。

No.1 回答者： nishi6 回答日時： 2002/03/26 12:27

リンク貼り付けをした後のマクロを書いてみました。

まず、普通にリンク貼り付けをします。
例えば、シート１のA1:A10をシート２のA1:A10にリンク貼り付けしたとします。
シート２のA1:A10を選択したまま下記のマクロを実行します。斜め右下に下がる方向に式を移動させます。

ツール→マクロ→Visual Basic Editor でVBE画面に移り、挿入→標準モジュール で標準モジュールを挿入し、そこに下記コードを貼り付けます。(当方、Excel97です)
ご参考に。

Sub MoveLink()
　　Dim rg As Range 'セル
　　Dim rw As Long '行カウンタ

　　'選択した範囲の算式を複写していく
　　For Each rg In Selection
　　　　'選択の２行目から
　　　　If rw >= 1 Then
　　　　　　'行数と同じだけ横に行ったセルに算式を書く
　　　　　　rg.Offset(0, rw).Formula = rg.Formula
　　　　　　'元のセルを消去する
　　　　　　rg.ClearContents
　　　　End If

　　　　rw = rw + 1 '行を進める
　　Next
End Sub