[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『データを指定フォーマットへ転記したい』(たまお)
初心者です。
下記の内容のマクロを教えてください
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):セルが結合されている状況なのでコピー貼り付けが出来ないので 項目ごとに転記をしたい :転記を開始するセルは下記のとおりです
増減 管理コ−ド 区分A 区分B 区分C (DE) (F-O) (PQ) (RST) (UV) ?A22行目へ転記 管理区分 年度 数量 金額 (DE) (F-I) (J-P) (Q-Z) ?B25行目へ転記 ?C27行目へ転記
宜しくお願いします。
< 使用 Excel:Excel2010、使用 OS:Windows7 >
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
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.