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
Parameters
A1Cell, Optional Columns_To = 1, Optional InSheet = "This", Optional InWB = "This", Optional Sepa = vbTab
Examples
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 ...
Statistics
Views 162
Downloads 88
IDs
CodeID
DB ID
