Concatenate all rows found in a range starting A1Cell for Columns_To columns into 1 textblock with separator that can be changed.
Concatenation will be columns then rows, example if A1Cell="A1", Columns_To=4, and that range has 5 rows, it will be
A1 | B1 | C1 | D1 | A2 | B2 | C2 | D2 | etc ...
Different versions: ANStr2Range and Range2ANStr
Access is limited.
Login here using your Linkedin account. to see or download code.
No registration, not another password to remember, login using your Linkedin account and have access to all public codes in Bold.codes
Linkedin Login
A1Cell, Optional Columns_To = 1, Optional InSheet = "This", Optional InWB = "This", Optional Sepa = vbTab
Concatenation will be columns then rows, example if A1Cell="A1", Columns_To=4, and that range has 5 rows, it will be
A1 | B1 | C1 | D1 | A2 | B2 | C2 | D2 | etc ...
A1 | B1 | C1 | D1 | A2 | B2 | C2 | D2 | etc ...
Views 162
Downloads 88
CodeID
DB ID
