空白セルの削除と重複データの加算のマクロ

質問

シート１の文字列のデータの0又は空白のセルを取り除いて、並んでいる文字列の左と真ん
中の数が重複しているデーターは左端の数を加算して別のシート2のC10からC100のセルに抽出できるマクロを教えて下さい。データーの0は関数で空白にしたいと思っています。
データの並び方はこのままで重複するデーターの加算と空白のセルの削除を一回のマクロで実行したいのです。　
Ｅ列　　　　　　　　　　　　　　 空白を削除　　　
0-4-1　　　　　　　　　　　　　 0-4-1　　　　　　　　
2-3-2　　　　　　　　　　　　　 2-3-2　　　　　　　　
2-2-3　　　　　　　　　　　　　 2-2-(3)
0　　　　　　　　　　　　　　　　 2-2-(1)
2-2-1　　　　　　　　　　　　　 4-1-9
4-1-9　　　　　　　　　　　　　 2-1-7
2-1-7　　　　　　　　　　　　　 2-2-3
0　　　　　　　　　　　　　　　　 2-3-(5)　　　　　　　 　　　　　　　
（数式がある空白セル）　　 2-3-(1)　　　　　　　　　　　
2-2-3　　　　　　　　　　　　　 2-3-(4)
0　　　　　　　　　　　　　　　　 0-4-1
2-3-5
2-3-1
2-3-4
0-4-1

シート2のB列10～100に抽出
0-4-1
2-3-2
2-2-4
4-1-9
2-1-7
2-2-3
2-3-10
0-4-1 このように抽出したいのです。

回答No.2

xls88 · ベストアンサー

下記で試してください。
元データのセル番地、貼り付け先のセル番地等は実際に合わせて書き直してください。

Dim rng As Range
Dim c As Range
Dim rngc As Range
Dim txt1 As String
Dim txt2 As String
Dim ttal As Variant

Application.ScreenUpdating = False

With Sheets("シート１")
Set rng = .Range("A1", .Range("A" & Rows.count).End(xlUp))
End With
For Each c In rng
If c.value = "" Or c.value = "0" Then
c.ClearContents
End If
Next
rng.SpecialCells(xlCellTypeBlanks).Delete shift:=xlUp
rng.Copy Sheets("シート2").Range("C10")

With Sheets("シート2")
Set rng = .Range("C10", .Range("C" & Rows.count).End(xlUp))
End With
For Each c In rng
If rngc Is Nothing Then
txt1 = Left(c.value, InStrRev(c.value, "-"))
ttal = Val(Split(c.value, "-")(2))
Set rngc = c
Else
txt2 = Left(c.value, InStrRev(c.value, "-"))
If txt1 = txt2 Then
ttal = ttal + Val(Split(c.value, "-")(2))
rngc.value = txt1 & ttal
c.ClearContents
Else
txt1 = Left(c.value, InStrRev(c.value, "-"))
ttal = Val(Split(c.value, "-")(2))
Set rngc = c
End If
End If
Next
rng.SpecialCells(xlCellTypeBlanks).Delete shift:=xlUp

Application.ScreenUpdating = True

補足

未熟な質問にお答えを頂き有難うございました。
思ったとおりにマクロが実行出来ました。

回答No.1

imogasi

もっと質問の内容を丁寧に書いてほしい。
たいした内容ではないようだが、言ってていることが判りにくい。
エクセルはシート、列、行、セルのデータ内容などに関する扱いなのだ。
質問する場合では、これらをくどいぐらい記述するべきだ。
エクセルのバージョンも念のため書いておくクセをつけること。
ーー
質問例では、１つの列のデータのようだが、はっきりしない。
１つの列なら、例えばＡ列ならＡ列と書け。
行の削除は、要領としては
最終行から上に条件を判別すれば仕舞いだろう。Ｆｏｒ　Ｎｅｘｔ　のＳｔｅｐ　-1利用。
ーー
条件は
（１）文字列の０（ほんとに文字列か）
（２）空白か
どちらかに該当すば、これをデータ全行について、ＩＦ分で判別したら仕舞いであろう。
そして該当すれば行削除。
ーー
＞並んでいる文字列の左と真ん中の数が
「セル」の並びにことか。セルの左隣ノのことか？と真中とは？
この意味わからない。
行的に直前、直後の行か？
例でも挙げて、文章で説明を加えよ。
＞左端の数を加算して
左端とは？直前で言っている「左の」セル？Ａ列？Ａ列は数字じゃないよね？
＞データーの0は関数で空白にしたいと思っています。
どういう意味？その行は削除するのではないのか？
＞データの並び方はこのままで重複するデーターの加算と空白のセルの削除を一回
質問者は初心者だろうから、２ステップを分けてコード記述したらどうか。
（１）空白の列削除
（２）重複するデータの削除
ここは目的を総括したのだろうが、ここまでに「重複」の話は出てきていないのでは？突然ではないか。
まだＶＢＡをやれるような文章の表現力が付いてないと思う。
書き直してはどうか。