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列的其余部分，并将相同的值一直填充到工作表中数据的底部。

我正在解释＆＃34;数据的底部＆＃34; 表示数据的范围，而不是工作表的绝对底部（后者是Excel 2007/2010中的C1048576 / 2013）。目前还不清楚C2是否包含公式，因此可能会将其单独留下，并将其值填充到C3中的剩余单元格中，直至数据范围。

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

对象_global的方法范围失败

4 个答案: