詳細(xì)一點(diǎn)說: 要通過VBA把Sheet1工作表中的數(shù)據(jù)寫入Sheet2工作表中,可以采用如下方法: 1、假如要把Sheet1工作表中A1單元格的數(shù)據(jù)寫入Sheet2工作表的A1單元格中。 2、可以執(zhí)行以下語句: sub test()sheets("Sheet2").range("A1").Value=sheets("Sheet1").range("A1").Value end sub 3、語句解釋:range("A1")代表A1單元格,.Value代表是單元格的值屬性。 溫馨提示:答案為網(wǎng)友推薦,僅供參考 當(dāng)前網(wǎng)址:https://88./zd/gSaVKVKSKBcKVMB1SS.html 第1個(gè)回答 2014-05-22 sub a() [a1].copy iif([a1]="",[a1],sheets(2).[a65536].end(3).offset(1)) end sub 將表1的數(shù)據(jù)插入到SHEET2的A列。 sheet是有表頭啊什么的,我只要指定區(qū)域插入即可。 你的要求不明確,全是大范圍,沒一個(gè)準(zhǔn)確的描述。。。我只有隨便舉例寫了一個(gè)。 追問哦,真不好意思。那我盡量寫準(zhǔn)確一點(diǎn) 現(xiàn)在就是想在表1中將數(shù)據(jù)行填充進(jìn)去以后,通過插入的按鈕將數(shù)據(jù)航增加到表2的最后。 如圖,這是表1的數(shù)據(jù),當(dāng)我填好后,點(diǎn)擊上面的按鈕,這一部分?jǐn)?shù)據(jù)就被復(fù)制到表2 中,點(diǎn)擊一下,就在表2中向下復(fù)制一次,達(dá)到數(shù)據(jù)積累的效果。 另外,我表1和表2的格式是一樣的,只需要在表2的最下方插入表1的這些數(shù)據(jù)行就行了 range("b4:O"& [b65536].end(3).row).copy sheets(2).[B65536].end(3).offset(1) end sub 把中間那名代碼,復(fù)制到你的控件代碼中。 追問我對(duì)VBA不懂,請(qǐng)問上述語句中,sheets(2) 是怎么定位的? sheets(2) ,代表第2個(gè)表,在工作表標(biāo)簽上,從左往右數(shù)。 第2個(gè)回答 2015-09-30 具體要看你的是什么操作,如果是篩選,合并之類的操作,可以通過宏錄制,直接錄制出的操作代碼,將代碼中的sheet1改成sheet2?。?!具體需要什么操作,你要說一下才能給你代碼 |
|