いつもお世話になります。エクセルの機能について教えて下さい。

A列に商品コード(数字)
B列に商品名
C、D、E列には3店舗それぞれの売り上げ金額を入力するとします。

ここで困ったことがあるのですが、商品コードが同じなのに、店舗によって商品名が違うのです。(名前が違うだけで同じ商品を表しています。)これでは、1つの商品につき全店舗の合計を算出することが出来ません。商品コードを元に、商品コードが同じであれば、商品名をどれか1つに統一し、売り上げも横1列に並ぶようにしたいのです。品目数が1000を超えるため、こういったことを少しでも効率的に出来る機能があれば教えてください!!

極端ではありますが、具体的な例をエクセルファイルで添付しています。

よろしくお願い致します。

「エクセル 同一コードで異なる品名が入力さ」の質問画像

このQ&Aに関連する最新のQ&A

A 回答 (3件)

商品コードをキーにSUMIF関数を使えば良いと思います


例) =VLOOKUP(A10,$A$2:$B$4,2,FALSE)

商品コードを検索値としてVLOOKUP関数やINDEX/MATCH関数を使えば良いと思います
例)=SUMIF($A$2:$A$4,$A10,C$2:C$4)
    • good
    • 0
この回答へのお礼

ご回答ありがとうございます。
早速してみました。エクセルは本当にいろいろ出来るのですね。教えていただけて本当にありがたいです。

あろがとうございました!!

お礼日時:2009/05/27 21:36

データ⇒統合を利用する方法もあります。


品名は、皆さんが仰られてる様に、VLOOKUPを使用して
取得します。
「エクセル 同一コードで異なる品名が入力さ」の回答画像3
    • good
    • 0
この回答へのお礼

ご回答ありがとうございます。

統合という方法もあるのですね。実際にしてみたら、とても簡単に出来ました!!

ありがとうございました。

お礼日時:2009/05/27 21:47

こんばんは!


すでにNo.1さんが回答されている通りでOKかと思います。

品名に関しては手入力もしくはVLOOKUPでも良いですが、
VLOOKUP関数でコード番号をキーに品名を返す場合一番上にあるものが返されます。

↓の画像を貼り付けておきます
C8セルは
=SUMIF($A$2:$E$4,$A$8,C2:C4)
という数式になっています。

参考になれば幸いです。m(__)m
「エクセル 同一コードで異なる品名が入力さ」の回答画像2
    • good
    • 0
この回答へのお礼

ご回答ありがとうございます。

画像まで添付してくださり、とても分かりやすかったです。すぐに出来ました!!助かりました。本当にありがとうございました。

お礼日時:2009/05/27 21:40

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Q「どんなときも。」のバラード

以前にとある場所で流れていたのですが、槙原敬之の「どんなときも。」にバラードが存在したのです。
原曲はマーチ調の曲ですが、このバージョンは特に癒されました。
このバラードバージョンの「どんなときも。」が収録されているアルバムがあったら教えて下さい。

Aベストアンサー

 3rdシングルの「どんなときも。」のC/Wとして収録されていますが、アルバムには入っていませんね。インストゥルメンタル・ヴァージョンとして一部なら入っていますが。とてもいい曲調なので、入っていても良さそうですけどねぇ。
 

参考URL:http://st.sakura.ne.jp/~masawo/nm/review_single.html

Q次のケースでのVBAマクロコードを教えて下さい。 A列 B列 C列 1 項目コード 項目名 備考 2

次のケースでのVBAマクロコードを教えて下さい。

A列 B列 C列
1 項目コード 項目名 備考
2 10 A商品 一般
3 21 A商品 特殊
4
5

上記のように、商品コードは別々なのですが
商品名が同じなので、マクロで一気にB列の
商品名を次のように変えたいのです


商品コード10ならばA商品(一般)
商品コード21ならばA商品(特殊)

※商品コードは最大でも100種類
※同一の商品名は最大でも50個

