VBA代码实例---多个工作表内容合并到一个工作表中

15 篇文章 5 订阅

这是一个常用而且经典的例子:根据内容,把N个工作表中的内容,合并到一个工作表中;

¤主要知识点¤

1、工作表选取和内容的复制;

2、IF分支语句和For循环语句的使用;

¤工作表样式¤


¤代码实例¤

Option Explicit

Sub 合并工作表()

    Dim i As Integer
    Dim x As Integer, y As Integer
    Dim k As Integer
        
'    Range("A1").CurrentRegion.Select
'    Selection.Delete

    Range("A1").CurrentRegion.Value = ""
    
    For i = Worksheets.Count To 2 Step -1
    
        If Worksheets(i).Name = "合并工作表" Then Exit For
        
        x = Worksheets(i).Range("A1").CurrentRegion.Rows.Count
        y = Worksheets(i).Range("A1").CurrentRegion.Columns.Count
        
        If Worksheets("合并工作表").Range("A1").Value = "" Then
            Worksheets(i).Range("A1").Resize(x, y).Copy Worksheets("合并工作表").Range("A1")
        Else
            k = Range("A1").CurrentRegion.Rows.Count + 1
            Worksheets(i).Range("A3").Resize(x - 2, y).Copy Worksheets("合并工作表").Range("A" & k)
        End If
            
    Next i

Columns.AutoFit

End Sub

  • 1
    点赞
  • 4
    评论
  • 17
    收藏
  • 一键三连
    一键三连
  • 扫一扫,分享海报

©️2020 CSDN 皮肤主题: 大白 设计师:CSDN官方博客 返回首页
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值