EXCEL表格 黑框设定问题， 请教高手！！！

很简单，用下面的代码就行了
这个轻轻一点就全部解决了。。表格有多少行excel自己去找，条件格式也可行，但是还是需要人去选范围，填条件。表格少没什么，表格多了的话也是相当累人的

Sub 加粗线()
Dim rng As Range
For i = 34 To ActiveSheet.UsedRange.Rows.Count Step 25
Set rng = Intersect(Worksheets(1).UsedRange, Rows(i))
rng.Select
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlMedium
End With
Next
End Sub

你第2 个类似的，把上面的数字34改成30,25改成24就是你第二个要求了。。不会用的百度HI我

条件格式里的公式填
=(ROW()=34)+(ABS(INT((ROW()-34)/25))=(ROW()-34)/25)
格式自己选
表二类似
=(ROW()=30)+(ABS(INT((ROW()-30)/24))=(ROW()-30)/24)

选中第10行以下的单元格，做条件格式---公式：=mod(row(),25)=9,---设定单元格边框为黑色加粗----确定。
第二个同理，在25行以下做，公式：=mod(row(),24)=6

假如你的报表每页为30行.
在后面一空列中输入 =mod(row(),30)
向下复制后,自动筛选结果为0的行,

全选筛选结果为这些行 设置加粗的底框线

,确定后,去掉新加的这一列,列样你就打印的每页的最末行就是粗线条了

如果每页行数不相同，则可以如下操作：

第一步：取消所有框线
第二步：页面布局栏中打开“页面设置”对话框（点“页面设置”右下角的小箭头），在“工作表”标签里选中“网格线”即可。

注：打印预览中可能会显示为虚线，但打印出来就是正常的了，效果不错。

条件格式不能解决问题。VBA解决