excelの絶対参照は

行の絶対参照を別シートの列に反映することは出来ますか？

1　2　3　4　5

を別シートで↓にしたいです。

1
2
3
4
5

A$1で下にコピーしても、ぜんぶA$１になってしまいます。
よろしくお願いします。

No.1 回答者： fujisantaro 回答日時： 2009/05/27 17:05

=$A1で下にコピーすれば、

$A2
$A3
$A4
と参照されますが、そういうことですか？

No.2 回答者： suekun 回答日時： 2009/05/27 17:59

行列を入れ替えて参照したいって事だと推測して

下記サンプルで行くとA4セルに以下の数式を記入して
下方向にコピー。

=INDEX($A$1:$E$1,1,ROW(A1))

　 A　　B　　C　　D　　E
1　1　　2　　3　　4　　5
2　
3
4　1
5　2
6　3
7　4
8　5

No.3 回答者： xls88 回答日時： 2009/05/27 18:12

別シートで普通にセル参照式を入力

=Sheet1!A1　=Sheet1!B1　=Sheet1!C1　・・・・・・
参照式セル範囲を選択
編集メニューの「置換」で
=
を
#
に「すべて置換」
#Sheet1!A1　#Sheet1!B1　#Sheet1!C1　・・・・・・
セル範囲選択状態でコピー
貼り付け先へ移動し
「形式を選択して貼り付け」で「行列を入れ替える」で貼り付け
#Sheet1!A1
#Sheet1!B1
#Sheet1!C1
　・
　・
　・
セル範囲選択状態で
編集メニューの「置換」で
#
を
=
に「すべて置換」
=Sheet1!A1
=Sheet1!B1
=Sheet1!C1
　・
　・
　・

No.4 回答者： gyouda1114 回答日時： 2009/05/27 18:33

sheet2　A1に　=INDEX(Sheet1!$A$1:$E$1,ROW($A$1),ROW(A1))　下方にオートフィル

No.5 回答者： xls88 回答日時： 2009/06/03 11:41

マクロの例です。

Sub test1()
　　Dim r As Range
　　Dim i As Long
　　i = 0
　　For Each r In Range("A1:A10")
　　　　i = i + 1
　　　　r.Formula = "=Sheet1!" & Cells(1, i).Address(0, 0)
　　Next
End Sub