统计单元格字母个数, 链接：https://pan.baidu.com/s/1vPDNh87jZo44D5_qnXGe-A?pwd=u69i 提取码：u69i

本公式可查找 2~99999 之质数因子。 C1 =IF(PRODUCT($B1:B1)=$A1,"",MIN(IF($A1/PRODUCT(1,$B1:B1)/ROW($2:$99999)=INT($A1/PRODUCT(1,$B1:B1)/ROW($2:$99999)),ROW($2:$99999),9^9))) 数组公式 C+S+E 三键连按 右拉，下拉。

最近询问合并文件的吧友越来越多,大部分又都对vba代码一筹莫展. 今天给大家推荐下power query方法来合并工作簿及工作表中的数据.

因为Excel基础类的教程太多了，所以不打算录了，录了也是重复别人讲过的。我就想讲点网上比较稀缺的教程，来填上这个空白。 目前网上还没有成系列的C # 操作Excel的教程,所以打算出一些系列教程. 这个教程是免费奉献给大家的,禁止以任何形式利用我的教程来卖钱!毕竟版权是我的,我是糖君(我的QQ昵称). 准备出几期视频教程，关于用C # 操作Excel的方法，内容比较进阶。需要有一点Excel和C#基础可能才能看懂。我的口才不是特别好，所以……整个过程

课程终于结束了，超清画质免费分享给大家，课件在自频道首页有大家自己下载，谢谢 贴吧的朋友们的支持！ 小徐教程-【Excel2013】第51期强化规范数据源表 http://v.youku.com/v_show/id_XMTc1MDQ3ODc5Ng==.html?f=27330205 小徐教程-【Excel2013】第52期逆向数据透视表工具 http://v.youku.com/v_show/id_XMTc1MzAwNTI3Mg==.html?f=27330205 小徐教程-【Excel2013】第53期 unpivot table工具扩展 http://v.youku.com/v_show/id_XMTc1NDE4MTE3Mg==.html?f=27330205 小徐教程-【Excel2013】第54期数据透视表样式调整 http://v.youk

这是事一个窗体，只有一个控件。 这是窗体内部的代码： 代码添加了两个控件，并把这两个控件传入到类模块中，动态添加多个控件必须要用到集合 Collection 这是类模块的代码，注意代码中定义的变量。 下面两个图是窗体运行后，响应事件的样子。

上半部分的课程清单 做完全套在放出下半部分 大神绕道 知识分享 么么哒！ 小徐教程-【Excel2013】第1期菜鸟起飞 http://v.youku.com/v_show/id_XMTYxMDY3Mzk4NA==.html?f=27330205 小徐教程-【Excel2013】第2期安装OFFICE 2013 http://v.youku.com/v_show/id_XMTU4NzgxNDk0OA==.html?f=27330205 小徐教程-【Excel2013】第3期课前准备 http://v.youku.com/v_show/id_XMTU5MDI5ODk1Mg==.html?f=27330205 小徐教程-【Excel2013】第4期领导喊你做张表 http://v.youku.com/v_show/id_XMTU5MTUzODM1Mg==.html?f=27330205 小徐教程-【Excel2013】第5期熟记

【前方高逼格预警】 本贴将涉及到的概念和函数公式有： 等差数列、摆动数列、循环周期、通项公式、数组公式、首项、公差、数组三键、余数、CHOOSE,COLUMN,ROW,MOD,QUOTIENT,ISEVEN,ISODD,IF,INDEX,MATCH,OFFSET,TRANSPOSE 如果以上内容你有一半以上都没听说过，请先自行脑补，然后阅读本贴。 来自大神糖糖君

写在前面的话 各位大朋友小朋友们，本贴以扫盲为主，专业的数据工程师就忽视之吧。本贴每日一更新，主要想各位没入门的大朋友小朋友们初略的了解excel。当然，你要每天都能坚持了解一些，比你看那些所谓的入门教程靠谱的多。 2014/1/31 什么是excel？首先excel是微软在windows平台，mac平台下的电子表格处理软件——这是微软官方的说法。其实不以未然，excel无疑是office家族中影响最为深远的（word，access，ppt，publish，onenote等等你看见过有这么多专业

一楼是不是要给度娘(づ￣3￣)づ

本贴的主旨是给大家一个地方展示今天你都用excel做了些什么，或者学了新的东西，炫耀下领导永远不明白的复杂公式等。主要目的意义如下。 1 再有人问excel学好了可以做什么，可以参照此帖。 2 相互交流。 3 解决日益增长的贴吧高手与有挑战问题的不断下降间的矛盾。 4 解决连续刷新缺无贴可回的尴尬 5 为所有人提供了个炫耀的平台，尤其是工作中厌烦了对牛弹琴的那些。 6 促进本吧繁荣，避免人才流失。 7 以EXCEL会友 8 好吧，我无聊了。。。

