excel單元格的標(biāo)識方法-文庫吧資料
2024-08-29 09:53本頁面
【正文】 個過程 我們拿這個代碼來改 Sub 拷貝 sheet1數(shù)據(jù) () Dim i As Integer, j As Integer i = Sheets(sheet1).Range(A65536).End(xlUp).Row j = Sheets(合并 ).Range(A65536).End(xlUp).Row + 1 Sheets(sheet1).Range(A2:L amp。 i).Copy Sheets(合并 ).Range(j amp。 i).Copy Sheets(合并 ).Range(A amp。 i).Copy Sheets(合并 ).Rows(j) Range(Sheets(sheet1).Cells(2, 1), Sheets(sheet1).Cells(i, 13)).Copy Sheets(合并 ).Cells(j, 1) 結(jié)果都一樣，至于怎么用，就要看每個人的習(xí)慣了 還有其它用法 ,大家去試一試 當(dāng)然 代碼越簡單越好，少敲鍵盤 最后一句注意，在模塊里都要加上工作表名稱，不管是 Range還是 Cells，否則 VBA就不知道找那一個工作表了 ,第一個 Range 表示區(qū)域的意思 ,就不用加工作表名稱 ,關(guān)鍵是括號內(nèi)的區(qū)域 ,要引用工作表名稱 這就是為什么第一段代碼給大家后 ,大家出錯的原因 這樣完成了第一個工作表的復(fù)制 這個工作簿四個工作表，除了合并工作表這外還有三個，代碼如下： Sub 拷貝 sheet1數(shù)據(jù) () Dim i As Integer, j As Integer i = Sheets(sheet1).Range(A65536).End(xlUp).Row j = Sheets(合并 ).Range(A65536).End(xlUp).Row + 1 Sheets(sheet1).Range(A2:L amp。 : amp。 j) Sheets(sheet1).Range(2: amp。 i)這一句的用法大家注意，變量是不要加“”的 好了 ,這是一種 Range在區(qū)域中的用法，我們看看另外幾種用法 Sheets(sheet1).Range(A2:L amp。選擇 A1 到 D10的區(qū)域 Range(A1:D10).Select Range(A1, D10).Select Range(Cells(1, 1), Cells(10, 4)).Select [A1:D10].Select End Sub
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1