Установка значения ячейки теряет стиль границы

Question

У меня есть макрос VBA Excel, который вводит значение в ячейку на основе значения другой ячейки. Все работает, за исключением того, что после запуска макроса ячейка, в которую было введено значение, больше не имеет границы. Любая идея, как ввести только значение и не потерять стиль границы для ячейки? Ниже приведено утверждение:

Sub copy()

    Dim i As Long, j As Long, rng As Range, k As Long, ws1 As Worksheet, ws2 As 
    Worksheet, acode1 As Long, acode2 As Long
    k = 2

    Set acode1 = "LECO"
    Set acode2 = "OM"
    Set ws1 = ThisWorkbook.Worksheets("S1700038com")
    Set ws2 = ThisWorkbook.Worksheets("UPLOAD")

    ws2.Range("A2:E113").Clear

    For i = 5 To 65

    If Len(ws1.Cells(i, 3).Value) = 7 Then      'Check if SIDN length
        If Not IsEmpty(ws1.Cells(i, 4)) Then        'Check if there is an EC result
            ws1.Cells(i, 3).copy ws2.Cells(k, 1)        'Copy SIDN
            ws2.Cells(k, 2).Value = "EC"            'Enter ACODE
            ws1.Cells(i, 4).copy ws2.Cells(k, 3)            'Copy Result
            ws1.Cells(2, 8).copy ws2.Cells(k, 4)        'Copy ASTD
            ws1.Cells(3, 8).copy ws2.Cells(k, 5)                'Copy AANALYST

            k = k + 1                           'increment ws2 row counter

            If Not IsEmpty(ws1.Cells(i, 5)) Then
                ws1.Cells(i, 3).copy ws2.Cells(k, 1)      'Copy SIDN
                ws2.Cells(k, 2).Value = "PH"            'Enter ACODE
                ws1.Cells(i, 5).copy ws2.Cells(k, 3)            'Copy Result
                ws1.Cells(2, 8).copy ws2.Cells(k, 4)        'Copy ASTD
                ws1.Cells(3, 8).copy ws2.Cells(k, 5)                'Copy AANALYST
                k = k + 1
            End If
        End If
    End If

    Next


End Sub

Answer 1

Я предлагаю не использовать метод копирования диапазона, а назначать значения:

ws2.Cells(i,j).Value = ws1.Cells(k,n).Value

Это полностью игнорирует форматирование ячейки