PDA

View Full Version : Solved: Join an array and join a Range



Benzadeus
08-01-2009, 10:52 AM
I'm having an issue with these codes:

Sub Test1()
'***
'Values of cells A1 = "Hi" and B1 = "Lo"
'***

Debug.Print Join(Range("A1:B1"), ", ") 'I want 'Hi, Lo' as output.
End Sub


and this:

Sub Test2()
'***
'Values of cells A1 = "Hi" and B1 = "Lo"
'***

Dim var 'What type is this variable?

Set var = Range("A1:B1")

Debug.Print Join(var, ", ") 'I want 'Hi, Lo' as output.
End Sub


How do I make them work?

Bob Phillips
08-01-2009, 01:48 PM
Dim ary

ary = Range("A1:B1")
Debug.Print Join(Application.Transpose(Application.Transpose(ary)), ", ")

p45cal
08-01-2009, 03:10 PM
This seems to work:
Debug.Print Join(Application.Index(Range("A1:B1").Value, 0), ", ")

Benzadeus
08-01-2009, 06:24 PM
Thank you very much.