Gibt es eine Möglichkeit, in VBA zu verketten?

Question

Gibt es eine einfache Möglichkeit, mehrere Zellen in VBA zu verketten?

Ähnlich wie die Funktion unten

Concatenate (A1, "-", B1)

Thank you!

Answer 1

versuchen Sie es mit „&“

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

Answer 2

Sie auch Join() Funktion können

es ist ein wenig komplizierter, da es eine „eindimensionales Array“ erfordert, die Sie mithilfe Application.Transpose() Funktion erhalten

aber es wird sehr praktisch, wenn Sie viele Zellen verketten müssen, so dass Sie eine Menge Tipparbeit sparen und es möglich machen, alle 0 auszunutzenObjekteigenschaften und Methoden wie Offset() (nützlich in Schleifen), Resize() usw.

beispiel

1-Zeilenbereich

'_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-Spaltenbereich

'_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