Excel VBA質問箱 IV

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

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


8851 / 76732 ←次へ | 前へ→

【73449】Re:指定回数分セルをコピー
発言  UO3  - 13/1/11(金) 19:02 -

引用なし
パスワード
   ▼nonoka さん:


計画表のレイアウトが不明ですが、いかではいかがですか?
なお、INPUTシートのH5に入力したとたんに自動実行ということが
お望みなら、そのように変更することもできます。

Sub Sample()
  Dim n As Long
  Dim shTo As Worksheet
  Dim z As Long
  
  Set shTo = Sheets("計画表")
  z = shTo.Range("C" & shTo.Rows.Count).End(xlUp).Row + 1
  
  With Sheets("INPUT")
    n = Val(.Range("H5").Value)
    If n > 0 Then
      Intersect(.Range("A1", .UsedRange).Offset(6), .Columns("C:G")).ClearContents
      .Range("C5:G5").Copy .Range("C7").Resize(n)
      .Range("C5:G5").Copy shTo.Range("C" & z).Resize(n)
    End If
  End With
  
  
End Sub
421 hits

【73448】指定回数分セルをコピー nonoka 13/1/11(金) 18:26 質問
【73449】Re:指定回数分セルをコピー UO3 13/1/11(金) 19:02 発言
【73485】Re:指定回数分セルをコピー nonoka 13/1/15(火) 1:26 回答
【73496】Re:指定回数分セルをコピー UO3 13/1/16(水) 10:01 発言
【73573】Re:指定回数分セルをコピー nonoka 13/1/23(水) 10:21 質問
【73578】Re:指定回数分セルをコピー nonoka 13/1/24(木) 11:54 お礼

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