4列を1列にまとめる方法

質問

1　　　2　　　3　　　4　　　　　　1234
1　　　2　　　3　　　4　　　　　　1234
1　　　2　　　3　　　4　　　　　　1234
1　　　2　　　3　　　4　　　　　　1234
1　　　2　　　3　　　4　　　　　　1234
1　　　2　　　3　　　4　　　　　　1234
1　　　2　　　3　　　4　　　　　　1234
1　　　2　　　3　　　4　　　　　　1234
1　　　2　　　3　　　4　　　　　　1234
1　　　2　　　3　　　4　　　　　　1234
1　　　2　　　3　　　4　　　　　　1234
1　　　2　　　3　　　4　　　　　　1234
1　　　2　　　3　　　4　　　　　　1234
1　　　2　　　3　　　4　　　　　　1234
1　　　2　　　3　　　4　　　　　　1234
1　　　2　　　3　　　4　　　　　　1234

回答No.3

keithin · ベストアンサー

Ａ：Ｄ列に１行目からデータが記入されているとして

sub macro1()
　with range("E1:E" & range("A65536").end(xlup).row)
　　.formular1c1 = "=RC1&RC2&RC3&RC4"
　　.value = .value
　end with
end sub

＃後出しで実は..実は..は無しでお願いします。

回答No.2

KURUMITO

D1セルに次の式を入力して下方にドラッグコピーします。

=A1&B1&C1&D1

又は

=CONCATENATE(A1,B1,C1,D1)

回答No.1

maiko0318

こういう話？

=CONCATENATE(A1,B1,C1,D1)

補足

できればそれをVBAでやりたいのです。