Excel VBA質問箱 IV

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

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


9027 / 76732 ←次へ | 前へ→

【73273】Re:繰り返し処理について
発言  UO3  - 12/12/16(日) 10:56 -

引用なし
パスワード
   ▼ひまこ さん:


了解です。

>初めの13段10列の表と同じものが
>12回目に最終的に出来上がります。
>コピーの1回目は元表からE3:J13を消した表
>コピーの2回目は元表から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
233 hits

【73267】繰り返し処理について ひまこ 12/12/16(日) 0:33 質問
【73271】Re:繰り返し処理について UO3 12/12/16(日) 7:11 発言
【73272】Re:繰り返し処理について ひまこ 12/12/16(日) 10:12 発言
【73273】Re:繰り返し処理について UO3 12/12/16(日) 10:56 発言
【73275】Re:繰り返し処理について ひまこ 12/12/16(日) 21:38 質問
【73277】Re:繰り返し処理について UO3 12/12/16(日) 22:36 発言
【73278】Re:繰り返し処理について UO3 12/12/16(日) 22:40 発言
【73282】Re:繰り返し処理について ひまこ 12/12/17(月) 6:23 お礼
【73287】Re:繰り返し処理について ひまこ 12/12/17(月) 22:00 お礼
【73286】Re:繰り返し処理について 12/12/17(月) 21:49 発言
【73288】Re:繰り返し処理について ひまこ 12/12/17(月) 22:04 質問
【73291】Re:繰り返し処理について 12/12/18(火) 6:32 発言
【73301】Re:繰り返し処理について ひまこ 12/12/18(火) 21:17 お礼
【73276】Re:繰り返し処理について 12/12/16(日) 21:59 回答
【73281】Re:繰り返し処理について ひまこ 12/12/17(月) 6:21 お礼
【73289】Re:繰り返し処理について ひまこ 12/12/17(月) 23:24 質問
【73292】Re:繰り返し処理について 12/12/18(火) 6:34 回答
【73302】Re:繰り返し処理について ひまこ 12/12/18(火) 21:19 お礼
【73311】Re:繰り返し処理について 12/12/19(水) 18:48 回答
【73298】Re:繰り返し処理について UO3 12/12/18(火) 12:42 発言
【73303】Re:繰り返し処理について ひまこ 12/12/18(火) 21:29 お礼

9027 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free