复制粘贴不复制单元格边框 excel vba

Question

我无法复制包括所有边框在内的整个单元格并将其粘贴到相邻的单元格中。 原始工作表显示在 1.jpg 中。我想从第 18 行删除 P1。完成后，U2 将移至 G 列及其边框格式。 但是我看到 G 列有一个蓝色的底边，如图 2.jpg 预期的结果如图 3.jpg

 For col_num = col_num To 12
                                        
    'MsgBox stored_row & col_num
                                        
                                       
         If col_num = 12 Then
            Exit For
         End If
        
            If Sheets("DSS").Cells(stored_row, col_num + 1).Value <> "" Then
                
                Sheets("DSS").Cells(stored_row, col_num + 1).Copy
                Sheets("DSS").Cells(stored_row, col_num).PasteSpecial
                Application.CutCopyMode = False

                Sheets("DSS").Cells(stored_row, col_num + 1).Value = ""
            
            ElseIf Sheets("DSS").Cells(stored_row, col_num + 1).Value = "" Then
                
                Sheets("DSS").Cells(stored_row, col_num + 1).Copy
                Sheets("DSS").Cells(stored_row, col_num).PasteSpecial
                Application.CutCopyMode = False

                'Exit For
            End If
            
            If Sheets("DSS").Cells(stored_row - 1, col_num).Value <> "" Then
                    Cells(stored_row, col_num).Select
                        With Selection.Borders(xlEdgeTop)
                            .LineStyle = xlContinuous
                            .Color = vbBlue
                            .TintAndShade = 0
                            .Weight = xlThick
                        End With
            End If
             If Sheets("DSS").Cells(stored_row + 1, col_num).Value <> "" Then
                    Cells(stored_row, col_num).Select
                        With Selection.Borders(xlEdgeBottom)
                            .LineStyle = xlContinuous
                            .Color = vbBlue
                            .TintAndShade = 0
                            .Weight = xlThick
                        End With
            End If
            
Next

我无法复制包括所有边框在内的整个单元格并将其粘贴到相邻的单元格中。

原始工作表显示在 1.jpg 中。我想从第 18 行删除 P1。完成后，U2 将移至 G 列及其边框格式。

但是我在 G 列中看到一个蓝色的底部边框，如 2.jpg 所示

预期结果如图3.jpg

Answer 1

这可能会给你一种方法来做你想做的事：

Option Explicit

Sub Shift_Value_and_Borders_Left()
    Dim targetCell As Range, sourceCell As Range, x As Integer

    Set targetCell = Range("G18")
    Set sourceCell = targetCell.Offset(0, 1)
    
    targetCell.Value = sourceCell.Value
        
    For x = 5 To 12
        targetCell.Borders(x).LineStyle = sourceCell.Borders(x).LineStyle
        targetCell.Borders(x).Weight = sourceCell.Borders(x).Weight
        targetCell.Borders(x).Color = sourceCell.Borders(x).Color
    Next x

    Set sourceCell = Nothing
    Set targetCell = Nothing
End Sub