合并工作表

郭浩
郭浩
郭浩
186
文章
2
评论
2016年3月30日14:34:34 评论 54 535字阅读1分47秒
Sub 合并工作表()
 Dim sh As Worksheet, flag As Boolean, i As Integer, hrow As Integer, hrowc As Integer
 For i = 1 To Sheets.Count
 If Sheets(i).Name = "合并数据" Then flag = True
 Next
 If flag = False Then
 Set sh = Worksheets.Add
 sh.Name = "合并数据"
 Sheets("合并数据").Move after:=Sheets(Sheets.Count)
 End If
 For i = 1 To Sheets.Count
 If Sheets(i).Name <> "合并数据" Then
 hrow = Sheets("合并数据").UsedRange.Row
 hrowc = Sheets("合并数据").UsedRange.Rows.Count
 If hrowc = 1 Then
 Sheets(i).UsedRange.Copy Sheets("合并数据").Cells(hrow, 1).End(xlUp)
 Else
 Sheets(i).UsedRange.Copy Sheets("合并数据").Cells(hrow + hrowc - 1, 1).Offset(1, 0)
 End If
 End If
 Next i
 End Sub
郭浩
  • 本文由 发表于 2016年3月30日14:34:34
  • 除非特殊声明,本站文章均为原创,转载请务必保留本文链接
又一个宏,这次是关于查询的 办公软件

又一个宏,这次是关于查询的

马上春节了,事情不多,今天上午又帮人做了一个查询的宏。 源文件是个极其不规范的表格,里面在数据源中存在很多合并单元格,数据也并非都在一列中,好在每个数据区域还算比较有规律(有固定的行、列数量),索引关...
匿名

发表评论

匿名网友 填写信息

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen: