[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『レコードのコピーについて。』(ヤイリ)
Aセル Bセル ht001 1 ft001 1
Aセル Bセル ht001 1 ht001 1 ht001 1 ht001 1 ht001 1 ft001 1 ft001 1 ft001 1 ft001 1 ft001 1
上記のように1レコードごとのデータを
5レコードコピーしたり
10レコードコピーしたり
エクセル上で、できないでしょうか?
レコード数が多いので
手動ですと時間がかかってしまいます。
プログラムを作成しなければ
厳しいでしょうか。
どうぞよろしくお願いします。
< 使用 Excel:Excel2010、使用 OS:Windows7 >
k = 1
For i = 1 To d
For j = 1 To sh1.Cells(i, "C")
sh1.Range(sh1.Cells(i, "A"), sh1.Cells(i, "C")).Copy _
sh2.Cells(k, "A")
k = k + 1
Next j
Next i
End Sub
調べたらCセルにコピーしたい
数値を用意して
対応出来ました。
また何かありましたら
宜しくお願い致します。
(ヤイリ) 2015/05/20(水) 19:47
Option Explicit
Sub main() Dim sh1 As Worksheet Dim sh2 As Worksheet Dim d As Long Dim k As Long Dim i As Long Dim コピー数 As Long
Set sh1 = Worksheets("sheet1") Set sh2 = Worksheets("sheet2") d = sh1.Range("A65536").End(xlUp).Row
k = 1 For i = 1 To d コピー数 = sh1.Cells(i, "C").Value sh1.Cells(i, "A").Resize(, 3).Copy _ sh2.Cells(k, "A").Resize(コピー数) k = k + コピー数 Next i
End Sub
(マナ) 2015/05/20(水) 23:24
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.