2017-02-26 80 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

是的,我喜歡。但是你明確地要求一個非宏觀解決方案。所以如果這個答案解決了你的_original_問題,你可能想要將其標記爲已接受。如果您需要宏觀解決方案,您可以發佈一個指定最低「環境」的新問題。謝謝 – user3598756

+0

@LukeHavelard,我的答案也解決了你的_original_問題嗎? – user3598756

0

要回答你如何與代碼做第二個問題:

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 
相關問題