エクセルで別シートに抽出

質問

エクセルで同じBOOKに以下のようなシートがあります。
【sheet1】
A　B　C　D　E…
5　7　8　9　3…
3　3　6　5　6…

【sheet2】
A　B　C　D　E…
2　7　8　5　3…
6　3　9　5　7…

【sheet3】
A　B　C　D　E…
1　8　5　7　6…
1　3　8　5　7…

こんなシートがsheet1～sheet50まであり、これを

【sheet51】に
A　A　A　
5　2　1
3　6　1

【sheet52】に
B　B　B
7　7　8
3　3　3

のようになるだけ簡単に抽出したいのですが…
どなたか、よろしくお願いします。

回答No.2

imogasi · ベストアンサー

例データ
Sheet1　A1:D5
111 112 113 114 115
121 122 123 124 125
131 132 133 134 135
141 142 143 144 145
151 152 153 154 155
Sheet2　A1:D5
211 212 213 214 215
221 222 223 224 225
231 232 233 234 235
241 242 243 244 245
251 252 253 254 255
Sheet3　A1:D5
311 312 313 314 315
321 322 323 324 325
331 332 333 334 335
341 342 343 344 345
351 352 353 354 355
Sheet51　A1:E3
式　=INDIRECT("Sheet"&ROW()&"!A"&COLUMN())
結果
111 121 131 141 151
211 221 231 241 251
311 321 331 341 351
Sheet52　A1:E3
式　=INDIRECT("Sheet"&ROW()&"!B"&COLUMN())
結果
112 122 132 142 152
212 222 232 242 252
312 322 332 342 352
Sheet53　A1:E3
式　=INDIRECT("Sheet"&ROW()&"!C"&COLUMN())
結果
113 123 133 143 153
213 223 233 243 253
313 323 333 343 353
式は各シートとも、A1をB1:E5まで複写、A１：E５をA3:E3まで複写する。
しかしややこしいですね。＃１のご回答と違うように思うのですが、
どちらが正しいか、判定はよろしくお願いします。
質問のシート５１の解釈が間違っていればすみません。
VBAで組んだほうが考え方がやさしいように思いました。

回答No.1

mu2011

安直ですが、以下の方法をお試し下さい。

シート51のコピー範囲指定後、=INDIRECT("Sheet"&COLUMN()&"!A1:A10")を入力して下さい。
コピー元の行数は仮にA1:A10としていますので、実行数に変更して下さい。

シート52以降は、このA1:A10部分をB,C,D・・・に変更します。