VBA - 任何人都可以解釋爲什麼我使用Cells（）獲得對象錯誤？

Question

所有的，我很難理解爲什麼我收到對象錯誤。每次我讀了一些東西，我想我已經想通了，當我嘗試實現時，我得到一個錯誤。我現在有工作的特定代碼：

'Set station cell value 
iRow = rEmptyStation.Row 
iColumn = rEmptyStation.Column 
Cells(iRow - 1, iColumn).Copy 
Range(Cells(iRow, iColumn), Cells(iRow, iColumn)).Select 
Selection.Paste 
rEmptyStation.Value = sStation 

iRow和iColumn是長型的，rEmptyStation是一個範圍，sStation是一個字符串。我想要做的就是複製單元格上方的單元格，將其粘貼到單元格中（爲了格式化），然後將單元格設置爲與字符串相同。

它給我的，我有[junk].Select線的對象錯誤。代替[junk]，我試過把Cells(iRow, iColumn)，我試過使用With Worksheets(1)和.Cells(iRow, iColumn)聲明，並且我也嘗試在With聲明中使用.Cells()和.Range()。

誰能向我解釋如何得到這個工作，以及如何選擇在任何情況下正確的代碼????

Answer 1

什麼結束了工作對我來說是切換我的代碼如下：

'Set station cell value 
iRow = rEmptyStation.Row 
iColumn = rEmptyStation.Column 
Cells(iRow - 1, iColumn).Copy 
Cells(iRow, iColumn).Select 
Selection.PasteSpecial xlPasteFormats 
rEmptyStation.Value = sStation 

現在，我不知道爲什麼，但是當我有代碼下面，我得到的對象錯誤（在Selection.Paste線）：

'Set station cell value 
iRow = rEmptyStation.Row 
iColumn = rEmptyStation.Column 
Cells(iRow - 1, iColumn).Copy 
Cells(iRow, iColumn).Select 
Selection.Paste 
rEmptyStation.Value = sStation 

這裏是a link我的全部項目。如果任何人都可以弄清楚，那就太好了（這個片段之後的代碼沒有被測試過！）。

Answer 2

這下面的代碼工作對我來說：

Sub Test() 

    Dim sStation As String 
    Dim rEmptyStation As Range 
    Dim selectedCell As Range 
    Dim iRow As Integer 
    Dim iColumn As Integer 

    sStation = "Test" 
    Set rEmptyStation = Range("A2") 

    'Set station cell value 
    iRow = rEmptyStation.Row 
    iColumn = rEmptyStation.Column 
    Cells(iRow - 1, iColumn).Copy 
    Set selectedCell = Range(Cells(iRow, iColumn), Cells(iRow, iColumn)) 
    selectedCell.PasteSpecial 
    rEmptyStation.Value = sStation 

End Sub 

如果你把字符串「原始」的A1，它被複制到單元格A2，然後在A2文本替換爲「測試」。

Answer 3

我真的不能告訴爲什麼它不工作，因爲我看不到你的數據
可能的原因是如果iRow值爲1
Excel無法評估Cells(0,iColumn)。

你可以試試這個：

If iRow <> 1 Then: _ 
Cells(iRow - 1, iColumn).Copy Cells(iRow, iColumn) '~~> Direct copy 
rEmptyStation.Value = sStation 

，或者如果你只是想複製Cell格式上面rEmptyStation，則：

If rEmptyStation.Row <> 1 Then 
    rEmptyStation(-1).Copy 
    rEmptyStation.PasteSpecial xlPasteFormats '~~> Direct copy and paste formats 
    rEmptyStation.Value = sStation 
End If 
Application.CutCopyMode = False 

希望這有助於。