如何在VBA Excel中将公式填充到列中的最后一行？

Question

I need the expert help. I wanted to fill the Formula for whole column ("D") based on other column 'C' value start from 2nd row.

Formula is " =IF(ISBLANK(C2),"Still open",TEXT(C2,"mmm")) "

I have tried as below but But its fill down the bottom of the column irrespective of the No data on dependent column. If 'C' Column have 50 records. I wanted to fill till last valid row 50 (Example : no data in column 'C' after 50 row but column D fill row no 1048576) of the table

Dim Output_Sh As Worksheet
Set Output_Sh = ThisWorkbook.Sheets("Output")
Output_Sh.Range("D1").Value = "Month Closed"  ' Heading

Set Rng = Output_Sh.Range("D2:D" & Output_Sh.Range("C2").End(xlDown).Row)
    Rng.FormulaR1C1 = "=IF(ISBLANK(C2),""Still open"",TEXT(C2,""mmm""))"
 

HI, quick update :

I have tried the formola on colmn D then it's working fine. When I want to apply on Column "AK" then its populate only 1st two row.

Sub InsertAK()
    Dim n As Integer
    Dim Output_Sh As Worksheet
    Dim Rng As Range
 
    Set Output_Sh = ThisWorkbook.Sheets("Output")

    Output_Sh.Columns("AK:AK").Insert
    Output_Sh.Range("AK1").Value = "Month Closed"
    Output_Sh.Range("AK2").Value = "=IF(ISBLANK(C2),""Still open"",TEXT(C2,""mmm""))" ' "Month Closed"
    
     Set Rng = Output_Sh.Cells.Find("*", , , , , xlPrevious)
     Output_Sh.Range("AK3:AK" & Rng.Row).FormulaR1C1 = "=IF(ISBLANK(C3),""Still open"",TEXT(C3,""mmm""))"
End Sub

Output :

Answer 1

If 'C' Column have 50 records. I wanted to fill till last valid row 50

HI Siddharth thanks for reply. Actually I need it to apply on column "AK". Then I have replaced the word from D to AK then I have got the value only 1irst 2 rows only. I don't know where I am doing wrong ? – skt 6 mins ago

From the formula that you are using =IF(ISBLANK(C2),"Still open",TEXT(C2,"mmm")) , it is evident that there will be blank values and hence I suggested in the comments above PLEASE do not use xlDown to find the last row.

Is this what you are trying?

Option Explicit

Sub Sample()
    Dim Output_Sh As Worksheet
    Dim lRow As Long
    
    Set Output_Sh = ThisWorkbook.Sheets("Output")
    
    With Output_Sh
        lRow = .Range("C" & .Rows.Count).End(xlUp).Row
        
        .Range("AK1").Value = "Month Closed"  ' Heading
        .Range("AK2:AK" & lRow).Formula = "=IF(ISBLANK(C2),""Still open"",TEXT(C2,""mmm""))"
    End With
End Sub

Answer 2

The below is the running solution for the above problme

Sub InsertAK()
    Dim n As Integer
    Dim Output_Sh As Worksheet
    Dim Rng As Range
 
    Set Output_Sh = ThisWorkbook.Sheets("Output")

    Output_Sh.Columns("AK:AK").Insert
    Output_Sh.Range("AK1").Value = "Month Closed"
    Output_Sh.Range("AK2").Value = "=IF(ISBLANK(C2),""Still open"",TEXT(C2,""mmm""))" ' "Month Closed"
    
     n = Output_Sh.Range("B2", Output_Sh.Range("B2").End(xlDown).Rows).Count
     Output_Sh.Range("AK3:AK" & n + 1).FormulaR1C1 = "=IF(ISBLANK(C3),""Still open"",TEXT(C3,""mmm""))"
End Sub
 

Answer 3

You'd get incorrect results with xlDown as described in comment. However, you may get incorrect results with xlUp if last few rows of column C are blank while other data rows are filled in.

Following approach will locate last filled row in the data and accordingly set formula.

Dim Output_Sh As Worksheet
Dim Rng As Range
Set Output_Sh = ThisWorkbook.Sheets("Output")
Output_Sh.Range("D1").Value = "Month Closed"  ' Heading

Set Rng = Output_Sh.Cells.Find("*", , , , , xlPrevious)
Output_Sh.Range("D2:D" & Rng.Row).FormulaR1C1 = "=IF(ISBLANK(C2),""Still open"",TEXT(C2,""mmm""))"

Answer 4

Thanks for your support it's working now as below code:

Sub InsertAK()
    Dim n As Integer
    Dim Output_Sh As Worksheet
    Dim Rng As Range
 
    Set Output_Sh = ThisWorkbook.Sheets("Output")

    Output_Sh.Columns("AK:AK").Insert
    Output_Sh.Range("AK1").Value = "Month Closed"
    Output_Sh.Range("AK2").Value = "=IF(ISBLANK(C2),""Still open"",TEXT(C2,""mmm""))" ' "Month Closed"
    
     Set Rng = Output_Sh.Cells.Find("*", , , , , , , xlPrevious)
     n = Output_Sh.Range("C2", Output_Sh.Range("C2").End(xlDown).Rows).Count
     Output_Sh.Range("AK3:AK" & n + 1).FormulaR1C1 = "=IF(ISBLANK(C3),""Still open"",TEXT(C3,""mmm""))"
End Sub