2017-02-26 11 views

答えて

3

使用

=CONCATENATE("The name of the painter: ",A3,CHAR(10), "The Hobby: ", B3, CHAR(10), "Tool used: ", C3,CHAR(10),"Remuneration: ", D3) 
+0

ちょっと感謝を!マクロでこれをどうやって行うのか分かりますか? –

+1

はい、あります。しかし、あなたは明示的にマクロではない解決策を求めました。だから、もしこの答えがあなたの_元の質問を解決すれば、それを受け入れたものとしてマークしたいかもしれません。また、マクロソリューションが必要な場合は、最小限の「環境」を指定して新しい質問を投稿することができます。ありがとう – user3598756

+0

@ LukeHavelard、私の答えはあなたの_original_質問を解決しましたか? – user3598756

0

コードでそれを行う方法についてのあなたの2番目の質問に答えるために:答えるため

Sub PopulateResultsToCell() 
    Dim X As Long, MyArr As Variant, PrefixArr As Variant 
    PrefixArr = Array("The name of the painter: ", "The Hobby: ", "Tool used: ", "Remuneration: ") 
    MyArr = Application.Transpose(Application.Transpose(Range("A3:D3"))) '<-- Change this for the range to read 
    For X = LBound(MyArr) To UBound(MyArr) 
     MyArr(X) = PrefixArr(X - 1) & Trim(MyArr(X)) 'Note: Option base is zero but transposing creates a base 1 array hence the X minus 1 
    Next 
    Range("F3").Formula = Join(MyArr, vbLf) '<-- Change this for where to populate the result to 
End Sub 
関連する問題