对象_global的方法范围失败

我只是想用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

这将find列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