Excel VBA-将复制的项目放入表格/边框中

在本论坛的大量帮助下，生成了此代码。Advancedfilter工作正常，但复制项目周围的框架/表格工作不正常

但不幸的是，这些项目没有使用锡边框。总是前三排。 有人知道为什么吗

Sub Unique_Values_Worksheet_Variables()
    Dim wb As Workbook: Set wb = ThisWorkbook
    Dim sws As Worksheet: Set sws = wb.Worksheets("export")
    Dim dws As Worksheet
    Set dws = wb.Worksheets.Add(After:=wb.Sheets(wb.Sheets.Count))
    sws.Range("F:F").AdvancedFilter _
        Action:=xlFilterCopy, _
        CopyToRange:=dws.Range("A:A"), _
        Unique:=True
              
 dws.Columns("A:A").EntireColumn.AutoFit
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With

    
End Sub

---

尝试使用

End（xlup）

子唯一值工作表变量（）
将wb设置为工作簿：设置wb=ThisWorkbook
将sws标注为工作表：设置sws=wb。工作表（“导出”）
尺寸dws作为工作表，rng作为范围
设置dws=wb.Worksheets.Add（后面：=wb.Sheets（wb.Sheets.Count））
sws.范围（“F:F”）.高级过滤器_
操作：=xlFilterCopy_
CopyToRange:=dws.Range（“A:A”）_
唯一：=真
dws.Columns（“A:A”）.entireclumn.AutoFit
设置rng=dws.Range（“A1”，dws.Cells（Rows.Count，1）.End（xlUp））
rng.Borders（xlDiagonalDown）.LineStyle=xlNone
带rng.Borders（）的
.LineStyle=xlContinuous
.ColorIndex=0
.TintAndShade=0
.Weight=xlThin
以
端接头

第4行是否为空？@CDP1802否。第3行后复制的值不带边框。您的导出工作表是否有隐藏的第4行。对于我的简单测试用例，您的代码运行良好，因此我怀疑它在数据中。运行良好！非常感谢“结束（xlUp）…我必须检查一下