マクロ実行で一気に書き換えするマクロコードを
お願いします。
なお、商品コードと商品名はエクセルデータがありますので、そのシートを参照できればとも思います。

まとまりが無い説明で、すみません。

Aベストアンサー

こんにちは。

>C列の備考欄ありませんでした。
つまり、
項目コード→商品コード
項目名→商品名 

で書き換えるというわけですね。

'//標準モジュールがベターです
Sub RenameDescription()
Application.ScreenUpdating = False
With ActiveSheet
'スタートは2行目から
For i = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
 If .Cells(i, 1).Value = 10 Then
   .Cells(i, 2).Value = .Cells(i, 2).Value & "(一般)"
 ElseIf Cells(i, 1).Value = 21 Then
   .Cells(i, 2).Value = .Cells(i, 2).Value & "(特殊)"
 End If
Next
End With
Application.ScreenUpdating = True
End Sub

Q槇原敬之「どんなときも。」について

不思議でいつもカラオケに行くと気になることがあります。
「どんなときも。」にはかならずどんなときものあとに。があります。
これって何の。なんでしょうね?
いつも気になってしょうがないのでおしえてください。
お願いします。

Aベストアンサー

この「。」は槇原さん自身が意図的に付けたものです。
「どんなときも」の言葉の後に、何の言葉も続かないように、言い切った言葉にしたかったから、曲のタイトルは「。」を付けたとご本人が言っていたと思います。

うまく説明出来なくてごめんなさい。
確かそうだったと思います。

余談ですがこれは映画「就職戦線異常なし」の主題歌で、「人生の応援歌」みたいのを作って下さいと依頼されて作った曲だそうです。ちなみにコンサートではこの曲、すごい盛り上がります!

Q【EXCEL】条件付き書式、A列、C列、D列、E列が同じ値の時にB列の背景色を変えたい

お世話になります。

エクセルの条件付き書式の数式の使い方について教えて下さい。
A列、C列、D列、E列の値が同じ時にB列のセルの背景を青に
塗りつぶしたいと思っています。

なので、「数式を使用して、書式設定するセルを決定」、
「次の数式を満たす場合に値を書式設定」で、数式を
「=A1=C1=D1=E1」と入力し、書式、塗りつぶし、青、
を選択して、条件付き書式を設定しました。
すると、、、画像のような結果になります。

私の感覚だと画像でセルの値が「11」~「15」の時だけ
B列が青になると思うのですが実際の結果は画像の通りです。

先の話の通りA列、C列、D列、E列の値が同じ時だけ
B列のセルの背景を青にしたい場合はどうい数式になるのでしょうか?

すいませんが、詳しい方、数式(関数?)で説明できる方よろしくお願い致します。

追記
可能でしたらA列、C列、D列、E列が空白の時はB列の背景色をなしにしたいと思っております。
→A列、C列、D列、E列に値があって、かつ同じ値の場合のみB列の背景を青にしたいです。

お世話になります。

エクセルの条件付き書式の数式の使い方について教えて下さい。
A列、C列、D列、E列の値が同じ時にB列のセルの背景を青に
塗りつぶしたいと思っています。

なので、「数式を使用して、書式設定するセルを決定」、
「次の数式を満たす場合に値を書式設定」で、数式を
「=A1=C1=D1=E1」と入力し、書式、塗りつぶし、青、
を選択して、条件付き書式を設定しました。
すると、、、画像のような結果になります。

私の感覚だと画像でセルの値が「11」~「15」の時だけ
B列が青にな...続きを読む

Aベストアンサー

AND関数を使えば判定ができるのでは?
 =AND(A2<>"",A2=C2,C2=D2,D2=E2)

A列には常に判定する数値が入っているなら「A2<>""」は不要です。

参考サイト
http://www.relief.jp/itnote/archives/003940.php

Q「どんなときも。」のLiveバージョン

