• ベストアンサー
※ ChatGPTを利用し、要約された質問です(原文:Excel 度数データのコピー)

Excel度数データのコピー方法

このQ&Aのポイント
  • Excelの度数データを別の範囲にコピーする方法について質問です。
  • B12:C22のデータから得点を度数分だけコピーする方法について教えてください。
  • Subボタン1_Click()の処理でLに値が入らずにエラーが発生しています。

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

  • ベストアンサー
  • SI299792
  • ベストアンサー率47% (780/1631)
回答No.1

縦横が逆です、 Cells(行,列) です。 だから、Cells(I + 12, 3)にします。 他も同様に直せば動きます。 私は、Cells(I + 12, "C")のように直接アルファベットで指定します。 にしています。この方がわかりやすいし、間違いも少ないです。

musume12
質問者

お礼

すばやい回答ありがとうございました。

その他の回答 (1)

  • watabe007
  • ベストアンサー率62% (476/760)
回答No.2

Sub ボタン1_Click()   Dim i As Long, c As Range   i = 12   For Each c In Range("B12:B22")     Cells(i, "I").Resize(c.Offset(, 1)).Value = c.Value     i = i + c.Offset(, 1).Value   Next End Sub

musume12
質問者

お礼

すばやい回答ありがとうございました。

関連するQ&A

専門家に質問してみよう