[已解决]请老师们帮我备注一下这几行代码是什么意思

mazeboy

如下几行代码，每行代表什么意思呀，请帮我备注一下，
另外
如下代码合并时会选择所有的表格进行合并，如果让他只合并我指定的表格，
比如我只要合并sheet3  sheet5  sheet7  sheet9这4个表格，其它不要，应该怎么改________________________________________________________________________________
Sub 合并()
hd = Sheets(1).[a2:e2]
lr = 3                     
Application.ScreenUpdating = False    '屏幕闪烁关闭
For Each sh In Sheets
    If Not InStr(sh.Name, "合并") > 0 Then
        sh.Activate
        arr = sh.Range("a3:e" & [a65536].End(3).Row)
        Debug.Print UBound(arr): Debug.Print sh.Name
        Sheets(9).Select   
        Range(Cells(lr, "b"), Cells(lr + UBound(arr) - 1, "f")) = arr
        Range(Cells(lr, "a"), Cells(lr + UBound(arr) - 1, "a")) = sh.Name
        lr = lr + UBound(arr)
        Erase arr
    End If
Next
[a1] = "榜单": [b1:f1] = hd: Columns("a:f").AutoFit  
Application.ScreenUpdating = True    '屏幕闪烁打开
End Sub

最佳答案

月排行榜 / 总排行榜

L50814026

2015-12-21 11:10

1. Sub 合并()
   
2. hd = Sheets(1).[a2:e2]    '将sheet（1）A2到E2赋值给hd
   
3. lr = 3                               'lr=3
   
4. Application.ScreenUpdating = False    '屏幕闪烁关闭
   
5. For Each sh In Sheets         '对所有工作表进行循环
   
6.     If Not InStr(sh.Name, "合并") > 0 Then          '如果工作表名称不含“合并” 则
   
7.         sh.Activate                           '激活工作表
   
8.         arr = sh.Range("a3:e" & [a65536].End(3).Row)   '将A3到E列最后一个非空单元格内容赋值给数组arr
   
9.         Debug.Print UBound(arr): Debug.Print sh.Name   '打印arr数组上限  打印工作表名称
   
10.         Sheets(9).Select                 '选中sheet（9）
    
11.         Range(Cells(lr, "b"), Cells(lr + UBound(arr) - 1, "f")) = arr    '将arr赋值给B（lr）到F（...）对应区域
    
12.         Range(Cells(lr, "a"), Cells(lr + UBound(arr) - 1, "a")) = sh.Name  '将工作表名称赋值给A（lr）到A（...）对应区域
    
13.         lr = lr + UBound(arr)      'lr累加至arr数组上限
    
14.         Erase arr    '清除arr
    
15.     End If
    
16. Next
    
17. [a1] = "榜单": [b1:f1] = hd: Columns("a:f").AutoFit     'A1=榜单  B1到F1等于hd    A到F列自动为合适列宽
    
18. Application.ScreenUpdating = True    '屏幕闪烁打开
    
19. End Sub

复制代码

跳转到最佳答案楼层

L50814026

http://www.excelpx.com/thread-186721-1-1.html
楼主不用谢我

mazeboy

L50814026 发表于 2015-12-21 10:33
http://www.excelpx.com/thread-186721-1-1.html
楼主不用谢我

谢谢，又多了一份学习资料。
但我现在想解决眼前的问题，能否帮我一下

L50814026

1. Sub 合并()
   
2. hd = Sheets(1).[a2:e2]    '将sheet（1）A2到E2赋值给hd
   
3. lr = 3                               'lr=3
   
4. Application.ScreenUpdating = False    '屏幕闪烁关闭
   
5. For Each sh In Sheets         '对所有工作表进行循环
   
6.     If Not InStr(sh.Name, "合并") > 0 Then          '如果工作表名称不含“合并” 则
   
7.         sh.Activate                           '激活工作表
   
8.         arr = sh.Range("a3:e" & [a65536].End(3).Row)   '将A3到E列最后一个非空单元格内容赋值给数组arr
   
9.         Debug.Print UBound(arr): Debug.Print sh.Name   '打印arr数组上限  打印工作表名称
   
10.         Sheets(9).Select                 '选中sheet（9）
    
11.         Range(Cells(lr, "b"), Cells(lr + UBound(arr) - 1, "f")) = arr    '将arr赋值给B（lr）到F（...）对应区域
    
12.         Range(Cells(lr, "a"), Cells(lr + UBound(arr) - 1, "a")) = sh.Name  '将工作表名称赋值给A（lr）到A（...）对应区域
    
13.         lr = lr + UBound(arr)      'lr累加至arr数组上限
    
14.         Erase arr    '清除arr
    
15.     End If
    
16. Next
    
17. [a1] = "榜单": [b1:f1] = hd: Columns("a:f").AutoFit     'A1=榜单  B1到F1等于hd    A到F列自动为合适列宽
    
18. Application.ScreenUpdating = True    '屏幕闪烁打开
    
19. End Sub

复制代码

mazeboy

L50814026 发表于 2015-12-21 11:10

谢谢，谢谢，太详细了，
另外，只要合并指定工作表，比如 sheet3  sheet5 sheet7,三个表格

代码要怎么修改一下

爱疯

建议求助时上传附件