同じ文字列は行を合わせたい

質問

A列からB列に文字列があります。（日によって記入されている列は変動します。）
A,B,C列それぞれの2行目から記入されている文字列を
同じ文字列は同じ行にし、それ以外の文字列はその他の行にしたいのですが
どのようにすればよろしいでしょうか？

エクセル2010で関数または、VBAで方法がございましたら、ご教示ください。

よろしくお願いします。

回答No.1

keithin · ベストアンサー

マクロを使って、チカラワザでやっつけた方が遥かに簡単です。

sub macro1()
　dim i
　range("D:G").insert shift:=xlshifttoright

’集約
　range("G1") = "head"
　for i = 1 to 3
　　range(cells(2, i), cells(65536, i).end(xlup)).copy range("G65536").end(xlup).offset(1）
　next i
　Range("G:G").removeduplicates columns:=1, header:=xlyes
　range("G:G").sort key1:=range("G1"), order1:=xlascending, header:=xlyes

’再配置
　with range("D2:F" & range("G65536").end(xlup).row)
　　.formula = "=IF(COUNTIF(A:A,$G2),$G2,"""")"
　　.offset(0, -3).value = .value
　end with

　range("D:G").delete shift:=xlshifttoleft
end sub

お礼

ありがとうございました。
自分の希望通りになりました。