2009-04-02 6 views
1

간단히 말해서 다음을 수행하는 빠른 방법을 찾고 있습니다.Excel 병합 및 서식 지정

 
     A  B  C  D 
    1 foo bat abe test 
    2 foo bat cat test 
    3 foo bat dog test 
    4 bar moo hat girl 
    5 bar moo bat girl 

는 다음과 같이하기 :
나는 아래의 엑셀 스프레드 시트 형식을 싶습니다

 
     A  B  C    D 
    1 foo bat abe, cat, dog test 
    2 bar moo hat, bat  girl 

열 A, B, D를 등 각각의 고유 한 일련의 당 동일한 데이터를 반복 할 것이다 열.
각 행 C 열은 항상 다릅니다.
C 열을 쉼표로 구분하여 병합해야합니다.

모든 의견을 환영합니다.

답변

1

VBA를 사용할 수 있지만 "쉬운"정의에 해당하는지 여부는 확실하지 않습니다. 같은 뭔가 :

Range("C1").Select 
Do Until Activecell.Formula = "" 
    ''if my row matches the row below 
    If ActiveCell.Offset(0,-2).Value = ActiveCell.Offset(1,-2).Value _ 
    And ActiveCell.Offset(0,-1).Value = ActiveCell.Offset(1,-1).Value _ 
    And ActiveCell.Offset(0, 1).Value = ActiveCell.Offset(1, 1).Value Then 
     ''merge and collapse 
     Activecell.Formula = ActiveCell.Formula & ", " & _ 
          ActiveCell.Offset(1,0).Formula 
     ActiveCell.Offset(1,0).EntireRow.Delete 
    Else 
     ''Go down a row 
     ActiveCell.Offset(1,0).Select 
    End If 
Loop 

한 번에 목록을 하나 개의 행을 통해 아래로 간다, 수동으로 행이 일치 나타나면 값을 연결합니다. 그렇지 않으면, 그것은 단지 아래로 내려갑니다.

+0

그 스크립트는 내 요구에 잘 작동합니다. 감사. – user86417