MergeCells=True,如何不显示提示框。

ning84

1. Sub Macro1()
   
2. 
   
3.    Dim Sht As Worksheet
   
4.        Set Sht = Sheet2
   
5.    Dim Rng As Range, oRng As Range
   
6.    Dim Str As String
   
7.        Set Rng = Sht.Cells(20, 1).CurrentRegion
   
8.        Debug.Print Rng.Address
   
9.        Set oRng = Rng(ii, 1)
   
10.        For ii = 1 To Rng.Rows.Count
    
11.            ''
    
12.            If Rng(ii, 1) = Rng(ii + 1, 1) Then
    
13.                Set oRng = Union(oRng, Rng(ii, 1))
    
14.                
    
15.            ElseIf Rng(ii, 1) <> Rng(ii + 1, 1) Then
    
16.                
    
17.                Debug.Print oRng(2, 1).Resize(oRng.Rows.Count).Address
    
18.                Stop
    
19.                oRng.MergeCells = True
    
20.                oRng.Merge
    
21.                Set oRng = Rng(ii, 1)
    
22.            End If
    
23.            
    
24.        Next ii
    
25.     'Selection.Merge
    
26. End Sub

复制代码

swl4561255

前面加一句
Application.Displayalerts=False