>>196
Sub Macro()
　　For Each c In Intersect(ActiveSheet.UsedRange, Range("b:b"))
　　　　If c.Offset(0, -1) <> "" Then
　　　　　　v = c.Offset(0, -1)
　　　　Else
　　　　　　c.Offset(0, -1) = v
　　　　End If
　　Next
End Sub