如何解决在vba
我正在尝试将范围AV3:BE3的边框格式复制到下面的动态行中。但是,代码会将格式复制到第3,000行,并且它不会在最后一行停止。
这是代码:
Dim my_range_AVtoBE As Range
Dim last_row As Long
'Define Dynamic Range Accoring to Column B
last_row = ActiveSheet.Cells(Rows.Count,2).End(xlUp).Row
Set my_range_AVtoBE = ActiveSheet.Range("AV3:BE3" & last_row)
Range("AV3:BE3").Select
Selection.copy
my_range_AVtoBE.PasteSpecial Paste:=xlPasteFormulasAndNumberFormats,Operation:=xlNone
my_range_AV.PasteSpecial xlPasteFormats
Application.CutcopyMode = False
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。