Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

9102 / 76807

←次へ　｜　前へ→


	【73273】Re:繰り返し処理について

UO3 - 12/12/16(日) 10:56 -


	引用なし

	パスワード

▼ひまこさん：

了解です。

>初めの１３段１０列の表と同じものが
>１２回目に最終的に出来上がります。
>コピーの１回目は元表からE3：J13を消した表
>コピーの２回目は元表からE4:J13を消した表
>以下続く、、という感じです。
>（最初の質問はこの形でした）
>
>
>もっと良い方法がある場合も含めて
>考え方をアドバイス頂けると助かります。

この考え方がシンプルでよろしいかと思います。
以下、コード案です。

Sub Sample()
　　Dim i As Long
　　Dim x As Long
　　Dim n As Long
　　Dim myR As Range
　　
　　'処理中の画面の動きを隠す
　　Application.ScreenUpdating = False
　　
　　Set myR = Range("A1:J13")　'コピー領域
　　'処理前に転記領域をクリア
　　Range("A1", ActiveSheet.UsedRange).Offset(43).ClearContents
　　
　　For x = 1 To 12 '処理回数
　　　　i = x * 43 + 1　'転記行番号
　　　　myR.Copy Cells(i, "A")　　　'コピペ
　　　　n = x + 1　　　　　　　 'J列までの値がコピーされるべき行数
　　　　If 13 - n > 0 Then
　　　　　　'D列までの値でいい領域につぃて、E～J列の値をクリア
　　　　　　Cells(i, "A").Offset(n, 4).Resize(13 - n, 6).ClearContents
　　　　End If
　　Next
　　
　　Application.ScreenUpdating = True
　　MsgBox "転記終了です"
　　
End Sub

0 hits

▼

【73267】繰り返し処理について ひまこ 12/12/16(日) 0:33