求助老师，序号原代码指点修改下，谢谢

x-xx-xx

x-xx-xx

1. Sub Call数据库排序()
   
2.    
   
3.     arr = Range("A1").Resize(ActiveSheet.UsedRange.Rows.Count, 10)
   
4.     For i = 2 To UBound(arr)
   
5.         arr(i, 1) = ""
   
6.     Next
   
7.    
   
8.     xh = 0
   
9.     For i = 2 To UBound(arr)
   
10.         If arr(i, 2) & arr(i, 3) & arr(i, 4) <> "" Then
    
11.             xh = xh + 1
    
12.             arr(i, 1) = xh
    
13.         End If
    
14.     Next
    
15.    
    
16.     Range("A1").Resize(ActiveSheet.UsedRange.Rows.Count, 1) = arr
    
17.    
    
18. End Sub

复制代码

760636412

feilanga 发表于 2024-1-29 15:17
代码简单，但是你的逻辑还是不能完全理解。到底想达到什么目的，依旧蒙圈，到底是以BCD还是BCDEFG不限制， ...

谢谢，也可能我表达不清楚吧，我用了另一种方式，工作表事件，解决了

760636412

cidanji 发表于 2024-1-29 14:47

感谢，就是这样的效果，花已献上，谢谢

gwjkkkkk

Option Explicit
Sub TEST1()
    Dim ar, i&, j&, r&, isFlag As Boolean
   
    With ActiveSheet.UsedRange
        .Columns("A").Offset(1).Clear
        ar = .Value
        For i = 2 To UBound(ar)
            isFlag = False
            For j = 2 To 4
                If Len(ar(i, j)) Then isFlag = True: Exit For
            Next j
            If isFlag Then r = r + 1: ar(i, 1) = r
        Next i
        .Value = ar
    End With
    Beep
End Sub

gwjkkkkk

参与一下。。。