excel - オブジェクト _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

以下のコードを試してください

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 3

C2 の値を使用して、列 C の残りの部分にシートのデータの一番下まで同じ値を入力したいだけです。

「データの下部」は、ワークシートの絶対的な下部ではなく、データの範囲を意味すると解釈しています (後者は、Excel 2007/2010/2013 では C1048576 です)。C2 に数式が含まれているかどうかは明らかではないため、数式をそのままにして、その値を C3 からデータの範囲まで残りのセルに詰め込む必要があります。

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