人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

エクセルにて入力されたデータで下記のような動きをするマクロを教えてください。

例:変換前
A1 B1 C1
一行目 1
二行目 2
三行目 3
四行目 1
五行目 2
六行目 3

変換後:
A1 B1 C1
一行目 1 2 3
二行目 1 2 3
三行目 1 2 3
四行目

例では123の繰り返しですが、変換前のデータが1から5までとか1から100までの様に変更できるとさらに嬉しいです。


●質問者: WATANABE
●カテゴリ:コンピュータ
✍キーワード:A1 エクセル データ マクロ 五行
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● SALINGER
●60ポイント ベストアンサー
Option Explicit

Sub Macro1()
  'ここで繰り返す文字数に変えてください
 Const roopCount As Integer = 5
 Dim lastRow As Long
 Dim i As Long
 Dim j As Long
 Dim k As Long
 lastRow = Cells(Rows.Count, 1).End(xlUp).Row
 j = 1
 k = 1
 For i = 1 To lastRow
 Cells(k, j) = Cells(i, 1).Value
 If j = roopCount Then
 j = 1
 k = k + 1
 Else
 j = j + 1
 End If
 Next i
 For i = k + 1 To lastRow
 Cells(i, 1).Value = ""
 Next i
End Sub
◎質問者からの返答

希望通りの事ができました、ありがとうございます

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