前20行代码添加单元格上、下边框距离
Sub padding() For i = 1 To 20 Range("a1").Cells(i).RowHeight = Range("a1").Cells(i).RowHeight + 10 Next End Sub
scai 2021-09-14 11:17 原文
前20行代码添加单元格上、下边框距离
Sub padding() For i = 1 To 20 Range("a1").Cells(i).RowHeight = Range("a1").Cells(i).RowHeight + 10 Next End Sub