VBA粘贴数据到工作表末行时设置单元格填充与边框效果问题求助

原代码存在的问题 #

• 未提前执行源数据的复制操作，直接调用PasteSpecial会无响应
• 仅给H列最后一个单元格设置了红色填充，未覆盖所有新粘贴的单元格，也不符合你要求的橙色填充需求
• 缺少边框设置逻辑
• 结束时错误将Application.CutCopyMode设为True，正常应该设为False清空剪贴板

正确VBA实现代码 #

Sub 追加数据并设置样式()
    Dim pasteStartCell As Range
    Dim pasteRng As Range
    
    ' 1. 复制Sheet2的已用数据，可根据需要替换为指定固定区域，比如 Sheets("Sheet2").Range("A1:A10").Copy
    Sheets("Sheet2").UsedRange.Copy
    
    ' 2. 定位Sheet3 H列的第一个空白单元格作为粘贴起点
    Set pasteStartCell = Sheets(3).Range("H" & Rows.Count).End(xlUp).Offset(1, 0)
    
    ' 3. 粘贴值+转置，和原需求逻辑一致，不需要转置可删除Transpose参数
    pasteStartCell.PasteSpecial Paste:=xlPasteValues, Transpose:=True
    
    ' 4. 定位本次粘贴的所有单元格区域
    Set pasteRng = pasteStartCell.Resize( _
        ColumnSize:=Sheets("Sheet2").UsedRange.Rows.Count, _
        RowSize:=Sheets("Sheet2").UsedRange.Columns.Count)
    
    ' 5. 设置橙色填充，RGB值可根据需求自行调整
    pasteRng.Interior.Color = RGB(255, 192, 0)
    ' 6. 设置黑色连续边框
    With pasteRng.Borders
        .LineStyle = xlContinuous
        .Color = vbBlack
        .Weight = xlThin
    End With
    
    ' 清空剪贴板
    Application.CutCopyMode = False
End Sub

内容的提问来源于stack exchange，提问作者John22