Excel VBA質問箱 IV

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

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


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

15935 / 76733

←次へ　｜　前へ→


	【66272】Re:値に応じて、行をコピー、貼り付けする回数を指定できますか

kanabun - 10/8/15(日) 15:49 -


	引用なし

	パスワード

▼ロシツキーさん：

ごめんなさい。仕様を勘違いしていたようです。

>　　　　　　　　　　　　　　　　　　　　A　　　　1　　　　
>　　　　　　　　　　　　　　　　　　　　B　　　　1　　　　
>　　　　　　　　　　　　　　　　　　　　C　　　　0　　　　
>　　　　　　　　　　　　　　　　　　　　D　　　　1　　　　
>　　　　　　　　　　　　　　　　　　　　E　　　　5　　　　
>
>
>タイトル＞　　　　　　　　　　　　　　　　　　　　　　　　　　　　
>ここに貼り付けていきます

ということなんですね？

単純化して、 A列のデータだけ指定の行数だけ
【別のセル範囲】にコピーする例を示します。
配列を使っています。

Sub Try2()
　Dim a, b() As String
　Dim CopyTimes, max As Long
　Dim i As Long, j As Long, k As Long
　Dim n As Long
　
　CopyTimes = Range("CopyTimes").Value
　max = WorksheetFunction.max(Range("CopyTimes").Columns(2))
　
　a = Range("A1").CurrentRegion.Resize(, 1).Value
　ReDim b(1 To UBound(a) * max, 1 To 1)
　n = 1
　b(n, 1) = a(1, 1)　 '--- タイトルのコピー
　For i = 2 To UBound(a)
　　　For j = 1 To UBound(CopyTimes)
　　　　　If InStr(a(i, 1), CopyTimes(j, 1)) Then
　　　　　　　 '--------- 配列内で指定回数 Copy
　　　　　　　For k = 1 To CopyTimes(j, 2)
　　　　　　　　　n = n + 1　　　　 '配列内位置カウンタ
　　　　　　　　　b(n, 1) = a(i, 1)
　　　　　　　Next
　　　　　　　Exit For
　　　　　End If
　　　Next
　Next
　'------------ 配列（n行）を指定セルに貼付け
　Range("A20").Resize(n, 1).Value = b
End Sub

0 hits

▼

【66269】値に応じて、行をコピー、貼り付けする回数を指定できますか ロシツキー 10/8/15(日) 12:18