對象_global的方法範圍失敗

我只是想使用C2中的值來填充C列的其餘部分，並使用與工作表中數據底部相同的值。對象_global的方法範圍失敗

Sub Testfill1() 
' 
' Testfill1 Macro 
' 

' 
    Sheets(1).Select 
    lngEndRow = lastCellBlock 

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

來源

2013-07-23 user2612186

我只是要使用在C2的值具有相同的值的所有的方式在片材中的數據的底部填充塔C的其餘部分。

這應該做你想要什麼：

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

如果不工作或犯規回答你的問題讓我知道

來源

2013-07-23 21:10:09 chancea

這會發現在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

來源

2013-07-23 21:21:36

您是否解決了您的問題？ –

下面的代碼嘗試

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

來源

2013-07-24 00:31:23 Santosh

我只是想使用C2的值一路填充C列的其餘部分以相同的值到數據的底部片。

我解釋「數據的底部」意味着你的數據的範圍，而不是工作表的絕對底部（後者C1048576在Excel 2007/2010/2013）。目前還不清楚C2是否包含公式，因此應該將其單獨留下，並將其值從C3填充到剩餘單元格中，直至數據的範圍。

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

來源

2015-02-24 14:49:59 Jeeped

對象_global的方法範圍失敗

回答

相關問題