[[20160523102801]] 『データを指定フォーマットへ転記したい』(たまお) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『データを指定フォーマットへ転記したい』(たまお)

初心者です。
下記の内容のマクロを教えてください

Sheet1のデータをSheet2の指定フォーマットへ転記したいのですが、教えてください。
Sheet1のデータは行単位で入力されています。

 (Sheet1):データは行単位で入力されています
     :No1はA2から順番に処理を開始し最大50レコード
A  B   C     D   E   F   G    H   I  J		
No 増減 管理コ−ド 区分A 区分B 区分C 管理区分 年度 数量 金額
1  10   001    1   2   3    00   15  1  100
2  10   002    2   3   4    11   16  2  200
3  10   003    3   4   5    22   17  3  300
〜   
50 10   050         9      10     11       55      18    5    500     

 (Sheet2):セルが結合されている状況なのでコピー貼り付けが出来ないので
     項目ごとに転記をしたい
        :転記を開始するセルは下記のとおりです

?@はD20から始まる
?AはD22から始まる
?BはD25から始まる
?CはD27から始まる

    :項目ごとのセルは下記のとおりです
    :2レコード目のデータは25行目へ転記
    :繰り返し処理し50レコードで終了。

?@20行目へ転記
 増減 管理コ−ド 区分A 区分B 区分C  
(DE)  (F-O)   (PQ) (RST) (UV) 
?A22行目へ転記 
 管理区分 年度 数量  金額 
(DE)   (F-I) (J-P) (Q-Z)
?B25行目へ転記
?C27行目へ転記 

 宜しくお願いします。

< 使用 Excel:Excel2010、使用 OS:Windows7 >


Sub main()
Dim i As Long, j As Long
    For i = 2 To 51
        ii = 20 + (i - 2) * 5
        For j = 2 To 6
        jj = Array(4, 6, 16, 18, 21)(j - 2)
        Sheets("Sheet2").Cells(ii, jj) = Sheets("Sheet1").Cells(i, j)
        Next j
        For j = 7 To 10
        jj = Array(4, 6, 10, 17)(j - 7)
        Sheets("Sheet2").Cells(ii + 2, jj) = Sheets("Sheet1").Cells(i, j)
        Next j
    Next i
End Sub
(mm) 2016/05/23(月) 13:54

出来ました
ありがとうございました。
(たまお) 2016/05/23(月) 17:50

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.