ここから本文です

VBAで表からコピーする これを指定した番号だけコピーするように変えたいのですが...

yum********さん

2019/3/2613:12:09

VBAで表からコピーする
これを指定した番号だけコピーするように変えたいのですが
宜しくお願いいたします。

Sub sample()
Dim i As Long
Application.ScreenUpdating = False
For i = 3 To Cells(Rows.Count, "A").End(xlUp).Row
Sheets("ひな形").Copy After:=Sheets(Sheets.Count)
With ActiveSheet
.Name = i - 2
.Cells(3, "C") = Cells(i, "A")
.Cells(4, "C") = Cells(i, "E")
.Cells(5, "C") = Cells(i, "F")
.Cells(6, "C") = Cells(i, "G")
.Cells(7, "C") = Cells(i, "I")
.Cells(3, "j") = Cells(i, "J")
.Cells(3, "i") = Cells(i, "I")
.Cells(3, "E") = Cells(i, "B")
.Cells(3, "K") = Cells(i, "K")
.Cells(3, "L") = Cells(i, "L")
'
'以下同様
'
End With
Next
Application.ScreenUpdating = True
End Sub

閲覧数:
17
回答数:
1
お礼:
100枚

違反報告

ベストアンサーに選ばれた回答

unk********さん

2019/3/2613:21:58

指定した番号とは? i の値?

For i = 1 To 15
Select Case i
Case 3, 5, 13
Case Else
'3行目と5行目と13行目以外で行う処理をここに
End Select
Next i

  • 質問者

    yum********さん

    2019/3/2615:21:31

    これだと3からデーターがあるだけひな形をコピーしてしまいます。
    3から256まで一気に作成そのあと増えた分だけ追加でひな形をコピーしたいのですが、よろしくお願いいたします。

  • その他の返信(1件)を表示

返信を取り消しますが
よろしいですか?

  • 取り消す
  • キャンセル

質問した人からのコメント

2019/3/26 16:41:02

ありがとうございました。

この質問につけられたタグ

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる