Hi KW -
Here is a "gap-filling" procedure that has been posted in this Discussion
Group before. Copy it to a standard module, select your Primary Choice
column, and run the procedure.
Sub fill_in_the_blanks()
Dim r As Range
For Each r In Selection
If IsEmpty(r.Value) Then
r.Value = r.Offset(-1, 0).Value
End If
Next
End Sub
--
Jay
"KW" wrote:
> I have a document that looks like this?
>
>
> Table of students who have chosen physics as a primary choice 1.
>
> ID Primary Choice Secondary Choice Programs
> 515 1 2 math
> 3 english
> 6 spanish
>
>
> I am trying to create a pivot table that breaks out the primary choice
> (first column), them the primary choice(second column) and then progrm
> name - the count will be on student ID.
>
> As it is, I first have to fill down the records so that I end up with
> this:
> ID Primary Choice Secondary Choice Programs
> 515 1 2 math
> 515 1 3 english
> 515 1 6 spanish
>
> Then create the pivot table.
>
> The file has about 10000 student IDs and this is very time consuming,
> is there a better way to do this?
>
> Thanks
>
>
|