Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2284|回复: 4

[已解决]求助写循环

[复制链接]
发表于 2014-6-24 07:30 | 显示全部楼层 |阅读模式
本帖最后由 qhllqhll 于 2014-6-24 07:33 编辑

每隔 14行,调整行距为(7.5)
一直到65536行
谢谢

见附件:
各14行调整行距.rar (6.15 KB, 下载次数: 3)
发表于 2014-6-24 07:50 | 显示全部楼层    本楼为最佳答案   
Sub Macro1()
    For i = 15 To 65536 Step 15
        Rows(i).RowHeight = 7.5
    Next
End Sub
回复

使用道具 举报

 楼主| 发表于 2014-6-24 07:53 | 显示全部楼层
zjdh 发表于 2014-6-24 07:50
Sub Macro1()
    For i = 15 To 65536 Step 15
        Rows(i).RowHeight = 7.5

非常感谢
回复

使用道具 举报

发表于 2014-6-24 08:07 | 显示全部楼层
  1. Sub test()
  2.         Dim i As Long
  3.         Application.ScreenUpdating = False
  4.                 For i = 1 To Cells.Rows.Count Step 14
  5.                         Rows(i).RowHeight = 7.5
  6.                 Next
  7.         Application.ScreenUpdating = True
  8. End Sub
复制代码

评分

参与人数 1 +3 收起 理由
qhllqhll + 3 赞一个!

查看全部评分

回复

使用道具 举报

 楼主| 发表于 2014-6-25 08:03 | 显示全部楼层
不信这样还重名 发表于 2014-6-24 08:07

非常感谢您的帮助

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 00:04 , Processed in 0.368749 second(s), 14 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表