Sub sa() Range("F:K") = "" z = 0 r = 1 f = 1 For i = 1 To Application.SumProduct(Application.Ceiling(Range("B1:B999"), 5)) + 5 z = z + 1 If z <= Cells(f, 2) Then Cells(r, 6 + ((z + 4) Mod 5)) = Cells(f, 1) End If If (i Mod 5) = 0 Then r = r + 1 End If If Cells(f, 2) <= z And (i Mod 5) = 0 Then f = f + 1 z = 0 Do Until Cells(f, 2) * 1 > 0 f = f + 1 Loop End If Next End Sub

早在99天前@轻舟上逆 跟雪儿点播了《童年》 这歌雪儿会 张口就来啊 可是 可是 这位寿星偏希望听雪儿唱英文版 雪儿哪有那才啊 硬着头皮答应了 可是一直学不会 三天前厚着脸面打报告“报告：那歌俺实在唱不了，咋办？ ” 那位倒好 上着贴吧 就是不理睬雪儿 555…… 您看着办吧 要不换首您估计着雪儿会唱的 下午就录 好吧 呵呵 生日快乐啊

想了很久都没想到，，

例如这个表，c列数字不用管。若在方框内每勾选一个，下面就会统计一个个数，勾选多少个，统计多少个。只统计个数！

写在前面，有感轻舟吧主帖子，特组织一贴。 下面我将一段一段贴出我的程序，我解决不了的地方我会提出，恳请高手赐教

我们的工作乃至生活越来越离不开EXCEL，越来越多的人认识到它的必要性，也自然而然提出了如何尽快掌握它的问题。下面说说我的一点个人见解。 用好EXCEL，逻辑思维能力不能太差，此乃先天条件。为什么有的人无论怎么刻苦努力，数学成绩始终上不去，不是他笨，只能说这是他的短板。而他写出的文章往往妙笔生花，因为他更擅长形像思维。 初学者，入门基础必不可少。如果从书中掌握，别问哪本基础教程更好，对你来说分别不大，闭着眼睛拿一

水帖

按照左边次数重复，重复次数为规定的次数一半取整

关键字查找

1、当A1取值为0--60，返回A1*15 当A1取值为61--70，返回900+（A1-60)*4 当A1取值为71--80，返回940+（A1-70)*5 当A1取值为81--90，返回990+（A1-80）*6 当A1取值为91以上，返回A1*25 2、遵循能不用IF函数就不用的原则，因此本题规定不能用IF函数写公式。 3、以公式字符数少者为优胜。取前三名，奖金额。。（正在向吧主申请中。稍后）。。

就是需要快速在B列中求出对应A列中某几行（行数不定）的和~~~ 求高手帮助~~~非常感激~~~急用~~~~

EXCEL吧快满1000页，即将迎来本吧第一个“千禧页”。 各位多留神，到1000页正好5万个主题时，看谁能截图留念。 还有“千禧贴”也截图留念，顺其自然，水贴不算，违者删除。

求教大侠，如何把一串既含有文字又有数字中的数字提取出来并求和，比如在一个单元格里面，内容是这样的“住宅：2308㎡，商业：1852㎡”，我是想把这两个数字提取出来并进行求和，怎么弄？主要有几千个这样的，自己手动太慢了的

A列为0或1两个数字，求A列中1的连续个数，并相乘起来 如图，1的连续个数为4，2，2，2 4*2*2*2=32

如图：按照条件（黄色区域第一行）用函数公式（不用VBA）实现文本字符的合并和引用。 由A1：D1转变成A9：E11的效果。 只能用一个公式右拉和下拉达到要求。

我们经常会做一些调查表,分发下去让员工或客户填写. 收集后从表中分析统计我们需要的数据. 闲来无事,编写了一个小工具给有这方面需要的朋友. ps:本工具只做了2种题型(单选/多选)

我公司最近被这个病毒扫荡，几乎感染了所有计算机。后来下了两个杀毒软件，疫情基本控制住，但仍有几台机反复感染，原因未明。 如果你是同病相连，我可以提供软件。 操作步骤： 第一个软件，压缩文件名为：setup.rar，解压后为setup.exe 双击setup.exe开始安装，安装完毕名称为：office病毒专杀。 双击“office病毒专杀”，出现对话框，此时显示专杀软件是2011.12.30版本 最好等它自动升级再执行全盘扫描，若升级失败，关闭，多点几次。升级提示在对

