對象_global的方法范圍失敗

Question

我只是想使用C2中的值，以相同的值填充C列的其余部分，一直到工作表中數據的底部。

Sub Testfill1()
'
' Testfill1 Macro
'

'
    Sheets(1).Select
    lngEndRow = lastCellBlock

    Range("C2:C" & lngEndRow).FormulaR1C1 = "1"
End Sub

Answer 1

我只是想使用C2中的值，以相同的值填充C列的其余部分，一直到工作表中數據的底部。

這應該做您想要的：

Sub FillDown()
    Range("C2", "C" & rows.Count).FillDown
End Sub

如果這樣不起作用或無法回答您的問題，請告訴我

Answer 2

這將在C列中找到具有值的最后一行，並將C2中的所有內容復制到該單元格中。

Sub CopyDown()
    Dim ws As Worksheet
    Dim lastRow As Long

    Set ws = ThisWorkbook.Sheets("Sheet1")
    lastRow = ws.Range("C" & ws.Rows.Count).End(xlUp).Row

    ws.Range("C2").Copy ws.Range("C2:C" & lastRow)

End Sub

Answer 3

試試下面的代碼

Sub Testfill1()

    Dim lastRow As Long
    With Sheets("sheet1")
        lastRow = .Range("C" & .Rows.Count).End(xlUp).Row
        .Range("C2:C" & lastRow).FormulaR1C1 = "1"
    End With

End Sub

Answer 4

我只是想使用C2中的值，以相同的值填充C列的其余部分，一直到工作表中數據的底部。

我將“數據底部”解釋為數據的范圍，而不是工作表的絕對底部（后者在Excel 2007/2010/2013中為C1048576）。 目前尚不清楚C2是否包含公式，因此應該將其單獨放置，並將其值從C3填充到其余單元格直至數據范圍。

  Range("C3:C" & cells(rows.count, 3).end(xlUp).row) = Range("C2").value