热线电话:13121318867

登录
首页精彩阅读EXCEL中数据处理技巧——合并sheet
EXCEL中数据处理技巧——合并sheet
2014-11-02
收藏

EXCEL中数据处理技巧——合并sheet

EXCEL中数据处理技巧“多个sheet合并”

 第一步,新建sheet;
 第二步,ALT+F11;
 第三步,编写宏语句:
  Sub 合并当前工作簿下的所有工作表()
  Application.ScreenUpdating = False
  For j = 1 To Sheets.Count
   If Sheets(j).Name <> ActiveSheet.Name Then
       X = Range("A65536").End(xlUp).Row + 1
       Sheets(j).UsedRange.Copy Cells(X, 1)
   End If
  Next
  Range("B1").Select
  Application.ScreenUpdating = True
  MsgBox "当前工作簿下的全部工作表已经合并完毕!", vbInformation, "提示"
  End Sub
第四步,完成。

数据分析咨询请扫描二维码

最新资讯
更多
客服在线
立即咨询