“0”活多变的公式与格式(24/10整理完成） http://club.excelhome.net/thread-614168-1-1.html 如果你问一个学前班或者一年级的小朋友，0表示什么？他会毫不犹豫的告诉你，0表示没有，比如草地上一只羊也没有，老师就叫我们用0表示。早上爸爸给我买了两个苹果，我吃了一个，弟弟也吃了一个，现在一个也没有，就用0表示。这样的例子小朋友还可以说得很多。 小朋友说的没错，0表示“没有”可能是0最早的意思吧，也就是0的本义。古时候的人最初完全没有数量

在A1依次输入1~1000之间任意数(只在A1输入),例如在A1依次输入710,115,260,600,90,850等,在B1显示 115,260,90三个数字的和(B1只计算0~500的数字）,在C1显示710,600,850的和(C1只计算501~1000的数字），如何 做？ —————————————————————————————————————— 〖做法〗 工具/选项/重新计算，勾选“反复操作”，“最多迭代次数”改为1，确定，然后： B1处输入： =IF(AND(CELL("address")="$A$1",A1<=500),A1+B1,B1) C1处输入： =IF(AND(CELL

四舍五入，很多人都会了，此贴要**各种特殊的四舍五入。

很多朋友在使用了vba强大的功能后,又被每次打开文件时的宏提示困扰. 有人为了不让提示出现,干脆将宏的安全性设为低,结果中毒后又苦不堪言. 今天给大家介绍一下微软给出的解决方案. 在宏安全性设置为中或高时,如何让打开使用了VBA功能的文件时不再出现宏提示.

将下面vba抄入 "模块" 在vba第2行输入要处理的区域 执行vba Sub XXX1() '删除设定区域内的重复字 Dim rng: Set rng = [b2:f9] '在这行设定处理区域 On Error Resume Next Dim ans: ans = MsgBox("确定删除这区域内的重复内容" & Chr(13) & Chr(13) _ & Chr(9) & ActiveSheet.Name & "!" & rng.Address(0, 0), vbYesNo, "温馨提示") If ans = 7 Then MsgBox "程序结束" Exit Sub End If Dim dic, cell, cv Set dic = CreateObject("Scripting.Dictionary") For Each cell In rng cv = cell.Value If cv = "/" Then GoTo 333 '设定例外字元 If dic.e

我也算是个excel 能手吧，有很长一段时间没从事过这方面工作了，不过不用挺浪费的，义务帮朋友们解答难题吧，不保证什么问题都能解答哦，亲们可以回贴留言，因现在准备要宝宝中，不会一直在电脑旁，不过会尽量抽时间回答各位的问题的

Excel 2003 没有公式可以按颜色加总，计数。 以下是vba自定函数，可以求加总，计数，平均数。 将以下vba载入 "模块" ，跟著关掉vba编辑窗口。 Private Function bycol(target As Range, sample As Range, xtype As String) Dim cell As Range, xsum, xcnt For Each cell In target If cell.Interior.ColorIndex <> sample(1).Interior.ColorIndex Then GoTo 888 If IsEmpty(cell) Then GoTo 888 If VarType(cell) <> 5 Then GoTo 888 xsum = xsum + cell.Value xcnt = xcnt + 1 888: Next If xtype Like "[Ss]" Then bycol = xsum ElseIf xtype Like "[Cc]" Then bycol = xcnt

一楼送给百度！

EXCEL 百问百答（续1）冯德平（网名：山野雪人） 《EXCEL 百问百答》这个主题已经1年，这一年来帖子达到了约1200篇，点击率了超过了 30000（绝对真实，没有用任何软件刷过的），收藏或转本贴的达24人次，随着贴子的增多 ，速度也受到一定的影响，现决定重新开一贴继续Excel百问百答： 纵观以前大家提的问题，觉得有必要在这里作一个说明： 1、发问者最好是一题一问，并且在发问前看一下以前有没有人问过这样的问题，以免重复。 2、本贴主要是关

问： 我想用一个判断语句,判断一个单元格的内容中包含某个字或词以确定其为某类型,如:有一个表的A3中单元格中的内容为"去北京出差",则经过判断"出差"一词来确定该条数据为出差类.A4单元格中的内容为"去深圳旅游",则通过判断"旅游"一词来确定该条数据为旅游类. 答： 可以用MACRO解决。代码如下（经过测试可用）： Sub Chuchai() Sheets("Sheet1").Select lastrow = [A65536].End(xlUp).Row'作用是寻找到本表格的最后一行    For i = 1 To lastrow If InStr(Cells(i, 1), "出差")

　　经过一段时间观察，大概揣度了一下“百度”添加名人堂成员的标准，首先，必须有精品主题贴；其次，有一定的吧龄；第三，发贴有一定数量。 　　这样的标准在本吧会出现奇怪现象，因为在本吧楼主一般都是提问题，体现水平的是回贴。如果本主题因为你的回贴被吧主设为精品，那精品算楼主的，说白了你是为他人做嫁（如果因此影响你的发贴积极性，那实非我所愿，希望高手们不要过多计较）。一开始有很多这种情况的ID被百度添加到名

a b c 红 02 02,03 红 03 绿 05 05 蓝 06 06,01,04 蓝 01 蓝 04 黄 07 07,08 黄 08 能否在C列中使用公式得到本文C列里列出的这种效果？