how to repeat column B names. Is there any another way rather than dragging the cells?

[srija]

Please help me that how can we repeat column B names (vamsi and suresh) until cell value = EOH12 (column A).

A column I B column
E0H11 vamsi
E0H24 suresh
E0H01 (Repeat here)
E0H54 (Repeat here)
EOH12 (Repeat here)

Output should be like:
A column I B column
E0H11 vamsi
E0H24 suresh
E0H01 vamsi
E0H54 suresh
EOH12 vamsi

Please help me out

 

[CsJHUN]

Welcome
If one time task select both name and simple drag-down-copy them.

 

[lousymc]

put this in B1 then copy down

=IF(MOD(ROWS($A$1:A1),2)>0,A1&" vamsi",A1&" suresh")

 

[footoo]

If the cell below EOH12 is blank, select the two cells in column B and double click the lower right corner of the selection.

 

[srija]

Hey, Thank you for your response but I have to repeat this process for many names like this. Is there any way to do automatically by click one #button(VBA or any) without dragging option.

Ex: if we enter names in any data form or in certain cells then it should get repeat itself(automatically) based on already filled A column values.

A column B column

E0H11 vamsi

E0H24 suresh

E0H01 mahesh

E0H54 (Repeat here)

EOH12 (Repeat here)


Output should be like:

A column B column

E0H11 vamsi

E0H24 suresh

E0H01 mahesh

E0H54 vamsi

EOH12 suresh

 

[JoeMo]

Assuming a data set like this:

Book1
	A	B
1	E0H11	vamsi
2	E0H24	suresh
3	E0H01	mahesh
4	E0H54
5	E0H55
6	E0H56
7	E0H57
8	E0H58
9	E0H59
10	E0H60
11	E0H61
12	E0H62
13	E0H12
14	E0H70
15	E0H71
16	E0H72
17	E0H73
18	E0H74
19	E0H75
20	E0H76
Sheet2

This macro:

Sub RepeatNames()
'assumes no blank cells between the first entry in col A and the EOH12 entry in col A
Dim lRA As Long, lRB As Long, Nams As Variant, Ct As Long
lRA = Range("A:A").Find("E0H12", , xlValues, xlWhole, MatchCase:=False).Row: lRB = Cells(Rows.Count, "B").End(xlUp).Row
Nams = Application.Transpose(Range("B1:B" & lRB))
Ct = 1
Application.ScreenUpdating = False
For i = lRB + 1 To lRA
    Cells(i, "B").Value = Nams(Ct)
    If Ct = UBound(Nams) Then
        Ct = 1
    Else
        Ct = Ct + 1
    End If
Next i
Application.ScreenUpdating = True
End Sub

Will produce this result:

Book1
	A	B
1	E0H11	vamsi
2	E0H24	suresh
3	E0H01	mahesh
4	E0H54	vamsi
5	E0H55	suresh
6	E0H56	mahesh
7	E0H57	vamsi
8	E0H58	suresh
9	E0H59	mahesh
10	E0H60	vamsi
11	E0H61	suresh
12	E0H62	mahesh
13	E0H12	vamsi
14	E0H70
15	E0H71
16	E0H72
17	E0H73
18	E0H74
19	E0H75
20	E0H76
Sheet2

 

[footoo]

"I have to repeat this process for many names like this"
You need to provide details/examples of what this involves.

If you just want to do it for the example data provided (and assuming the data starts in row 2) :

Range("B2:B" & Cells(Rows.Count, "B").End(3).Row).AutoFill Destination:=Range("B2:B" & Cells(Rows.Count, "A").End(3).Row)

 

[srija]

Thanks for your response, below one is working fine for me.
I need one more help. Please let me know on the below two

1. How to skip hidden cells while repeating names using below code.
2. If I don't want to paste names where ever the value "E0H24 " is in A. How to make it.

Sub RepeatNames()
    Dim lrow As Integer
    lrow = Range("A2").End(xlDown).Row
Range("B2:B" & Cells(Rows.Count, "B").End(3).Row).AutoFill Destination:=Range("B2:B" & Cells(Rows.Count, "A").End(3).Row)
End Sub

 

[footoo]

1. How to skip hidden cells while repeating names using below code.
2. If I don't want to paste names where ever the value "E0H24 " is in A. How to make it.

Provide sample data before and after the names are filled down.

 

[srija]

Here is the data

Im getting output like this, names are not in order

result should be like below even after hiding cells( i don't want to add names for "E0H1"[hidden cell]). I wanna add names to visible cells only. Do I need to use special paste, How? But I cannot remove any data form these cells.

Thank you