2017-08-11 6 views
-1

私はこのようなデータを持っています。の場合は1行上になります。マクロ

enter image description here

私は「標高\方位」によってすべての数字を取り、それらを1つの行までをプルする必要があります。 誰でも私にvbaでそれを行う方法を教えてもらえますか?

+0

あなたは自分でそれを行う方法を学ぶことができます。マクロの記録を開始して、ワークシートで何をしたいのですか。 –

+0

"_ELEVATION \ AZIMUTH_"というラベルの付いた行のデータを移動し、その行の上の行にデータを移動したい場合は、先頭の_ELEVATION \ AZIMUTH_データが_AZIMUTH_行に移動します。次の_ELEVATION \ AZIMUTH_データが_ELEVATION_に移動するなど.........あなたのシートを見て、あなたが実際に望んでいるとは思わない...あなたがしたいことは何ですか? – jsotola

+0

それは私が@jsotolaを欲しいものです。私はこの行を約3000行だ。だから、ELEVATION \ AZIMUTHですべての数字を見つけて、それらを1行上に移動する必要がある。その後、私はELEVATION \ AZIMUTHで行を削除します –

答えて

1

テストされていない

dim c as range 
for each c in range("A2:5000").cells 
    if c.value = "ELEVATION\AZIMUTH" then c.offset(0,1).resize(1,100).cut c.offset(-1,1) 
next c 
+0

ありがとうございました!それは動作します:) @ティムウィリアムズ –

関連する問題