Assign Serial Number in Excel like 1,1,2,2,3,3, and so on

[DHYADAV]

Hi everyone.

[FONT=verdana, geneva, lucida, lucida grande, arial, helvetica, sans-serif]want to assign serial number in column A like 1,1,2,2,3,3 and like

[/FONT]using following vba code but asssign serial number like 1,2,3, and like


Sub FillSerialNumbers()
With Range("A3:A" & Range("B" & Rows.Count).End(xlUp).Row)
.Cells(1, 1).Value = 1
.DataSeries Rowcol:=xlColumns, Type:=xlLinear, Step:=1, Trend:=False
End With
End Sub




Any ideas? I'm sure it's a minor error but I'm really stumped!!

Thanks in advance,

Dharmesh

 

[Rick Rothstein]

Give this macro a try...

[table="width: 500"]
[tr]
	[td]Sub FillSerialNumbers()
  With Range("A1:A" & Range("B" & Rows.Count).End(xlUp).Row)
    .Value = Evaluate("IF({1},INT((1+ROW(" & .Address & "))/2))")
  End With
End Sub[/td]
[/tr]
[/table]

 

[DHYADAV]

Dear Rick Rothstein,

Thanks!

Its Work like a Charm !!!!!!