EXCEL VBA，從不活動(dòng)的工作表中獲取范圍。當(dāng)我查看“臨時(shí)”工作表時(shí)，這個(gè)腳本工作得很好。但是當(dāng)我在另一個(gè)工作表中時(shí)，復(fù)制命令就失敗了。它提供了一個(gè)“應(yīng)用程序定義的或?qū)ο蠖x的錯(cuò)誤”。Sheets("Temp").Range(Cells(1), Cells(1).End(xlDown)).Copy
Sheets("Overview").Range("C40").PasteSpecial我可以用這個(gè)腳本代替，但是粘貼它有問題。Sheets("Temp").Columns(1).Copy
Sheets("Overview").Range("C40").PasteSpecial我不想激活“臨時(shí)”表來獲取這個(gè)我還能做什么
3 回答
MMMHUHU
TA貢獻(xiàn)1834條經(jīng)驗(yàn) 獲得超8個(gè)贊
CellRangeThisWorkbookActiveSheetWorksheet
Sheets("Temp").Range(ActiveSheet.Cells(1), ActiveSheet.Cells(1).End(xlDown)).Copy
Sheets("Overview").Range("C40").PasteSpecialSheets("Temp").Range(Me.Cells(1), Me.Cells(1).End(xlDown)).Copy
Sheets("Overview").Range("C40").PasteSpecialDim sh1 As WorksheetDim sh2 As WorksheetSet sh1 = ActiveWorkbook.Sheets("Temp")Set sh2 = ActiveWorkbook.Sheets("Overview")With sh1
.Range(.Cells(1,1), .Cells(1,1).End(xlDown)).CopyEnd Withsh2.Range("C40").PasteSpecial
瀟瀟雨雨
TA貢獻(xiàn)1833條經(jīng)驗(yàn) 獲得超4個(gè)贊
波斯汪
TA貢獻(xiàn)1811條經(jīng)驗(yàn) 獲得超4個(gè)贊
Dim lRow As LonglRow = Sheets("Temp").Cells(Cells.Rows.Count, "A").End(xlUp).RowWith Sheets("Temp")
.Range("A1:A" & lRow).Copy Sheets("Overview").Range("C40")End WithSheets("Temp").Columns(1).SpecialCells(xlCellTypeConstants).Copy Destination:=Sheets("Overview").Range("C40")添加回答
舉報(bào)
0/150
提交
取消