槇原敬之さんの「どんなときも。」のLiveバージョンの収録されているCDタイトルを教えてください。

Aベストアンサー

live版三枚共に「どんなときも。」は入っているはず。

THE CONCERT CONCERT TOUR 2002~Home Sweet Home~
SYMPHONY ORCHESTRA“cELEBRATION”
SYMPHONY ORCHESTRA“cELEBRATION 2005”~Heart Beat~

QA列とB列の重複を抽出したいのですがA列とB列の値は一部だけ同じ文字です。ご教示お願いします。

エクセル初心者です。重複を見つけるのが仕事です。いろいろやってみたのですがうまくできません。
お知恵をお貸しください。

A列には企業名が入力されています。
B列にも企業名が入力されていますが全く同じ文字ではないのです。

たとえばこういうことです。
A1 (有)雪見酒      B1  雪見
A2 株式会社豪雪地帯   B2 (株)豪雪地帯
A3 ゆきかき本舗     B3 (有)ゆきかき本舗

A列にある企業名とB列にある企業名が同じであればセルを塗りつぶすか○を表示させるように
したいのです。
重複を見つけるのが目的なので、ほかの方法でもかまいません。
すみません、A列のセルとB列のセルが全く同じ名前ならば重複が見つけられたのですが
ここから先がどうしてもわからないのです。。。
申し訳ありませんがどうか教えてください。。。

Aベストアンサー

No4です。以下のマクロを標準モジュールへ登録してください。
--------------------------------------------------
Option Explicit
Public Sub 重複チェック()
Dim maxrow1 As Long
Dim maxrow2 As Long
Dim row1 As Long
Dim row2 As Long
Dim nameT1() As String
Dim nameT2() As String
Dim t1, t2 As Variant
t1 = Time
maxrow1 = Cells(Rows.Count, "A").End(xlUp).row '最大行取得
maxrow2 = Cells(Rows.Count, "B").End(xlUp).row '最大行取得
ReDim nameT1(maxrow1)
ReDim nameT2(maxrow2)
Range("C1:" & "D" & maxrow2).Value = ""
Call makeTable(nameT1, "A", maxrow1)
Call makeTable(nameT2, "B", maxrow2)
For row1 = 1 To maxrow1
For row2 = 1 To maxrow2
If Cells(row2, "C") = "" Then
If Mymatch(nameT1(row1), nameT2(row2)) = True Then
Cells(row2, "C").Value = "○"
Cells(row2, "D").Value = row1
End If
End If
Next
Next
t2 = Time
MsgBox ("チェック完了 処理時間=" & Minute(t2 - t1) & "分" & Second(t2 - t1) & "秒")
End Sub
'余分な文字を削除した結果をテーブルに格納する
Private Sub makeTable(ByRef nameT() As String, ByVal col As String, ByVal maxrow As Long)
Dim row As Long
Dim ary As Variant
Dim name As String
Dim i As Long
ary = Array("㈱", "(株)", "株式", "(有)", "有限", "会社")
For row = 1 To maxrow
name = Cells(row, col).Value
For i = 0 To UBound(ary)
name = Replace(name, ary(i), "")
Next
nameT(row) = name
Next
End Sub
'企業名が一致かどうか判定する
Private Function Mymatch(ByVal name1 As String, ByVal name2 As String) As Boolean
Mymatch = False
Dim pos As Variant
pos = InStr(1, name1, name2, vbTextCompare)
If pos > 0 Then Mymatch = True
End Function
-----------------------------------------------------
一致の精度が悪ければその旨補足してください。
(一致すべきものが一致しない、一致してはいけないものが一致している)
100%解決できる保証はありませんが、多少のチューニングは行います。

