熱線電話: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
第四步,完成。

數據分析咨詢請掃描二維碼

若不方便掃碼,搜微信號:CDAshujufenxi

數據分析師資訊
更多

OK
客服在線
立即咨詢
日韩人妻系列无码专区视频,先锋高清无码,无码免费视欧非,国精产品一区一区三区无码
客服在線
立即咨詢