How to copy fixed values into the blank cells?

[idnoidno]

I would like to use the EXCEL VBA array to handle the left form into the right table. If someone can answer,I will be very grateful.

 

[YasserKhalil]

Replied in the other forum (Please read the rules of cross-posting)
http://www.vbaexpress.com/forum/showthread.php?59198-about-Array

 

[idnoidno]

Sorry, I did not notice the rules of the forum, if I could help me delete, I would be very grateful

 

[YasserKhalil]

No sorry and no problem. Just in case you cross-post, you have to put all the links to the other threads.
Regards

 

[Monty]

idnoidno

Welcome to forum.

No sample file attatched for quick help.

 

[Nebu]

Hi:

Use the following code.

Sub test()
Application.ScreenUpdating = False
Dim rng As Range

For i& = 2 To Me.Cells(1, Columns.Count).End(xlToLeft).Column
    Set rng = Me.Range(Me.Cells(2, i), Me.Cells(Me.Cells(Rows.Count, 1).End(xlUp).Row, i))
    rng.SpecialCells(xlCellTypeBlanks) = Cells(1, i)
Next

Application.ScreenUpdating = True
End Sub

Thanks

 

[jindon]

Try

Sub test()
    With Range("a1").CurrentRegion  '★ alter to suite.
        With .Offset(1, 1).Resize(.Rows.Count - 1, .Columns.Count - 1)
            On Error Resume Next
            .SpecialCells(4).Formula = "=r" & .Row - 1 & "c"
            On Error GoTo 0
            .Value = .Value
        End With
    End With
End Sub

 

[idnoidno]

The above two response, I am deeply grateful, I have to spend a little time to study.