回复：Excel可以做什么，Excel工作笔记[全员乱入]

好久么有认真的更新这个帖子了，最近 @誓约丶胜利 的每日一贴看的不错，推荐大家阅读。 @247454238 提到了一个问题
247454238: 那我就补充个,比如如果要求有两个，含有北京或者上海字眼的，可以用=SUMIF(A1:A5,"上海",B1:B5)+SUMIF(A1:A5,"北京",B1:B5)。也可以是=SUMPRODUCT(SUMIF(A1:A5,{"上海","北京"},B1:B5)) 后面的原理至今不明····
出现了这种情况的时候我们要怎么做？看看下边的例子 我们就可以开始讲这次的重点，公式编辑器和公式的调试方法。
如上图，公式已经给出，怎么知道为什么得到的结果是40呢？其实很容易，进入公式编辑栏，选中想要知道结果的表达式。

按F9，就知道了这个表达式返回的结果了。很多复杂的公式都可以这样一步一步的简化，由此方法，以后再也不怕那些头疼的数组公式了。

由此可以看出，
SUMIF(A1:A10,{2,3},B1:B10) = { SUMIF(A1:A10,2,B1:B10), SUMIF(A1:A10,3,B1:B10) }
是不是就容易理解多了呢？

下边讲讲公式编辑器，很多初学者都知道这个。
选中一个空单元格，点击公式编辑器 Fx 按钮，就可以打开公式目录，里边所有的可用公式，

Mac 版本的，请大家见谅。

选中合适的公式就可以了。
这里我想要介绍的是在有多个公式嵌套的情况下如何逐个查看，其实也非常简单。只要光标选中想要看的公式或公式内部，点 fx 键就可以了，公式编辑器会打开相应的公式，非常方便。

光标在 SUMIF 上，这时点击Fx，则会变成这样

除了SUMIF的部分，其他的部分都被隐去了，不要担心，编辑器关闭后就会出来的。
公式编辑器另外的一个主要部分是参数提示，即这个东西

点击公式名称的超级链接 SUMPRODUCT 部分，会打开关于此公式的帮助文件。
点击不同的参数，则会帮助定位每一个参数的表达式。（这里点的是 array1 )

再利用上边讲到的F9显示结果，便是最强大有效的公式调试工具。不知道你有用过么？

大家有兴趣的自己试试看，我会在下边做一个实例，公式简单，重在演示。

誓约丶胜利 的帖子链接 http://tieba.baidu.com/p/2842920210
前两天回答的一个越过IF 7层嵌套的方法
帖子链接 http://tieba.baidu.com/p/2849976457
公式如下
=INDEX({"出勤不合格","三违","迟到","迟到两次","考核","创新","技工","年休假"},FIND("1",(--(K7<20))&(--AND(N7<>0,R7=1))&(--(R7=1))&(--(R7=2))&(--(N7<>0))&(--(O7<>0))&(--(P7<>0))&(--(L7>0))))
通过上边的方法一步一步的推倒
1. =INDEX({" 出勤不合格","三违","迟到","迟到两次","考核","创新","技工","年休假"},FIND("1", (--(FALSE))&(--AND(TRUE,TRUE))&(--(TRUE))&(--(FALSE))&(--(TRUE))&(--(TRUE))&(--(TRUE))&(--(TRUE))))
2. =INDEX({" 出勤不合格","三违","迟到","迟到两次","考核","创新","技工","年休假"},FIND("1", 0&1&1&0&1&1&1&1))
3. =INDEX({" 出勤不合格","三违","迟到","迟到两次","考核","创新","技工","年休假"},FIND("1", "01101111"))
4. =INDEX({" 出勤不合格","三违","迟到","迟到两次","考核","创新","技工","年休假"},2)
这就容易理解多了，通过find 1 在一连串判断表达式组成的01标识字符串中找到第一个符合条件的，然后通过index来获得相应的描述信息。
其实上边的这个函数有个缺点，在所有条件都不符合的话会返回错误，了解了原理以后就容易修改了，即，年休假后加 ,"无条件符合"，倒数第二个括号后前加 &1，就好了。@clinzli 希望能帮到你。

一段爬虫代码
Function GetProperty(iID As Long) As String
Dim doc As Object
Dim s$
Set doc = CreateObject("msxml2.XMLHTTP")
doc.Open "POST", "http://－－－－－－－－", False
doc.setrequestheader "Content-Type", "application/x-www-form-urlencoded; charset=UTF-8"
doc.setrequestheader "Accept", "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8"
doc.setrequestheader "Accept-Encoding", "gzip, deflate"
doc.setrequestheader "Accept-Language", "en-US,en;q=0.5"
doc.setrequestheader "Content-Length", "23"
doc.setrequestheader "Host", "－－－－－－"
doc.setrequestheader "Referer", "－－－－－－－"
doc.setrequestheader "User-Agent", "Mozilla/5.0 (Macintosh; Intel Mac OS X 10.9; rv:26.0) Gecko/20100101 Firefox/26.0"
doc.send ("op=3&propertyId=" & iID)
GetProperty = doc.responseText
End Function

