• ベストアンサー

【Excel】複数セル参照して別のセルに下から表示

セルの内容を他のシートのセルに表示させたいのですが、ただ表示させるのではなく、複数行複数列(仮にA1、B1~A10、B10とします)を、他のシートの大きめのセル(サイズ変更して10行分が入るようにしてある)に、逆に表示(A10、B10が一番上にA1、B1が一番下に来るように)し、かつ、1行ずつ改行(段落)させたいのです。 できますでしょうか? よろしくお願いします。

質問者が選んだベストアンサー

  • ベストアンサー
  • kkkkkm
  • ベストアンサー率66% (1725/2595)
回答No.2

マクロでしたら以下のような感じでいけると思います。 Sub Test() Dim i As Long Dim mData As Variant: mData = "" Dim Ws1 As Worksheet, Ws2 As Worksheet Set Ws1 = Sheets("Sheet1") '元のデータのシート Set Ws2 = Sheets("Sheet2") '書き込むセルのあるシート For i = 10 To 1 Step -1 mData = mData & Ws1.Cells(i, "A").Value & Ws1.Cells(i, "B").Value & vbCrLf Next 'Sheet2のA1に書き込む Ws2.Range("A1").Value = Left(mData, Len(mData) - 1) Set Ws1 = Nothing Set Ws2 = Nothing End Sub

40oyazi
質問者

お礼

マクロは難しいですが、チャレンジしてみます。 ありがとうございます。

Powered by GRATICA

その他の回答 (3)

  • SI299792
  • ベストアンサー率47% (774/1621)
回答No.4

間違えました。 =TEXTJOIN(CHAR(10),,INDEX(A1:A10&" "&B1:B10,11-ROW(1:10)))

40oyazi
質問者

お礼

ありがとうございます。 参考にさせていただきます。

Powered by GRATICA
  • SI299792
  • ベストアンサー率47% (774/1621)
回答No.3

画像の様になればいいですか(C1~C10 は結合してあります) =TEXTJOIN(CHAR(10),,INDEX(A:A,11-ROW(1:10))&" "&INDEX(B:B,11-ROW(1:10))) Excel2019 以前は、Ctrl+Shift +Enter で配列数式にします。数式に{}が付きます。 下へコピペ。 https://support.microsoft.com/ja-jp/office/%E9%85%8D%E5%88%97%E6%95%B0%E5%BC%8F%E3%82%92%E4%BD%9C%E6%88%90%E3%81%99%E3%82%8B-e43e12e0-afc6-4a12-bc7f-48361075954d Excel2016 以前なら、補足して下さい。

40oyazi
質問者

お礼

丁寧にありがとうございます。

Powered by GRATICA
  • kkkkkm
  • ベストアンサー率66% (1725/2595)
回答No.1

たとえば長くなりますがSheet1のセルを別シートのどこかのセルに どこかのセルは「折り返して全体を表示する」設定で =CONCATENATE(Sheet1!A10,Sheet1!B10,CHAR(10),Sheet1!A9,Sheet1!B9,CHAR(10),Sheet1!A8,Sheet1!B8,CHAR(10),Sheet1!A7,Sheet1!B7,CHAR(10),Sheet1!A6,Sheet1!B6,CHAR(10),Sheet1!A5,Sheet1!B5,CHAR(10),Sheet1!A4,Sheet1!B4,CHAR(10),Sheet1!A3,Sheet1!B3,CHAR(10),Sheet1!A2,Sheet1!B2,CHAR(10),Sheet1!A1,Sheet1!B1)

40oyazi
質問者

お礼

ありがとうございます。 いつも助けていただき感謝しかないです。

Powered by GRATICA

関連するQ&A