選擇范圍時(shí)出現(xiàn)錯(cuò)誤1004“應(yīng)用程序定義的錯(cuò)誤或?qū)ο蠖x的錯(cuò)誤”。我仍然能夠選擇行（即Rows("21:21").select）并選擇同一工作簿其他工作表中的范圍。我認(rèn)為錯(cuò)誤不在代碼中。也許我不知道它的某些設(shè)置？我之前已經(jīng)使用了完全相同的代碼很多次，但是由于某種原因，我無法使其在此子代碼中起作用（我已經(jīng)注釋了發(fā)生錯(cuò)誤的位置）...Sub CopySheet1_to_PasteSheet2() Dim CLastFundRow As Integer Dim CFirstBlankRow As Integer 'Finds last row of content Windows("Excel.xlsm").Activate Sheets("Sheet1").Activate Range("C21").Select '>>>Error 1004 "Application-defined or Object-defined error" Occurs Selection.End(xlDown).Select CLastFundRow = ActiveCell.Row 'Finds first row without content CFirstBlankRow = CLastFundRow + 1 'Copy Data Range("A21:C" & CLastFundRow).Select Selection.Copy 'Paste Data Values Sheets("PalTrakExport PortfolioAIdName").Select Range("A21").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False 'Bring back to top of sheet for consistancy Range("A21").Select Range("A1").SelectEnd Sub由于行數(shù)會(huì)經(jīng)常變化，因此我需要在復(fù)制中花樣。同樣，下面的代碼之前已被使用過，沒有錯(cuò)誤...但是在這種情況下沒有使用。Dim CLastFundRow As IntegerDim CFirstBlankRow As Integer'Finds last row of contentWindows("Excel.xlsm").ActivateSheets("Sheet1").ActivateRange("C21").Select '>>>Error 1004 "Application-defined or Object-defined error" OccursSelection.End(xlDown).SelectCLastFundRow = ActiveCell.Row'Finds first row without contentCFirstBlankRow = CLastFundRow + 1
3 回答
米琪卡哇伊
TA貢獻(xiàn)1998條經(jīng)驗(yàn) 獲得超6個(gè)贊
也許您的代碼在Sheet1后面，所以當(dāng)您將焦點(diǎn)更改為Sheet2時(shí)，找不到對(duì)象嗎？在這種情況下，只需指定目標(biāo)工作表可能會(huì)有所幫助：
Sheets("Sheet1").Range("C21").Select
我對(duì)Select的工作方式不是很熟悉，因?yàn)槲冶M量避免使用它:-)。您可以定義和操作范圍，而無需選擇它們。明確說明您引用的所有內(nèi)容也是一個(gè)好主意。這樣，如果您從一個(gè)工作表或工作簿轉(zhuǎn)到另一個(gè)工作表或工作簿，就不會(huì)迷路。嘗試這個(gè)：
Option Explicit
Sub CopySheet1_to_PasteSheet2()
Dim CLastFundRow As Integer
Dim CFirstBlankRow As Integer
Dim wksSource As Worksheet, wksDest As Worksheet
Dim rngStart As Range, rngSource As Range, rngDest As Range
Set wksSource = ActiveWorkbook.Sheets("Sheet1")
Set wksDest = ActiveWorkbook.Sheets("Sheet2")
'Finds last row of content
CLastFundRow = wksSource.Range("C21").End(xlDown).Row
'Finds first row without content
CFirstBlankRow = CLastFundRow + 1
'Copy Data
Set rngSource = wksSource.Range("A2:C" & CLastFundRow)
'Paste Data Values
Set rngDest = wksDest.Range("A21")
rngSource.Copy
rngDest.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
'Bring back to top of sheet for consistancy
wksDest.Range("A1").Select
End Sub
揚(yáng)帆大魚
TA貢獻(xiàn)1799條經(jīng)驗(yàn) 獲得超9個(gè)贊
這樣的事情我也經(jīng)歷過。在我的情況下，大多數(shù)工作表都處于保護(hù)模式（盡管與宏相關(guān)的單元已解鎖）。當(dāng)我在工作表上禁用保護(hù)時(shí)，宏工作正?！坪鮒BA不喜歡鎖定的單元格，即使宏未使用它們也是如此。
添加回答
舉報(bào)
0/150
提交
取消