strРабочийЛист = ActiveSheet.Name                                               'Запоминаем текущий лист с
Set РабочийЛист = Sheets(strРабочийЛист)                                        'обрабатываемой формой.
Set SheetРамки = Sheets.Add                                                     'Лист для внесения данных о рамках
РабочийЛист.Activate                                                            'Возвращаемся на рабочий лист
SheetРамки.Name = "Рамки"
    With SheetРамки
        .Cells(1, 1).Value = "Строка"
        .Cells(1, 2).Value = "Столбец"
        .Cells(1, 3).Value = "СтильСлева"
        .Cells(1, 4).Value = "ТолщинаСлева"
        .Cells(1, 5).Value = "СтильСнизу"
        .Cells(1, 6).Value = "ТолщинаСнизу"
    End With
longСтрокаРасшифровки = 2                                                       'Начиная со второй строки пишем
    For Each Ячейка In РабочийЛист.Range(Cells(1, 1), Cells(longНизЛиста, longПравоЛиста)) 'параметры каждой ячейки
        longСтрока = Ячейка.Row
        longСтолбец = Ячейка.Column
        SheetРамки.Cells(longСтрокаРасшифровки, 1).Value = longСтрока
        SheetРамки.Cells(longСтрокаРасшифровки, 2).Value = longСтолбец
        SheetРамки.Cells(longСтрокаРасшифровки, 3).Value = Ячейка.Borders(xlEdgeLeft).LineStyle
        SheetРамки.Cells(longСтрокаРасшифровки, 4).Value = Ячейка.Borders(xlEdgeLeft).Weight
        SheetРамки.Cells(longСтрокаРасшифровки, 5).Value = Ячейка.Borders(xlEdgeBottom).LineStyle
        SheetРамки.Cells(longСтрокаРасшифровки, 6).Value = Ячейка.Borders(xlEdgeBottom).Weight
        longСтрокаРасшифровки = longСтрокаРасшифровки + 1
    Next Ячейка

Set РабочийЛист = Sheets("проверка рамок")
Set SheetРамки = Sheets("Рамки")
РабочийЛист.Activate                                                            'Возвращаемся на рабочий лист
    For i = 2 To 1500
        With РабочийЛист.Cells(SheetРамки.Cells(i, 1), SheetРамки.Cells(i, 2))
            If SheetРамки.Cells(i, 3) <> -4142 Then
                .Borders(xlEdgeLeft).LineStyle = SheetРамки.Cells(i, 3)
            End If
        End With
    Next i