[已解决]如何实现查找某列的第一个非空格，并将此格向上复制至非空格

ddyy004

如何实现查找某列的第一个非空格，并将此格向上复制至非空格。
谢谢

最佳答案

月排行榜 / 总排行榜

云影

2016-11-2 16:22

Sub test()
    Dim maxrow&
    maxrow = Cells(Rows.Count, 1).End(3).Row
    Range("A1:A" & maxrow).Select
    Cells(maxrow, 1).Activate
    Selection.SpecialCells(xlCellTypeBlanks).Select
    Selection.FormulaR1C1 = "=R[1]C"
End Sub

跳转到最佳答案楼层

云影

Sub test()
    Dim maxrow&
    maxrow = Cells(Rows.Count, 1).End(3).Row
    Range("A1:A" & maxrow).Select
    Cells(maxrow, 1).Activate
    Selection.SpecialCells(xlCellTypeBlanks).Select
    Selection.FormulaR1C1 = "=R[1]C"
End Sub

爱疯

不记得更方便的操作了

ddyy004

爱疯 发表于 2016-11-2 16:31
不记得更方便的操作了

不可以这样的，因为右侧的零件编号顺序不能变

爱疯

ddyy004 发表于 2016-11-3 09:24
不可以这样的，因为右侧的零件编号顺序不能变

动画结束前，恢复了原来的顺序（即右侧的零件编号顺序没有变）

ddyy004

谢谢各位，中vba里用，所以采用2楼方法