求助所有工作表A列相同姓名合并居中

mizl167

工作薄内有多个工作表，如何将每个工作表A列相同姓名合并居中

mizl167

朱荣兴 发表于 2019-12-19 15:58
Sub hebingQQ705664849()
Application.ScreenUpdating = False
Application.DisplayAlerts = False

提示sh没有定义

NadrsSaber

mizl167 发表于 2019-12-19 16:57
提示sh没有定义

路过插一句, 你这个报错, 在代码里声明一下这个变量就行了.

mizl167

NadrsSaber 发表于 2019-12-19 17:07
路过插一句, 你这个报错, 在代码里声明一下这个变量就行了.

我小白一个

yaozong

1. Sub test()
   
2. Dim sh As Worksheet, Rng As Range, i&
   
3. Application.ScreenUpdating = False
   
4. Application.DisplayAlerts = False
   
5. For Each sh In Sheets
   
6.   sh.Select
   
7.   r = Cells(Rows.Count, 1).End(3).Row
   
8.   Set Rng = Cells(5, 1)
   
9.   For i = 6 To r + 1
   
10.     If Cells(i, 1) = Cells(i - 1, 1) Then
    
11.       Set Rng = Union(Rng, Cells(i, 1))
    
12.     Else
    
13.       Rng.Merge
    
14.       Rng.HorizontalAlignment = xlCenter
    
15.       Rng.VerticalAlignment = xlCenter
    
16.       Set Rng = Cells(i, 1)
    
17.     End If
    
18.   Next i
    
19. Next sh
    
20. Application.ScreenUpdating = True
    
21. End Sub

复制代码