恳请高手帮忙这个删除指定行的0.00，并排序的难题

qiongmei6

我想求得一个代码，执行后他会删除c3：c1000中有0.00的行，并重新按c列数值从高到低进行排序，谢谢大神的帮忙。

gwjkkkkk

请参考。。。

qiongmei6

gwjkkkkk 发表于 2023-4-3 22:40
请参考。。。

谢谢gwjkkkkk 的回答，我执行后出错，能否麻烦您再次帮忙修改下，再次谢谢您的帮忙

iu950

附件供参考。。。

剑指E

gwjkkkkk

qiongmei6 发表于 2023-4-3 22:46
谢谢gwjkkkkk 的回答，我执行后出错，能否麻烦您再次帮忙修改下，再次谢谢您的帮忙

我这没问题。。。

zxsea_7426

gwjkkkkk 发表于 2023-4-3 23:25
我这没问题。。。

你这代码确实有问题，C列不等于0的保留了，A列B列还是原来前面几行，没有更新到原行所在的AB列数据

准提部林

gwjkkkkk 发表于 2023-4-3 23:25
我这没问题。。。

ar(r, 3) = Val(ar(i, 3)) 只將第3列上提, A/B列就錯位了~~

gwjkkkkk

准提部林 发表于 2023-4-4 11:31
ar(r, 3) = Val(ar(i, 3)) 只將第3列上提, A/B列就錯位了~~

写得太仓促，对的，谢谢准部提醒。。。

gwjkkkkk

准提部林 发表于 2023-4-4 11:31
ar(r, 3) = Val(ar(i, 3)) 只將第3列上提, A/B列就錯位了~~

Option Explicit
Sub test()
    Dim ar, i&, r&
   
    With [A3].CurrentRegion
        ar = .Value
        For i = 1 To UBound(ar)
            If Val(ar(i, 3)) <> 0 Then
                r = r + 1
                ar(r, 1) = ar(i, 1)
                ar(r, 2) = ar(i, 2)
                ar(r, 3) = Val(ar(i, 3))
            End If
        Next i
        .Clear
    End With
   
    With [A3].Resize(r, 3)
         ActiveSheet.Sort.SortFields.Clear
        .Columns(2).NumberFormatLocal = "@"
        .Value = ar
        .Sort key1:=.Item(3), order1:=xlDescending, Header:=xlNo
    End With
    Beep
End Sub
这样应该就可以 了。。。