- ベストアンサー
※ ChatGPTを利用し、要約された質問です(原文:Excel 度数データのコピー)
Excel度数データのコピー方法
このQ&Aのポイント
- Excelの度数データを別の範囲にコピーする方法について質問です。
- B12:C22のデータから得点を度数分だけコピーする方法について教えてください。
- Subボタン1_Click()の処理でLに値が入らずにエラーが発生しています。
- みんなの回答 (2)
- 専門家の回答
質問者が選んだベストアンサー
縦横が逆です、 Cells(行,列) です。 だから、Cells(I + 12, 3)にします。 他も同様に直せば動きます。 私は、Cells(I + 12, "C")のように直接アルファベットで指定します。 にしています。この方がわかりやすいし、間違いも少ないです。
その他の回答 (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
質問者
お礼
すばやい回答ありがとうございました。
お礼
すばやい回答ありがとうございました。