VBA復(fù)制工作表某一單元格到另一工作表指定單元格？這樣寫(xiě)代碼：sheets（1）。范圍（“A1”）。復(fù)印紙張（2）。范圍（“B2”）注意復(fù)制的范圍應(yīng)該是相同的，一個(gè)單元格就可以了，沒(méi)有合并單元格給你最

VBA復(fù)制工作表某一單元格到另一工作表指定單元格？

這樣寫(xiě)代碼：sheets（1）。范圍（“A1”）。復(fù)印紙張（2）。范圍（“B2”）注意復(fù)制的范圍應(yīng)該是相同的，一個(gè)單元格就可以了，沒(méi)有合并單元格

給你最實(shí)用的代碼。將單元格的已用區(qū)域復(fù)制到新表中。使用以下代碼指示要復(fù)制表目標(biāo)的左上角單元格的范圍：=接收復(fù)制表左上角的單元格。例如，將Sheet1中使用的范圍復(fù)制到SHEET2，將其粘貼到SHEET2 dim myrange1作為rangedim myrange2作為rangeset myrange1=sheets1。Usedrangeset myrange2=sheets2。范圍（“A1”）myrange1。復(fù)制目的地：=myrange2要?jiǎng)h除一行，需要循環(huán)添加添加和刪除條件OK

將要保留的工作表的名稱放入數(shù)組，然后將數(shù)組放入字典，然后遍歷工作表以確定字典中是否存在工作表名稱。如果存在，則將工作表移到新工作簿中，另存為

如果不想使用字典和數(shù)組，也可以將工作表列在一列中，并用VBA調(diào)用count函數(shù)來(lái)判斷工作表的名稱是否規(guī)則，可以用間接行直接獲取

如果工作表的名稱不規(guī)則，如果要將當(dāng)前工作簿的其他工作表中的A1、D2、E3、F5保存到第一個(gè)工作表的A:D列，則可以使用宏函數(shù)，每個(gè)工作表的數(shù)據(jù)將存儲(chǔ)在一行中。

按alt，依次按F11，I，m，粘貼代碼并按F5以實(shí)現(xiàn)目標(biāo)。

Sub sheet summary（）

with sheets（1）“注意，第一張表是摘要表，運(yùn)行代碼后將修改其內(nèi)容

forI=2總計(jì)工作簿。工作表。計(jì)數(shù)

. 單元（I，1）=薄板（I）。范圍（“A1”）。單元格（I，2）=頁(yè)（I）。范圍（“D2”）。單元格（I，3）=頁(yè)（I）。范圍（“E3”）。單元格（I，4）=頁(yè)（I）。Range（“F5”）

]“如果有更多的對(duì)應(yīng)關(guān)系，請(qǐng)?jiān)诖颂幪砑?/p>

next

endwith

endsub

VBA如何批量將單元格復(fù)制到另一個(gè)工作表中？

sub copy（）?！睉?yīng)用程序.CountIf（范圍（“A:A”），然后是范圍（“A1:A3”）。復(fù)印第2頁(yè)。[A1]末端接頭