2016-07-22 103 views

回答

3

嘗試使用「&」

cells(1,1).value = cells(1,2) & "-" & cells(1,3) 
+0

謝謝!很高興解決方案很簡單。 –

0

你也可以使用Join()功能

這是一個有點棘手,因爲它需要一個「一維數組」您使用Application.Transpose()功能

得到

但是當你需要連接多個單元格時,它非常方便,從而爲你節省了大量的打字工作,並且可以利用所有的Range個對象的屬性和狀Offset()方法(在循環中非常有用),Resize()

例如

1行範圍

'_direct_ range reference 
Join(Application.Transpose(Application.Transpose(Range("A1:B1").Value)), "-") 

'_offsetted_ range reference 
Join(Application.Transpose(Application.Transpose(Range("A1:B1").Offset(i).Value)), "-") '<-- offset "i" rows 

1列範圍

'_direct_ range reference 
Join(Application.Transpose(Range("A1:A2").Value), "-") 

'_offsetted_ range reference 
Join(Application.Transpose(Range("A1:A2").Offset(i).Value), "-") '<-- offset "i" rows