如果是一排。宏

Question

我有这样的数据。

我需要通过＆＃34; ELEVATION \ AZIMUTH＆＃34;把它们向上拉一排。 任何人都可以告诉我如何用vba做到这一点吗？

Answer 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