zoukankan      html  css  js  c++  java
  • excel里多个sheet中的数据合并到一个sheet里面

    测试的时候,遇到几百个sheet的表数据,有的是空表,有的是有数据的,为了看表中的数据,一个个的点击太费时间和精力,于是网上找了个方法,挺好使的,分享一下。

    首先我们新建一个空白的sheet,用来统计所有的sheet数据,然后鼠标放到新建的sheet上,右键拉取弹窗,然后选择“查看代码”

     进入到代码编辑窗口

    然后在这个窗口输入如下代码,执行即可将多个sheet的数据汇总到我们新建的sheet表格里面。

    Sub hebing()
    Application.ScreenUpdating = False
    For i = 1 To Sheets.Count
         If Sheets(i).Name <> ActiveSheet.Name Then
            X = Range("A65536").End(xlUp).Row + 1
            Sheets(i).UsedRange.Copy Cells(X, 1)
          End If
    Next
    Range("B1").Select
    Application.ScreenUpdating = True
    MsgBox "合并汇总数据完毕!", vbinfomation, "成功!"
    End Sub

    看到了吧,下面就成功了哟 

  • 相关阅读:
    优秀大整数
    洛谷—— P3908 异或之和
    洛谷—— P1869 愚蠢的组合数
    洛谷—— P1680 奇怪的分组
    洛谷—— P1609 最小回文数
    Something I like
    数学相关
    新博客测试中~
    P3369 【模板】普通平衡树
    2017 11.6 NOIP模拟赛
  • 原文地址:https://www.cnblogs.com/momo-nancy/p/excel_nancy.html
Copyright © 2011-2022 走看看