VBA案例精选 复制单元格边框

2021年4月11日10:34:36VBA案例精选 复制单元格边框已关闭评论 218 views
微信公众号 【EXCEL880】 QQ群【165159540】
课程咨询 加我微信EXCEL880B试学网址http://v.excel880.com

代码运行结果:

VBA案例精选 复制单元格边框

代码截图:

VBA案例精选 复制单元格边框

代码文本:

Public Sub 技巧()
    Dim myRange1 As Range
    Dim myRange2 As Range
    Dim cel As Range
    Set myRange1 = Range("A1:A7")     '指定要复制的单元格区域
    Set myRange2 = Range("D1")        '指定要复制的位置(左上角单元格)
    With myRange1
        Set myRange2 = myRange2.Resize(RowSize:=.Rows.Count, ColumnSize:=.Columns.Count)
        For Each cel In .Cells
            For i = xlDiagonalDown To xlEdgeRight
                Set myBrd = myRange2.Range(cel.Address).Borders(i)
                With cel.Borders(i)
                    myBrd.LineStyle = .LineStyle
                    myBrd.Weight = .Weight
                    myBrd.ColorIndex = .ColorIndex
                End With
            Next
        Next
    End With
    Set cel = Nothing
    Set myRange1 = Nothing
    Set myRange2 = Nothing
End Sub

VBA编辑神器放送

VBA编程懒人神器推荐 VBA代码助手 可以极大提高编程速度,降低编程门槛欢迎使用
VBA密码破解 VBA代码对齐  VBA代码混淆保护加密 代码库输入提示 VBA模块隐藏
下载链接:http://excel880.com/blog/archives/11297

VBA案例精选 生成文件文件夹目录
VBA案例精选 生成文件文件夹目录
VBA案例精选 生成文件文件夹目录