| |
はじめまして、NAOです。VBA初心者ですがよろしくお願いします。
次のような作業をVBAで行いたいのですが、どのようにすれば良いか分からず困っております。
型式１と型式２の２枚のシートがあり、各シートの１行目は見出しです。
両シート共、
A列：文字列（同じ名前はありません。）
B列：数値
C列：数値
D列：文字列（昇順の並んでいます。）同じ名前が複数あります。
(型式1シート)
A B C D
1 品名 数値1 数値2 分類
2 車 21 18 紙
3 電車 37 25 紙
4 いす 11 8 木
5 くつ 9 3 プラ
6 : : : プラ
7 : : : :
8 : : : :
9 : : : :
: : : : :
(型式2シート)
A B C D
1 品名 数値1 数値2 分類
2 船 43 33 石
3 携帯 96 41 紙
4 本箱 78 8 木
5 : : : 木
6 : : : 布
:
これとは別に、分類シートが有ります。
8行目は見出し行です。
A列：9行目から15行毎に、分類の名前が記入されている。（重複は無し）
B列、F列：空白行として何も記入しない。
C列からE列には型式1シートのデータを転記する。
G列からI列には型式2シートのデータを転記する。
(分類シート)
型式１ 型式２
A B C D E F G H I
8 分類 品名 数値1 数値2 品名 数値1 数値2
9 プラ
:
24 鉄
:
39 紙
:
まず、(型式1シート)のD2と同じ名前を、分類シートのA列に求め、一致するものがあれば、(型式1シート)のA2:C2の内容を分類シートの一致した行のC列:E列に転記します。
これを順次繰り返しますが、先に一致したものと同じものが分類シートのA列にあれば、先に転記した行の次の行に転記を行います。
(型式1シート)の作業が終われば、(型式2シート)についても同じように転記したいのです。
どうすれば良いのかまったく分からず困っております。
よろしくお願いします。
|
|
NAO
- 04/4/30(金) 0:23 -
