请选择 进入手机版 | 继续访问电脑版
设为首页收藏本站

共享社区

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

搜索
热搜: 活动 交友 discuz
查看: 723|回复: 1

[求助] 2015-11-6

[复制链接]

39

主题

125

帖子

142

积分

排长

Rank: 2

威望
0
金钱
253
贡献
0
发表于 2015-12-4 07:49:09 | 显示全部楼层 |阅读模式
Sub 插入空白行()
Dim i As Long
For i = 2 To 11
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
    ActiveCell.Offset(1, 0).Range("A1").Select
    Next
End Sub 这个怎么操作

回复

使用道具 举报

39

主题

125

帖子

142

积分

排长

Rank: 2

威望
0
金钱
253
贡献
0
 楼主| 发表于 2015-12-4 07:51:58 | 显示全部楼层
打开一个表按一下alt+f11,然后右键插入一个模块 ,把这个代码粘贴进去 然后按f5
回复 支持 反对

使用道具 举报

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

本版积分规则

小黑屋|手机版|Archiver|共享社区 ( 京ICP备15025663号-2  

GMT+8, 2018-12-11 08:51 , Processed in 0.147484 second(s), 23 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

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