某个公式：=IF(ROUND((SUMPRODUCT(P9:AT9,P19:AT19)/AP5+420*COUNTIF(P9:AT9,420)/AP5+SUMPRODUCT(P8:AT8,P19:AT19)),2),IF(MIN(P9:AT9),"("&MIN(P9:AT9)&"×"&SUMIF(P9:AT9,MIN(P9:AT9),P19:AT19))&IF(AND(MIN(P9:AT9)<340,COUNTIF(P9:AT9,340)),"+340×"&SUMIF(P9:AT9,340,P19:AT19),"")&IF(AND(MIN(P9:AT9)<350,COUNTIF(P9:AT9,350)>0),"+350×"&SUMIF(P9:AT9,350,P19:AT19),"")&IF(AND(MIN(P9:AT9)<370,COUNTIF(P9:AT9,370)>0),"+370×"&SUMIF(P9:AT9,370,P19:AT19),"")&IF(AND(MIN(P9:AT9)<390,COUNTIF(P9:AT9,390)>0),"+390×"&SUMIF(P9:AT9,390,P19:AT19),"")&IF(AND(MIN(P9:AT9)<420,COUNTIF(P9:AT9,420)>0),"+420×"&COUNTIF(P9:AT9,420),"")&IF(AND(MIN(P9:AT9)<596.8,COUNTIF(P9:AT9,596.8)>0),"+596.8×"&SUMIF(P9:AT9,596.8,P19:AT19)&")÷"&AP5&"="&ROUND(SUM(P9:AT9)/AP5,2),")÷"&AP5&IF(COUNTIF(P8:AT8,60),"+60×"&SUMIF(P8:AT8,60,P19:AT19),"")&IF(COUNTIF(P8:AT8,50),"+50×"&SUMIF(P8:AT8,50,P19:AT19),"")&"="&ROUND((SUMPRODUCT(P9:AT9,P19:AT19)/AP5+420*COUNTIF(P9:AT9,420)/AP5+SUMPRODUCT(P8:AT8,P19:AT19)),2)),"")
显示结果：(350×3+370×4)÷17=148.82

做地图数据，导入，调整，导出，完了。

第二

@duizijifuzeqq
选中要计算的单元格 然后运行，多少不限
Sub RunSelection()
Dim dStDev As Double
Dim dAverage As Double
Dim rSelection As Range
Dim rRemove As Range
Dim rTemp As Range
Dim c As Range
Set rSelection = Selection
rSelection.ClearFormats
Do
dStDev = WorksheetFunction.StDev(rSelection)
dAverage = WorksheetFunction.Average(rSelection)
Set rRemove = Nothing
Set rTemp = Nothing
For Each c In rSelection
If Abs(c - dAverage) > dStDev * 3 Then
c.Interior.Color = RGB(256, 0, 0)
If rRemove Is Nothing Then
Set rRemove = c
Else
Set rRemove = Application.Union(rRemove, c)
End If
End If
Next
If Not rRemove Is Nothing Then
For Each c In rSelection
If Application.Intersect(c, rRemove) Is Nothing Then
If rTemp Is Nothing Then
Set rTemp = c
Else
Set rTemp = Application.Union(rTemp, c)
End If
End If
Next c
Set rSelection = rTemp
End If
Loop While Not rRemove Is Nothing
End Sub

吧主，您好！我的情况是vba零基础，懂点excel函数，想多学点东西，楼主能给点建议不？特别是vba应该从何学起，有好的书籍推荐吗？谢谢。

请教要怎么下载安装 ...

我是第9种，用来做双色球！呵呵 有彩友可以交流哈。

请帮忙解答一下这个问题好不好，谢谢啦 公司的电脑是xp系统，安装了excel2007没有任何问题，但是我的笔记本WIN7系统，安装以后发现EXCEL如果插入图片打印就会变形，而且只是那种宽度方向变形，就是比如正圆打印预览就变成椭圆，如下图（百度以后都没有找到答案，而且解答者让把源文件发给他，但是我试了，我把我电脑上的文件拷贝到公司电脑，打印的时候没问题。我发现有好多人在问这个问题）

楼主是多更新一次啊 对VBA不是很懂