方法/步驟
首先我們要有自己的excel資料,並且我們需要的是microsoftexcel,wps沒有這些負責的功能。比如我下面舉例的,我自己有205頁的資料需要合併,如圖所示。
看到這麼多資料頁要合併,如果是複製貼上的話,工作量就很大了。我們現在開始合併,首先要在最前頁新建一個工作表。如圖:
在新建的sheet表中“右鍵”,找到“檢視程式碼”,然後看到宏計算介面。如圖所示:
看到宏計算介面,我們就只需要把下面的程式碼複製進去,程式碼如下,效果如下:
sub合併當前工作簿下的所有工作表()
application.screenupdating=false
forj=1tosheets.count
ifsheets(j).nameactivesheet.namethen
x=range("a65536").end(xlup).row+1
sheets(j).usedrange.copycells(x,1)
endif
next
range("b1").select
application.screenupdating=true
msgbox"當前工作簿下的全部工作表已經合併完畢!",vbinformation,"提示"
endsub
合併後的效果
方法/步驟
首先我們要有自己的excel資料,並且我們需要的是microsoftexcel,wps沒有這些負責的功能。比如我下面舉例的,我自己有205頁的資料需要合併,如圖所示。
看到這麼多資料頁要合併,如果是複製貼上的話,工作量就很大了。我們現在開始合併,首先要在最前頁新建一個工作表。如圖:
在新建的sheet表中“右鍵”,找到“檢視程式碼”,然後看到宏計算介面。如圖所示:
看到宏計算介面,我們就只需要把下面的程式碼複製進去,程式碼如下,效果如下:
sub合併當前工作簿下的所有工作表()
application.screenupdating=false
forj=1tosheets.count
ifsheets(j).nameactivesheet.namethen
x=range("a65536").end(xlup).row+1
sheets(j).usedrange.copycells(x,1)
endif
next
range("b1").select
application.screenupdating=true
msgbox"當前工作簿下的全部工作表已經合併完畢!",vbinformation,"提示"
endsub
合併後的效果