excel表格跨行自动排序

姗姗来迟的

mykitami 发表于 2024-11-1 10:11
VBA已长期不用，忘光了。你可以去VBA版块去寻求帮助。
如果用公式解决的话，你可以在A列左侧插入一列， ...

感谢大佬，这个基本上可以实现，不过还有个问题就问题不大了，实在不行我就手动复制粘贴一下就好了，感谢大佬

李贵濮

姗姗来迟的 发表于 2024-11-1 09:38
这个好像也不行吧，因为我是要删除一整行的呢，执行的是删除行的操作，不是只删除行里面的内容

是我没写清，起始公式应该是IF(B1>0,COUNTA($B$1:B1),"") 跟楼下的推荐公式一样
再写个VBA 吧
Sub li()
    m = Cells(Rows.Count, 1).End(xlUp).Row
    For x = 1 To m
    If Cells(x, 1) <> "" Then
    w = w + 1
    Cells(x, 1) = w
    End If
    Next
End Sub
你试试看效果对不对

李贵濮

Sub li()
    m = Cells(Rows.Count, 1).End(xlUp).Row
    For x = 1 To m
    If Cells(x, 1) <> "" Then
    w = w + 1
    Cells(x, 1) = w
    End If
    Next
End Sub

姗姗来迟的

李贵濮 发表于 2024-11-1 14:37
Sub li()
    m = Cells(Rows.Count, 1).End(xlUp).Row
    For x = 1 To m

好的，我待会儿试试，多谢大佬了

姗姗来迟的

李贵濮 发表于 2024-11-1 14:37
Sub li()
    m = Cells(Rows.Count, 1).End(xlUp).Row
    For x = 1 To m

刚刚试了一下，不知道是我操作方法不对还是怎么个情况，出不来效果呢

忙到飞起

VBA真好

姗姗来迟的

忙到飞起 发表于 2024-11-4 14:13
VBA真好

但是我用不来啊