Sheets("Reference").Select
    Range("d9").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    
    Dim myBorders() As Variant, item As Variant
    myBorders = Array(xlEdgeLeft, _
                      xlEdgeTop, _
                      xlEdgeBottom, _
                      xlEdgeRight, _
                      xlInsideVertical)
    For Each item In myBorders
        With Selection.Borders(item)
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
        End With
    Next item

(責(zé)任編輯：admin)

• ·[摘錄]Excel亂碼修復(fù)的幾點(diǎn)方法與經(jīng)驗(yàn)
• ·創(chuàng)建一個溫度計式的Excel圖表
• ·為選擇的區(qū)域添加邊框
• ·如何在Excel中使用文件對話框
• ·用快捷鍵實(shí)現(xiàn)相對引用和絕對引用快速來
• ·【技巧】Excel控制特定單元格輸入文本
• ·Excel技巧集錦
• ·Excel技巧大匯總
• ·在word中輸出數(shù)學(xué)符號
• ·Excel表格中的序號操作技巧
• ·關(guān)于用SUMPRODUCT取代SUM數(shù)組公式的想
• ·EXCEL減肥一得
• ·查找+格式刷的妙用
• ·輕松調(diào)整Excel奇數(shù)行行高
• ·開學(xué)后，在按年級整理各班以電子形式上
• ·讓Excel中人名顯示更美觀的技巧