问题描述
有人可以帮忙吗? 我需要在列中找到第一个非空单元格,剪切整行(第一个非空单元格)并插入到第二行(第一个是标题)。我需要对每一列重复此操作,直到该列为空 - 没有标题...但这仅适用于第一列..
Sub activate()
Dim col As Integer
col = 1
Do Until IsEmpty(Cells(1,col))
With Columns("A")
.Find(what:="*",after:=.Cells(2,1),LookIn:=xlValues).activate
End With
ActiveCell.EntireRow.Select
Selection.cut
Rows("2:2").Select
Selection.Insert Shift:=xlDown
col = col + 1
Loop
End Sub
非常感谢 高
解决方法
暂无找到可以解决该程序问题的有效方法,小编努力寻找整理中!
如果你已经找到好的解决方法,欢迎将解决方案带上本链接一起发送给小编。
小编邮箱:dio#foxmail.com (将#修改为@)