- ベストアンサー
【Excel】複数セル参照して別のセルに下から表示
セルの内容を他のシートのセルに表示させたいのですが、ただ表示させるのではなく、複数行複数列(仮にA1、B1~A10、B10とします)を、他のシートの大きめのセル(サイズ変更して10行分が入るようにしてある)に、逆に表示(A10、B10が一番上にA1、B1が一番下に来るように)し、かつ、1行ずつ改行(段落)させたいのです。 できますでしょうか? よろしくお願いします。
- みんなの回答 (4)
- 専門家の回答
質問者が選んだベストアンサー
マクロでしたら以下のような感じでいけると思います。 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
その他の回答 (3)
- SI299792
- ベストアンサー率47% (774/1621)
画像の様になればいいですか(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 以前なら、補足して下さい。
お礼
- kkkkkm
- ベストアンサー率66% (1725/2595)
たとえば長くなりますが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)
お礼