1樓：依然特雷西
1、開發工具——vb。
2、輸入**：sub 複製表() dim mybook1 as workbook set mybook1 = workbooks.open("c:
\users\administrator\desktop\工作表1.xls") sheets("移動表").select sheets("移動表").
copy before:=workbooks( _ "工作表2.xls").
sheets(1)mybook1.closeend sub。
3、開發工具——巨集。
4、執行——複製表。
5、如圖，複製完成。
2樓：陽光上的橋
vba使用工作表的copy方法複製，用after或者before指定複製到的位置，否則複製到新工作簿，例如：
workbooks("檔案一.xlsx").sheets("表一").copy after:=workbooks("檔案二.xlsx").sheets("表2")
3樓：姓王的
例如將a.xls工作簿的sheet1工作表複製到b.xls工作簿的sheet1，可用如下**：
workbooks("a.xls").sheets("sheet1").
cells.copy workbooks("b.xls").
sheets("sheet1").range("a1")
如何用vba把一個工作簿中的工作表內容複製到另一個彙總工作簿裡面的指定的工作表裡面去？
4樓：司馬刀劍
將工作薄a 的工作表移動到工作簿b中
開啟兩個工作簿 a 和b
選取工作簿a中所需要的工作表，右鍵
移動或複製
選擇工作簿b
建立副本 即可
如何用excel vba 將一個工作簿中的一個工資表複製到另一個工作簿中的工資表 10
5樓：十全十美的暱稱
我是女生，選中整個工作表複製到指定的根目錄下就行
6樓：匿名使用者
可以寫程式做到，但說來話長
7樓：匿名使用者
sub copysheet()
dim ws1 as worksheet
set ws1 = thisworkbook.worksheets("sheet16")
ws1.copy thisworkbook.sheets(sheets.count)
end sub
vb編寫程式，利用Sub過程實現將任意十進位制數n分別轉換成2進製 8進製和16進製制數。要求
private sub command1 click a cint text1.text s dec2n a,2,s print a s 2 dec2n a,8,s print a s 8 dec2n a,16,s print a s 16 end sub sub dec2n byval a,r,s...
如何利用opencv實現彩色影象邊緣檢測演算法
在opencv中顯示邊緣檢測很簡單，只需呼叫乙個cvcanny函式，其使用的是canny演算法來實現對影象的邊緣檢測 函式原型為 void cvcanny const cvarr image,cvarr edges,double threshold1,double threshold2,int ap...
如何實現網路賺錢？怎麼利用網路掙錢？
如果你要通過網路賺錢的話，途徑有不少，比如當下自 的熱度相當的高，你可以去做自 自己拍拍 做一做小短篇放到自 平台上 或者如果你文化底蘊較高，可以去當乙個網路作家，到微博等類似平台上發表文章或去寫網路 也是可以的。1寫文章賺錢。現在有很多平台可以寫文章賺錢，常用的有 經驗，一點號，百家號，微信 頭條...