EXCEL学习记录集合

52UEXCEL · 发表于 2012-5-15 21:46

删除带零行

Sub blankRowDeleted()
  Dim rowNum As Integer
  rowNum = [h65536].End(xlUp).Row
  For counter = rowNum to 1  step -1
  With Range("H" & counter)
If .Value = 0 Then
   .EntireRow.Delete
End If
End With
  Next
End Sub
------------------------------
我用了，好用！

Empty13 · 发表于 2012-5-16 20:11

无意中看到汗感觉长篇大幅

52UEXCEL · 发表于 2012-5-17 08:37

一个很典型的数组公式的题

假设数据在b1:b6, 要求隔一行加一个数

输入

=SUM(B1:B6*(MOD(ROW(B1:B6),2)=1))

公式结束时，按Ctrl+Shift+Enter输入即可

公式的意思是:

B1:B6作为第一个数组,

条件判断 MOD( ROW(B1:B6) ,2 )=1 作为第二个数组

此条件在行号等于奇数的时候为真,

把两个数组的对应值相乘，然后求和,就是楼主要的冬冬

如果要隔三行加一次，就改为

=SUM(B1:B6*(MOD(ROW(B1:B6),3)=1))

如此类推

还可以加上其他条件判断如，只加大于10的数

=SUM( B1:B6 * (MOD(ROW(B1:B6),3)=1) * ((B1:B6)>10)) )

等等等等......

记住，每个 * 号，都是分隔两个同样大小的数组的

qq657 · 发表于 2012-5-17 09:25

谢谢分享！

一步之间 · 发表于 2012-5-17 18:31

下了看看
谢谢楼主

yanglei1a · 发表于 2012-5-18 12:04

强。。。先消化下。。。。{:soso_e179:}

qingwa3330 · 发表于 2012-6-5 00:37

超强帖,收了,作个标记,有空就来学习

kevin550708 · 发表于 2012-6-5 10:06

谢谢分享！

dennyma · 发表于 2012-6-5 10:50

这贴很强大，谢谢楼主分享，等下班后一一研究，先收藏了。谢谢。

同心自相知 · 发表于 2012-6-16 09:32

强，谢谢分享！

		自动登录	找回密码
密码			免费注册

[分享] EXCEL学习记录集合