• ベストアンサー
※ ChatGPTを利用し、要約された質問です(原文:複数の行に入ったデータをひとつのセルにまとめるVB)

Excel VBAで複数の行に入ったデータをひとつのセルにまとめる方法とは?

このQ&Aのポイント
  • Excel VBAを使用して、複数の行に入ったデータをひとつのセルにまとめる方法を説明します。
  • 具体的には、'入力'シートにあるデータを自動生成して'シート1'に記入し、そのデータを'Sheet2'のA1セルに連結する方法を解説します。
  • また、毎回変わる数量を繰り返しの回数に指定する方法も紹介します。

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

  • ベストアンサー
  • hige_082
  • ベストアンサー率50% (379/747)
回答No.2

何か良く分かりませんが >これを『Sheets2』のA1セルに・・・ と言うことであれば Sub test() Worksheets("Sheet2").Range("A1").Value = Join(WorksheetFunction.Transpose(Worksheets("Sheet1").Range("A1", Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp)).Value)) End Sub 長いですが一行です 参考まで

ampmman-ampmman
質問者

お礼

できました!ありがとうございます。 まさに求めていた回答でした。 ご丁寧にありがとうございました。

その他の回答 (1)

  • mt2008
  • ベストアンサー率52% (885/1701)
回答No.1

まず、VBとありますが、ExcelのVBAで良いですか? Sheets1のA列にずらずらと書く必要ないですよね? 両方YESならこんな感じでSheets1のA1に書き込みます。。 Sub Sample()  Dim nCount As Long  Dim nStart As Long  nCount = Sheets("入力").Range("B2").Value  nStart = Sheets("入力").Range("B3").Value  With Sheets("Sheets1")   For i = 0 To (nCount - 1)    .Range("A1").Value = .Range("A1").Value & nStart + i & ";"   Next i  End With End Sub 但し、Sheets1と言うシートがちゃんと存在している事。 また、Excelの制限でセルに入力可能な文字数は32767で、表示可能な最大文字数は1024です。最初のシリアル値が大きかったり数量が多かったりすると制限に引っかかります。ご注意を。

関連するQ&A