网页资讯视频图片知道文库贴吧地图采购
进入贴吧全吧搜索
excel吧 关注：282,521贴子：1,560,132
  • 7回复贴，共1页

求教有关于宏里面范围的设定

每次运行宏边框总是在A1:H284的范围，太麻烦了。想让他随着我的表标格变化来加边框。例如图2：想让运行宏后边框的范围在：A1：H51就好了


代码发出来给你改


2026-05-19 01:25:03
广告
不感兴趣
开通SVIP免广告
range([a1], cells(rows.count, 1).end(xlup).offset(0,7))


别人教的，举一反三


h = Val(Cells.Find("*", LookIn:=xlFormulas, SearchDirection:=xlPrevious).Row)
range("a1:a"&h)


条件格式就可以


换个程序试试
Sub test()
' 首先取消 A:H 旧的框线
Range("A1:H9999").Borders.LineStyle = xlNone
' 测试A列最底行，再设定新的框线
r = Range("A1").End(xlDown).Row
Range("A1:H" & r).Borders.LineStyle = xlContinuous
End Sub


扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！
  • 7回复贴，共1页
分享到: