Vb macro coding for transpose - complete coding?

Joined
Jul 31, 2013
Messages
1
Reaction score
0
I need VB macro coding for transpose of the columns into rows. For every particular values in the columns it has to be converted into row... please give me the complete coding.. please do help me.. I need it very urgently... and also I have a word file with this for easy understanding with the output which I did manually. (since I was not able to attach the excel file with this)
For example:
The values are like this...
season
1969
TT
101.161
WATERSD
1
1969194.15311969293.15811969399.22311969493.95711969592.85911969695.99311969799.89611969898.7960.979751969992.4910.87287519691095.0910.83154545519691197.4570.92555555619691294.023119691332.15711970188.77911970289.60411970399.10811970492.42911970590.64311970698.6411970798.33111970897.44611970997.731119701094.025119701188.725119701289.228119701338.61411971197.37211971288.45711971390.26511971499.62111971591.52811971699.25211971793.55211971894.4530.8571971995.7530.51519711096.0520.519219711193.5490.68455555619711288.9050.97277777819711344.0740.88641972199.61911972292.70811972393.50311972492.60511972597.54611972692.6090.99211972794.1270.8441666671972892.2880.3941428571972997.8890.3587519721096.4230.98742857119721188.861119721291.608119721342.1911973196.46311973296.78911973395.42111973494.02111973588.09611973697.73711973798.7370.9471111111973891.2070.76551973995.0820.47955555619731094.3610.47088888919731190.2620.63455555619731291.2440.731419731337.1690.43175
OUTPUT:
I need output to be in the following manner:
1969111111110.979750.8728750.8315450.9255555561119701111111111111-197111111110.8570.5150.51920.6845560.9727777780.8864-1972111110.99210.8441670.3941430.358750.987429111-19731111110.9471110.76550.4795560.4708890.6345560.73140.43175-
 

Attachments

If you are copying the cells you are planning to transpose you will need something similar to the following in your VBA Macro code:

Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True

I hope this helps.

Sifou
 
Back
Top