Excel Forum

Code: Select all

Range("H2").Select
Dim rng As Range
Set rng = ActiveCell
Dim i As Integer
i = 0
Do Until rng.Offset(i, -1).Value = ""
If rng.Offset(i, 0).Value <> "" Then
With rng.Offset(i, -7).Resize(, 8).Borders(xlEdgeBottom)
        .LineStyle = xlDouble
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThick
End With

 End If
    i = i + 1
Loop

Code: Select all

    Dim rall As Range
    Dim r As Range
    With Worksheets("Sheet1")
        Set rall = .Range("b1", .Range("b" & .Rows.Count).End(xlUp))
        For Each r In rall
            r.Offset(0, 1).Value = Application.Rept(r.Value, r.Offset(0, -1).Value)
        Next r
    End With
End Sub