怎样有条件插入行

[复制链接]
查看11 | 回复1 | 2009-1-24 21:48:38 | 显示全部楼层 |阅读模式
在一个区域下(列)的数据中,从上面的数据加起来(当然让它自己算),当他的和超过15的时候,就自动插入3行。有没有用编辑宏或者其他命令实现这个?
是在excel下。

回复

使用道具 举报

千问 | 2009-1-24 21:48:38 | 显示全部楼层
资料不全,给个类似的。 Sub 插入行() A = 0 For X = 1 To 1000 A = A + Cells(X, 1) If A > 15 Then Rows(X + 1).Select Selection.Insert Shift:=xlDown Selection.Insert Shift:=xlDown Selection.Insert Shift:=xlDown A = 0 End If Next End Sub...
回复

使用道具 举报

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

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行