vba - Concatenate cells with space in Excel -


public function concat(r range) string     concat = ""     each rr in r         concat = concat & rr.value     next rr end function 

i have embedded above function works well, need resolve following concern:

i have 700 individual english words (from a1 a700) want combine in 1 single cell (by using =concat(a1:a700) space after each individual words. mean @ present when using said function there no space appearing between individual words problem.

i feel silly writing

public function concat(r range) string     concat = ""     each rr in r         concat = concat & rr.value & " "                 next rr     concat = trim(concat) 'removes leading , trailing spaces string. end function 

Comments

Popular posts from this blog

javascript - RequestAnimationFrame not working when exiting fullscreen switching space on Safari -

Python ctypes access violation with const pointer arguments -