No4です。以下のマクロを標準モジュールへ登録してください。
--------------------------------------------------
Option Explicit
Public Sub 重複チェック()
Dim maxrow1 As Long
Dim maxrow2 As Long
Dim row1 As Long
Dim row2 As Long
Dim nameT1() As String
Dim nameT2() As String
Dim t1, t2 As Variant
t1 = Time
maxrow1 = Cells(Rows.Count, "A").End(xlUp).row '最大行取得
maxrow2 = Cells(Rows.Count, "B").End(xlUp).row '最大行取得
ReDim ...続きを読む

Q槇原敬之『どんなときも。』のカヴァー

先日、有線で槇原敬之の『どんなときも。』がカバーバージョンで流れていました。

男性ボーカルでパンクバンドっぽい感じだったと思います。
誰が歌っているのかわかる方教えてください!

Aベストアンサー

「HEAVY HITTER All Stars」ですね。

「どんなときも。」ここで試聴できます。

http://www.sonymusic.co.jp/Music/Arch/SR/HeavyHitterAllStars/

Qエクセル関数の式を教えてください。 A列(A1~A5206)に同じ名前が2つ以上あったら、同じのF列

エクセル関数の式を教えてください。
A列(A1~A5206)に同じ名前が2つ以上あったら、同じのF列(F1~F5206)に〇をつけたいです。F列にどんな式になりますか?
よろしくお願いします。

Aベストアンサー

こんばんは!

F1セルに
=IF(COUNTIF(A:A,A1)>1,"○","")

としてフィルハンドルでずぃ~~~!っと下へコピーしてみてください。

※ F列の左右どちらかの列(E列かG列)に5206行目まで空白なしに
何らかのデータが入っている場合は
フィルハンドルをダブルクリックするだけでOKです。

※ 「二つ以上」の行すべてに「○」が表示されますが
それで良いのでしょうか?m(_ _)m

Q槇原敬之さんの「どんなときも。」のversion4って?

今年1月1日に発売された槇原敬之さんのアルバムCD「Best LIFE」に収録されている「どんなときも。Renewed(version4)」がありますが、この「version4」というのは、アレンジ第4作目という意味でしょうか。それとも違う意味でしょうか。アレンジ第4作目である場合、アレンジ第1作~第3作目であるversion1~3の収録されているCDタイトルをそれぞれ教えてください。

Aベストアンサー

「どんなときも。Renewed(version4)」はまだ聴いたことがありませんが、Liveバージョンを別にして3バージョン(+カラオケ)が存在します。
まず、シングル『どんなときも』には「どんなときも。」とオーケストラ編成の「どんなときも。 [ballad version]」が収録。
それと、10周年記念アルバム『10.Y.O. ~THE ANNIVERSARY COLLECTION~』に収録されている「どんなときも。(10.Y.O.Version)」

なお、シングルに収録されていた「どんなときも。 [ballad version]」のカラオケ部分のショートバージョンがアルバム『君は誰と幸せなあくびをしますか。』に収録されています。

Qエクセル:A列とB列に同じ数値が合った場合に左側のA列の方を強調したい。

エクセル2000で

A1=12 A2=16 A3=24 A4=5 A5=6
B1=16 B2=23 B3=89 B4=6 B5=10

と入力されていたとします。この場合にA列とB列には16と6が共通の数として存在しています。

そこで、共通な数値が入力されているセルのうち、最も左側にある列(この例の場合はA列)を強調したいのです。関数を使う場合の数式をご存知の方がいらっしゃいましたら教えていただきたいと思います。


強調の仕方は、

1太字にする。
2セルを塗りつぶす
3文字の色を変える

などどんな手段でも結構です。

Aベストアンサー

(例データ)A1:B5
1216
1623
2489
56
610
(条件付き書式)
A1:A5を範囲指定
書式
条件付き書式
式が
=COUNTIF($B$1:$B$6,A1)>=1
書式設定(例えばセルの色を緑に)
OK
(結果)
16(A2)
6 (A5)
が緑になった。
A1:A5を範囲指定して、書式設定すると、A1をA2:A5に
コピーする必要はありません。
コピーと同じ効果になっています。


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング