[[20150519153859]]　『特殊な表の個数を求めるには？』（MAGU45）　ページの最後に飛ぶ

『特殊な表の個数を求めるには？』（MAGU45）

次のような表があります。

　Ａ　　１個
　Ｂ　　１個
　Ｃ　　２個
　　　５０回

　Ｄ　　２個
　Ｅ　　３個
　Ｆ　　１個
　Ｇ　　１個
　　　２０回
　　　：
　　　：

これを、

　Ａ　　１個　　５０
　Ｂ　　１個　　５０
　Ｃ　　２個　１００
　　　５０回

　Ｄ　　２個　　４０
　Ｅ　　３個　　６０
　Ｆ　　１個　　２０
　Ｇ　　１個　　２０
　　　２０回
　　　：
　　　：

というようにしたいのですが、エクセルの関数だけで、計算できるでしょうか？

よろしくお願いします。

＜使用 Excel：Excel2013、使用 OS：Windows8 ＞

 その表、下記みたいに作成することは不可能ですか？
 ※回が入力されているセルは表示形式で0"回"

 	A	B
 1	50回	
 2	Ａ	1
 3	Ｂ	1
 4	Ｃ	2
 5		
 6	20回	
 7	Ｄ	2
 8	Ｅ	3
 9	Ｆ	1
 10	Ｇ	1
（se_9） 2015/05/19(火) 16:12

このような形には出来ました。
これが、１５０００行くらいあります。
（MAGU45） 2015/05/19(火) 16:27

 だったら関数を提示できたのですが、そうじゃないみたいなのでマクロで･･･。
 どうしても関数で、ということであれば上級者からの回答をお待ちください。

 Sub test()

     Dim i As Long, c As Long

     For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
         If Range("B" & i).Value <> "" Then
            c = Range("A" & i).End(xlDown)
            Range("C" & i).Value = Range("B" & i) * c
         End If
     Next

 End Sub

 ※追記
 マクロなら
 c = Range("A" & i).End(xlDown)
 の部分を
 c = Replace(Range("A" & i).End(xlDown), "回", "")
 にすれば表示形式で0"回"にしなくても大丈夫です。
（se_9） 2015/05/19(火) 17:10　追記17:27

	A	B	C
1	Ａ	１個	50
2	Ｂ	１個	50
3	Ｃ	２個	100
4	５０回		
5			
6			
7	Ｄ	２個	40
8	Ｅ	３個	60
9	Ｆ	１個	20
10	Ｇ	１個	20
11	２０回		
12			
13

 C1 =IF(B1="","",SUBSTITUTE(B1,"個",)*SUBSTITUTE(INDEX(A1:A$15000,MATCH("*回",A1:A$15000,0)),"回",))

 下へコピー。

 「回」と「個」が数値のみなら

 C1 =IF(B1="","",B1*INDEX(A1:A$15000,MATCH(TRUE,INDEX(A1:A$15000<MAX(A:A)+1,),)))

 下へコピー。
　
（GobGob） 2015/05/19(火) 17:59

うまく計算できました。

se_9さん、GobGobさんありがとうございました。
（MAGU45） 2015/05/19(火) 22:08

コメント返信：

[ 一覧(最新更新順) ]

[[20150519153859]] 『特殊な表の個数を求めるには？』（MAGU45） ページの最後に飛ぶ

[[20150519153859]]　『特殊な表の個数を求めるには？』（MAGU45）　ページの最後に飛ぶ