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

760636412

根据数据条件填充序号，数据B/C/D/列 数据不确定,但不管哪列有数据或者没有数据，只要B/C/D有一列是存在数据的，就要把序号填充上,没有的就留空，谢谢！
附件代码，我只会写一个条件，想增加两个条件的，求助哪位大神，老师在原代码指点下，谢谢

详细如附件： 序号.zip (17.48 KB, 下载次数: 9)

2024-1-29 14:25 上传

点击文件名下载附件

dragonthree

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

复制代码

feilanga

逻辑不通，明明有数据为什么无序号

cidanji

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

复制代码

760636412

feilanga 发表于 2024-1-29 14:46
逻辑不通，明明有数据为什么无序号

附件代码以B列条件填充序号，但我想增加C/D也作为条件，有时B列有数据，C/D列没有数据，B列没有数据/C/D有数据，B/C/D列数据不确定的，

feilanga

代码简单，但是你的逻辑还是不能完全理解。到底想达到什么目的，依旧蒙圈，到底是以BCD还是BCDEFG不限制，还是任意临时确定是B 是C 还是BC 还是BD 还是CD

3190496160

3190496160

3190496160

x-xx-xx