我只想使用C2中的值来填充C列的其余部分,并使用相同的值一直到工作表中数据的底部。
Sub Testfill1()
'
' Testfill1 Macro
'
'
Sheets(1).Select
lngEndRow = lastCellBlock
Range("C2:C" & lngEndRow).FormulaR1C1 = "1"
End Sub
答案 0 :(得分:1)
我只是想使用C2中的值来填充C列的其余部分,并将相同的值一直填充到工作表中数据的底部。
这应该做你想要的:
Sub FillDown()
Range("C2", "C" & rows.Count).FillDown
End Sub
如果这不起作用或没有回答你的问题,请告诉我
答案 1 :(得分:0)
这将在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
答案 2 :(得分:0)
尝试以下代码
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
答案 3 :(得分:0)
我只是想使用C2中的值来填充C列的其余部分,并将相同的值一直填充到工作表中数据的底部。
我正在解释"数据的底部" 表示数据的范围,而不是工作表的绝对底部(后者是Excel 2007/2010中的C1048576 / 2013)。目前还不清楚C2是否包含公式,因此可能会将其单独留下,并将其值填充到C3中的剩余单元格中,直至数据范围。
Range("C3:C" & cells(rows.count, 3).end(xlUp).row) = Range("C2").value