2

現在の行の列 C の内容が空の場合、現在の行の内容を前の行の内容とマージする VBA マクロを使用しています。

入力
コルA | B列 | C列
text1A | text1B | 1
text2A | text2B |
text3A | text3B |
text4A | text4B | 2
text5A | text5B |

出力
コルA | B列 | C列
text1A text2A text3A | text1B text2B test3B | 1
text4A text5A | text4B text5B | 2

同様の質問がありますが、VBA に関する私の知識は基本的すぎて、この特定のケースに回答を適用できません。ありがとう！

4

1 に答える 1

0

この質問は、必要な解決策を見つけるのに役立つと思います.あなたの質問はほとんど重複した質問です.

Sub mergeCategoryValues()
Dim lngRow As Long

With ActiveSheet
    lngRow = .Cells(65536, 1).End(xlUp).Row
    .Cells(1).CurrentRegion.Sort key1:=.Cells(1), Header:=xlYes

    Do
        If .Cells(lngRow, 1) = .Cells(lngRow - 1, 1) Then
            .Cells(lngRow - 1, 3) = .Cells(lngRow - 1, 3) & "; " & .Cells(lngRow, 3)

            .Rows(lngRow).Delete
        End If

        lngRow = lngRow - 1
    Loop Until lngRow = 1
End With
End Sub

このコードは私のために働いた.答えはここの質問に投稿されています

于 2015-05-22T08:29:23.867 に答える