物料编码相同的添加序列号且单元格自动合并

@木木@

物料编码相同的添加序列号且单元格自动合并

3190496160

想要合并单元格，就不是基础操作能够完成的了，得用vba吧

避风港湾

工厂不都是用ERP吗？

wp231957

1. Sub wp()
   
2.    Application.DisplayAlerts = False  '禁止提示信息的显示，合并单元格会有是否保留左上角的提示
   
3.    
   
4.    Range("a2") = Range("a2").Row - 1
   
5.    Range("a3:a92").Select
   
6.    s = Selection.Rows.Count
   
7.    For i = 3 To s + 2                '按B列是否一致 填充序号
   
8.       If Range("b" & i) <> Range("b" & i - 1) Then
   
9.          Range("a" & i) = Range("a" & i - 1) + 1
   
10.       Else
    
11.          Range("a" & i) = Range("a" & i - 1)
    
12.       End If
    
13.    Next
    
14.    '''以下按照上面填充的序号 进行相同序号合并单元格
    
15.    k = 2
    
16.    For i = 3 To s + 2
    
17.      If Range("a" & i) <> Range("a" & k) Then
    
18.         Range("a" & k & ":" & "a" & i - 1).Select
    
19.         Selection.Merge
    
20.         k = i
    
21.      End If
    
22.    Next
    
23. End Sub
    

复制代码