EXCEL中有300行 我需要奇数一种行距,偶数一种行距。怎么实现?急,在线等,
3个回答
2016-08-25
展开全部
这个得用VBA,函数给你写好了
Sub 宏1()
Dim i As Integer
For i = 1 To 300 Step 1
Rows(i).Select
If i Mod 2 = 0 Then
Selection.RowHeight = 你要的偶数行行高
Else
Selection.RowHeight = 你要的奇数行行高
End If
Next
End Sub
对于如何把VBA布上去有问题的话继续追问
Sub 宏1()
Dim i As Integer
For i = 1 To 300 Step 1
Rows(i).Select
If i Mod 2 = 0 Then
Selection.RowHeight = 你要的偶数行行高
Else
Selection.RowHeight = 你要的奇数行行高
End If
Next
End Sub
对于如何把VBA布上去有问题的话继续追问
追问
非常感谢,楼上有个更简单的方法,不好意思了 还是谢谢你
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
第一行第二,分别设置好行距。复制他这两行。选择性粘贴下面所有的行。选择,条件为,格式。确定。
更多追问追答
追问
都有内容的。这样内容都会被覆盖啊
追答
选择性粘贴格式,又不是选择性粘贴数值。不会被盖住的。
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
添加一个辅助列,确认行数奇偶,用=MOD(ROW(),2)
筛选基数行,拉长就行了
筛选基数行,拉长就行了
更多追问追答
追问
这个看不太懂。。。辅助列怎么添加
追答
在表后面加一列啊
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询