X,Y,Z values to be extracted and posted respectively in excel

[senthil kumar]

i have a set of (x,y,z) values upto 30,000 rows in excel.
Wanted to paste "X" values in rows & "Y" values in Column and the corresponding "Z" values populated in this (X,Y) table.
Experts, Is there a way to do that?

Senthil

 

[senthil kumar]

Thanks for your reply i have paste a part beloning to the set as below.
Please guide

821055.2363 1389316.255 771.963
821055.3183 1389338.643 772.588
821055.4002 1389361.03 772.587
821055.4822 1389383.418 774.009
821055.5642 1389405.805 775.521
821055.6462 1389428.193 776.157
821055.7282 1389450.58 776.084
821055.8101 1389472.968 775.842
821055.8921 1389495.355 776.891
821055.9741 1389517.743 778.018
821056.0561 1389540.13 779.252
821056.1381 1389562.518 780.93
821056.22 1389584.905 784.483
821056.302 1389607.292 789.125
821056.384 1389629.68 791.886
821056.8118 1388523.721 788.201
821056.8937 1388546.109 791.253
821056.9757 1388568.496 792.497
821057.0577 1388590.884 793.398
821057.1397 1388613.271 792.963
821057.2217 1388635.659 791.747
821057.3036 1388658.046 789.285
821057.3856 1388680.434 786.937
821057.4676 1388702.821 785.366
821057.5496 1388725.209 783.81
821057.6315 1388747.596 782.188
821057.7135 1388769.984 782.369
821057.7955 1388792.371 785.219
821057.8775 1388814.759 787.111
821057.9595 1388837.146 786.976
821058.0414 1388859.534 784.376
821058.1234 1388881.921 782.586
821058.2054 1388904.309 781.183
821058.2874 1388926.696 780.103
821058.3693 1388949.084 779.384
821058.4513 1388971.471 779.518
821058.5333 1388993.859 780.013
821058.6153 1389016.246 780.759
821058.6973 1389038.634 781.01
821058.7792 1389061.021 780.824
821058.8612 1389083.409 780.79
821058.9432 1389105.796 780.757
821059.0252 1389128.184 780.453
821059.1072 1389150.571 779.567
821059.1891 1389172.959 778.625
821059.2711 1389195.346 777.723
821059.3531 1389217.734 776.971
821059.4351 1389240.121 776.275
821059.517 1389262.509 775.385
821059.599 1389284.896 774.279
821059.681 1389307.284 772.673
821059.763 1389329.671 772.2
821059.845 1389352.059 772.383
821059.9269 1389374.446 773.124
821060.0089 1389396.834 775.01
821060.0909 1389419.221 775.842
821060.1729 1389441.609 776.043
821060.2548 1389463.996 775.811
821060.3368 1389486.384 776.036
821060.4188 1389508.771 777.445
821060.5008 1389531.159 778.521
821060.5828 1389553.546 779.713
821060.6647 1389575.934 782.624
821060.7467 1389598.321 786.801
821060.8287 1389620.709 791.069
821060.9107 1389643.096 792.981
821061.2565 1388514.75 786.359
821061.3384 1388537.138 789.299
821061.4204 1388559.525 791.165
821061.5024 1388581.913 792.424
821061.5844 1388604.3 792.209
821061.6664 1388626.687 791.143
821061.7483 1388649.075 789.201
821061.8303 1388671.462 786.539
821061.9123 1388693.85 784.984
821061.9943 1388716.237 783.766
821062.0763 1388738.625 782.188
821062.1582 1388761.012 781.909
821062.2402 1388783.4 784.872
821062.3222 1388805.787 787.38
821062.4042 1388828.175 788.597
821062.4861 1388850.562 785.656
821062.5681 1388872.95 783.279
821062.6501 1388895.337 781.613
821062.7321 1388917.725 780.329
821062.8141 1388940.112 779.49
821062.896 1388962.5 778.952
821062.978 1388984.887 779.483
821063.06 1389007.275 780.235
821063.142 1389029.662 780.801
821063.2239 1389052.05 780.726
821063.3059 1389074.437 780.599
821063.3879 1389096.825 780.6
821063.4699 1389119.212 780.577
821063.5519 1389141.6 779.899
821063.6338 1389163.987 778.995
821063.7158 1389186.375 778.087

 

[Claus Busch]

Hi,

Am Wed, 2 Oct 2013 23:41:55 -0700 (PDT) schrieb senthil kumar:

i have a set of (x,y,z) values upto 30,000 rows in excel.
Wanted to paste "X" values in rows & "Y" values in Column and the corresponding "Z" values populated in this (X,Y) table.

your data in Sheet1
Then try:
Sub Test()
Dim LRow As Long
Dim rngC As Range
Dim i As Long

i = 2
With Sheets("Sheet1")
LRow = .Cells(.Rows.Count, 1).End(xlUp).Row
.Range("A1:A" & LRow).Copy _
Sheets("Sheet2").Cells(2, 1)
.Range("B1:B" & LRow).Copy
Sheets("Sheet2").Cells(1, 2).PasteSpecial _
xlPasteAll, Transpose:=True
For Each rngC In .Range("C1:C" & LRow)
Sheets("Sheet2").Cells(i, i) = rngC
i = i + 1
Next
End With
End Sub


Regards
Claus B.