2017-08-11 1 views
-1

J'ai des données comme celle-ci.une ligne en haut si. macro

enter image description here

Je dois prendre tous les numéros par « ELEVATION \ AZIMUT » et tirez une ligne vers le haut. Quelqu'un peut-il me montrer comment faire avec vba?

+0

Vous pouvez apprendre à le faire par vous-même. Commencez simplement à enregistrer une macro et faites ce que vous voulez faire dans votre feuille de calcul. –

+0

vous voulez déplacer les données dans des lignes qui sont "étiquetés" _ELEVATION \ AZIMUTH_ et déplacer les données dans la rangée au-dessus de chacune de ces lignes ... les données supérieures _ELEVATION \ AZIMUTH_ se déplacent dans la ligne _AZIMUTH_ ... la prochaine _ELEVATION \ AZIMUTH_ les données se déplacent dans _ELEVATION_ et ainsi de suite ......... en regardant votre feuille, je ne pense pas que ce soit ce que vous voulez réellement .... est-ce que vous demandez de faire? – jsotola

+0

oui c'est ce que je veux @ jsotola. J'ai trouvé ces rangées environ 3000 .. donc j'ai besoin de trouver tous les nombres par ELEVATION \ AZIMUTH et les déplacer d'un rang vers le haut. Après cela, je vais supprimer la ligne avec ELEVATION \ AZIMUTH –

Répondre

1

non testé

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

Merci! ça marche :) @ Tim Williams –