注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

牧笔临风

己有能,勿自私!

 
 
 

日志

 
 
 
 

快速在同一工作簿中合并结构相同的工作表  

2011-11-09 09:26:01|  分类: 杂记 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
以下的代码功能是:快速合并同一个工作薄中的多个工作表,合并成为一个工作表。
  合并之前,请先创建一个空白的 Sheet 作为合并目标 Sheet ,这个 Sheet 必须是第一个 Sheet 。
  如果不合并标题行(比如第一行)则 j=1 改为 j=2
  如果数据不是从第一行,或者第一列开始的,请修改 j=1 及 k=2 两行的参数。
  比如 j=2 k=3 表示从 第2行,第三列开始的数据。
  以下是合并的代码,希望对您有所帮助。

    Sub CombineSheet()
        Dim i, j, k, n As Integer
        n = 1
        For i = 2 To ThisWorkbook.Sheets.Count
            For j = 1 To ThisWorkbook.Sheets(i).UsedRange.Rows.Count
                For k = 1 To ThisWorkbook.Sheets(i).UsedRange.Columns.Count
                    If j = 1 Then
                        ThisWorkbook.Sheets(1).Cells(n, 1).Value = ThisWorkbook.Sheets(i).Name
                        ThisWorkbook.Sheets(1).Cells(n, k).Interior.Color = RGB(255, 0, 0)
                    Else
                        ThisWorkbook.Sheets(1).Cells(n, k).Value = ThisWorkbook.Sheets(i).Cells(j, k).Value
                    End If
                Next k
            n = n + 1
            Next j
        Next i
    End Sub
  评论这张
 
阅读(411)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017