VBA 专辑 之三

wp231957

wp231957 发表于 2020-7-7 08:57
双表联动更新 示例

按照B列 是否一致 填充相同序号，并按照序号一致 合并单元格

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
    

复制代码