Substring diagonal split

Hello everyone,

is there a vba code for character substring, to seperate diagonally in each cell.

Example:

123456789
...... 1
....... 2
........ 3
.........4 ....................G
......... 5 ..................F
.......... 6 ................ E
............7 ............D
............8 ...........C
..............9 .....B
...................A
ABCDEFG


Could the code be used up and down on the spreadsheet.
Thanks for any assistance.

Hello,
Can you post a sample workbook showing the expected result you want?
Or please provide more details. I read 3 times and I'm not sure to understand what you want.

Hi Daddy007,

See if the attached is what you are looking for. The dollar sign in the rows or columns range holds it constant and as the formula moves the number increases. The Mid formula does the rest.

You might be interested in these.
The UDF CharacterArray returns an array of the characters of a given string, arranged according to the Direction argument.
In the attached, H2:P10 hold the array formula {=CharacterArray(E2,F2)}

There is also the sub, WriteToCells which will write the characters in a string, starting at a given cell and going in the direction indicated. The button demonstrates this with the string "see this", starting at AJ10 in the direction from cell F2.

Direction arguments for both these procedures require one of the values R L U D RU RD LR LU
The Direction argument is optional and defaults to R

Please Login or Register  to view this content.

Hi Y,

Please Login or Register  to view this content.

Regards