怎样才能快速算出的相关问题.docx

怎样才能快速算出的相关问题(Excel)有这样一个问题：年终结帐：要将12个月的账分成二笔来结，（假定数据如下）假定一笔为300或最接近300，剩余的为另一笔。怎样才能快速算出？ 1月 56.6 、2月 12.1 、3月 54.3 、4月 87.8 、5月 43.2 、6月 61.4 、7月 32.7 、8月 27.5 、9月 38.2 、10月 11.1 、11月 36.9 、12月 29.4 、总数 491.2 A: 我给出将12个月的账分成若干份（即是未知的）结，条件还一样。 这个弄明白了，你想要的自然就会做出了。 E F G 1 1月 56.6 =IF(F1=300,F1,$F$1) 2 2月 12.1 =IF(ISNUMBER(G1),$F$ & ROW(G1),IF(SUM(INDIRECT(G1 & :F & ROW(G2)300,SUM(INDIRECT(G1 & :F & ROW(G1),G1) 3 3月 54.3 =IF(ISNUMBER(G2),$F$ & ROW(G2),IF(SUM(INDIRECT(G2 & :F & ROW(G3)300,SUM(INDIRECT(G2 & :F & ROW(G2),G2) 4 4月 87.8 =IF(ISNUMBER(G3),$F$ & ROW(G3),IF(SUM(INDIRECT(G3 & :F & ROW(G4)300,SUM(INDIRECT(G3 & :F & ROW(G3),G3) 5 5月 43.2 =IF(ISNUMBER(G4),$F$ & ROW(G4),IF(SUM(INDIRECT(G4 & :F & ROW(G5)300,SUM(INDIRECT(G4 & :F & ROW(G4),G4) 6 6月 61.4 =IF(ISNUMBER(G5),$F$ & ROW(G5),IF(SUM(INDIRECT(G5 & :F & ROW(G6)300,SUM(INDIRECT(G5 & :F & ROW(G5),G5) 7 7月 32.7 =IF(ISNUMBER(G6),$F$ & ROW(G6),IF(SUM(INDIRECT(G6 & :F & ROW(G7)300,SUM(INDIRECT(G6 & :F & ROW(G6),G6) 8 8月 27.5 =IF(ISNUMBER(G7),$F$ & ROW(G7),IF(SUM(INDIRECT(G7 & :F & ROW(G8)300,SUM(INDIRECT(G7 & :F & ROW(G7),G7) 9 9月 38.2 =IF(ISNUMBER(G8),$F$ & ROW(G8),IF(SUM(INDIRECT(G8 & :F & ROW(G9)300,SUM(INDIRECT(G8 & :F & ROW(G8),G8) 10 10月 200 =IF(ISNUMBER(G9),$F$ & ROW(G9),IF(SUM(INDIRECT(G9 & :F & ROW(G10)300,SUM(INDIRECT(G9 & :F & ROW(G9),G9) 11 11月 36.9 =IF(ISNUMBER(G10),$F$ & ROW(G10),IF(SUM(INDIRECT(G10 & :F & ROW(G11)300,SUM(INDIRECT(G10 & :F & ROW(G10),G10) 12 12月 29.4 =IF(ISNUMBER(G11),$F$ & ROW(G11),IF(SUM(INDIRECT(G11 & :F & ROW(G12)300,SUM(INDIRECT(G11 & :F & ROW(G11),G11) 13 =IF(ISNUMBER(G12),SUM(INDIRECT(G12 & :F & ROW(G13) 14 总数 491.2 最后结果为： E F G 1 1月 56.6 $F$1/2 2月 12.1 $F$1 /3 3月 54.3 $F$1/4 4月 87.8 $F$1/5 5月 43.2 $F$1 /6 6月 61.4 254 /7 7月 32.7 $F$6 /8 8月 27.5 $F$6 /9 9月 38.2 $F$6 /10 10月 200 159.8 /11 11月 36.9 $F$10 /12 12月 29.4 $F$10 /13 266.3 /14 总数 491.2 /说明：G6 为 F1:F5 之和、G10 为 F6:F9 之和、G1 为 F10:F12 之和。&的用法学习(Excel)日期：2010-12-31来源： 作者：字体：大 中 小 有E44单元格，我希望 总计：=SUM(E45:E49) 就是想让它经过自动求和后在一个单元格内显示总计：120 。解答：有多种方法实现，详细如下：1、=总计：&sum(e45:e49)2、把E44格式设为总计:#0.00;总计:-#0.00;总计:0.00;3、将E44单元格格式自定义为 总计：0.000 即可,方便对E44的引用计算4、=CONCATENATE(合计：,SUM(e45:e49)有5行数据在每行上面个插入1行(Excel)解答：1、在最左边插入一列，然后输入1、2、3、4、5、1、2、3、4、5，并以此列进行排序，在第一行上面再插入一行，删除刚刚插入的列。2、使用Ctrl+鼠标一行一行选定，然后插入行。3、sub 插入行（）for i=1 to 6if cells(i,1).value Cells(i + 1, 1) And Cells(i, 1) ) ThenRows(i + 1).Insertend ifnext iend sub 检查一张表里是否有漏重的数字的相关问题(Excel)答：漏值：=IF(SUM(R1C1:R10C4=)*1)0,有漏值,无漏值)重复值：=SUM(SUM(漏值!R1C1:R10C4=漏值!RC)*1)=IF(MAX(R1C1:R10C4)1,有重复值,无重复值)使用下面公式更方便：找重复值-=IF(SUM(COUNTIF(R1C1:R10C4,R1C1:R10C4)1)*1)1,有重复值,无重复值)找 漏 值-=IF(SUM(R1C1:R10C4=)*1)0,有漏值,无漏值)注意：这两个公式均为数组，输入时应同时按Ctrl+Shift+Enter。将单元格中的公式转换为数值的操作(Excel)选中公式的一部分，按F9键统计数据问题的事例(Excel)统计50个数据中大于某个值的数据个数，（这个值是在使用时才输入某个单元格的），请问用什么函数，如何实现如数据单元格为A1：E10，值的单元格为A11。答：1、使用下面的数组公式： =SUM(IF($A$1:$E$10$A$11,1)2、输入以下函数： =COUNTIF(A1：E10,&A11)关于条件求和问题解决(Excel)有A，B，C，三列数据，如果A列符合要求，求B1*C1+B2*C2+.?答：使用数组公式： =SUM(R2C1:R13C1=ab)*(R2C2:R13C2)*(R2C3:R13C3)Excel里关于条件乖积的求和问题A列为部门名称，B列为姓名，C列为日工资额(如20.00)，D列为月出勤天数，我想在另一汇总表中汇总出各部门员工月工资总额(即：相应部门对应的C*D之和)。请问如何解决？解答：1、=SUM(A4:A10=甲部门)*(C4:C13)*(D4:D13)假设你的a列存放部门名称，你的b列存放员工姓名，C列存放日工资，D列存放天数。计算“甲部门”的工资总额。注意，这是数组公式，输入完毕后按ctrl+shift+回车问：我试着把区域引用改为整列，出现错误，请指点!=SUM(date!A:A=甲部门)*(date!E:E)*(date!F:F)答：经试验，不能用整列方式，你可以适当的调整一个比较大的区域如a2:a100 a1为标题行因为如果参与计算的e列和f列区域出现文本，也会发生错误。一定要把计算区域的标题行去掉，并且保证不再数值区域出现文本。=SUM(date!A2:A100=甲部门)*(date!C2:C100)*(date!D2:D100)这个公式没有错误显示隐藏的工作表的相关问题一个EXCEL程序，里面只有2个SHEET，但是见到其中一个SHEET还引用了本文件另外一个工作表的内容，用ALT+F11打开VB编辑器又可以看到那个隐藏了的工作表， 请问怎么能看到那工作表呢？答：Sheets(name_of_sheet).Visible = True如何筛选出含201的事例问题？县一高2014555 /便民201号 /县城301号/201414441/301745555/20145122 /柏良201 /柏良301答：假设你的资料在B列，且起始行为第四行，即B4起始单元格，终止与11行处，即B11，则在A列输入公式IF(ISERROR(FIND(201,B4),A3,A3+1),然后在D列输入顺序数字，比如1到10，在E列输入公式vlookup(d4,$a$4:$b$11,2,12)。注意A3为0。或：自动筛选-单击下拉列表-custom(自定义)-在条件中选包含,在右边的文字框输入201-OK两个日期相差的月份数的计算(Excel)使用Datedif(日期1，日期2，m)函数。Excel里怎么用函数实现连续相加？=sum(B1+B2+B5+B8+B11+B14+B17+B20) 也就是前两个是连续相加，后边的是每隔3个相加，不知有没有简单的公式。答：=SUM(MOD(ROW(B1:B20),3)=2)*B1:B20)+B1计算结果为负值的显示为红色取整并在数字后面加上“仟元“把单元格格式改为#,#0仟元;红色-#,#0仟元如果不要负号可以写成#,#0仟元;红色#,#0仟元循环引用的相关问题(Excel)vba中输入公式，我想用变量代替RC地址，以便循环操作，如何做到？比如：在Range(am6).FormulaR1C1 = =SUM(R-5C:R-5C10)中，如何才能用变量x来代替其中的10或-5等数字？ 解答：=SUM(R & x & C & y & :R & xx & C & yy & ) 如何才能有条件的引用某一区的内容的问题事例(Excel)怎样才能引用符合条件的某一区域的内容。如下： ABC 9-119-15 /9-229-16 /9-229-17 /9-219-18 /9-429-18 请问，用什么方法才能在另外的单元格中引用同时符合A列中“9-2”和B列中“2”的C列的内容。解答：先判断个数，再列出符合的数据：=IF(ROW()-ROW($A$18)+1SUM($A$2:$A$7=$B$16)*($B$2:$B$7=$C$16),TEXT(SMALL(IF(IF($A$2:$A$7=$B$16,$B$2:$B$7,)=$C$16,$C$2:$C$7,),ROW($A1),m月d日)引用同一工作薄中另外一工作表的单元格的技巧(Excel)= Worksheets(工作表名称).Cells(1, 1) 如何实行列互换？Transpose函数 或选中一行或一列，复制，选择性粘贴转置。 如何解除officeXP 50 次限制？1、 首先使用下面这个序号来安装Office XP。 BMV8D-G272X-MHMXW-4DY9G-M8YTQ 2、安装后，启动新建一个Word文档，程序会提示你激活，不管它！关闭Word。 3、打开注册表编辑器REGEDIT.exe，进入到下面的子键里面： HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionInstallerProducts4080820900063D11C8EF00054038389CAlways Installed 4、把右边的这个DWORD类型的键删除：Usage=dword:2adb0001 5、在右边新建这样一个字符串型的键：Usage，将其值改为AlwaysInstalled 即： Usage=AlwaysInstalled 6、最后使用法国人写的字节数为12,800的Crack.exe来破解Office XP后，即大功告成！ 我破解后，打开Word 70次，打开Excel 60次后，还是能够新建文档、表格，而且可以顺利保存。 无论Win98或Win2000操作系统我都成功了,且已运行了200次以上小写数字转换成人民币大写的12种方法(Excel)日期：2010-12-31来源： 作者：字体：大 中 小 方法1、Function UNumber(LNumber As Double)Dim NumberStr$Dim NumberLen%Dim DotLoc1%Dim DotLoc2%Dim NumberStr1$Dim NumberStr2$If LNumber = 0 ThenUNumber = 零元整Exit FunctionEnd IfNumberStr = Application.WorksheetFunction.Text(LNumber, DBnum2)NumberLen = Len(NumberStr)DotLoc1 = InStr(1, NumberStr, ., vbTextCompare)DotLoc2 = NumberLen - DotLoc1If DotLoc1 = 0 ThenNumberStr = NumberStr & 元整ElseNumberStr = Replace(NumberStr, ., 元)If DotLoc2 = 2 ThenNumberStr = NumberStr & 分If Mid(NumberStr, DotLoc1 + 1, 1) 零 ThenNumberStr1 = Mid(NumberStr, 1, DotLoc1 + 1) & 角NumberStr2 = Right(NumberStr, 2)NumberStr = NumberStr1 & NumberStr2End IfElseNumberStr = NumberStr & 角整End IfEnd IfOn Error Resume NextUNumber = Replace(NumberStr, 零元, )End Function方法2、=IF(TRUNC(H16)=H16,TEXT(H16,DBNum2G/通用格式)&元整,TEXT(TRUNC(H16),DBNum2G/通用格式&元)&IF(AND(TRUNC(H16)H16,RIGHT(TRUNC(H16*10)0),TEXT(TRUNC(MOD(H16*10,10),DBNum2G/通用格式)&角,)&IF(AND(RIGHT(TRUNC(H16*10)=0,TRUNC(H16)H16),零,)&IF(TRUNC(H16*10)H16,TRUNC(H16*10)=H16*10), 整,)方法3、=IF(F10=0,CONCATENATE(IF(INT(F10)=0,TEXT(INT(F10),DBNum2G/通用格式元),IF(INT(MID(RIGHT(FIXED(F10,2,1),2),1,1)=0,IF(INT(MID(RIGHT(FIXED(F10,2,1),1),1,1)=0,IF(INT(F10)=0,零),TEXT(INT(MID(RIGHT(FIXED(F10,2,1),2),1,1),DBNum2G/通用格式角),IF(INT(MID(RIGHT(FIXED(F10,2,1),1),1,1)=0,整,TEXT(INT(MID(RIGHT(FIXED(F10,2,1),1),1,1),DBNum2G/通用格式分)方法4、人民币大写的函数公式，可正负，最多两位小数。=IF(A10,负,)&IF(TRUNC(A1)=A1,TEXT(IF(A10,-A1,A1),DBNum2)&元整,IF(TRUNC(A1*10)=A1*10,TEXT(TRUNC(IF(A10,-A1,A1),DBNum2)&元&TEXT(RIGHT(A1),DBNum2)&角整,TEXT(TRUNC(A1),DBNum2)&元&IF(ISNUMBER(FIND(.0,A1),零,TEXT(LEFT(RIGHT(A1,2),DBNum2)&角)&TEXT(RIGHT(A1),DBNum2)&分)方法5修改一下4：根据剑魔兄的测试，发现有一个问题，如-100.05，现修正如下：=IF(A10,负,)&IF(TRUNC(A1)=A1,TEXT(IF(A10,-A1,A1),DBNum2)&元整,IF(TRUNC(A1*10)=A1*10,TEXT(TRUNC(IF(A10,-A1,A1),DBNum2)&元&TEXT(RIGHT(A1),DBNum2)&角整,TEXT(TRUNC(IF(A10,-A1,A1),DBNum2)&元&IF(ISNUMBER(FIND(.0,A1),零,TEXT(LEFT(RIGHT(A1,2),DBNum2)&角)&TEXT(RIGHT(A1),DBNum2)&分)方法6=IF(A10,负,)&TEXT(TRUNC(ABS(A1),DBNum2G/通用格式)&元&IF(ROUND(A1,3)=ROUND(A1,),整,TEXT(RIGHT(TRUNC(A1*10),1),DBNum2G/通用格式)&角&IF(ROUND(A1,3)=ROUND(A1,1),整,TEXT(RIGHT(ROUND(A1*100),),1),DBNum2G/通用格式)&分)方法7无条件舍去： =CONCATENATE(IF(A10,负,),TEXT(IF(TRUNC(A1)=0,零,TRUNC(ABS(A1),DBNum2)&元,IF(OR(AND(ABS(A1)0.1,TRUNC(A1)=A1),RIGHT(INT(ABS(A1)*100),2)=00),TEXT(RIGHT(TRUNC(A1*10),1),DBNum2),IF(RIGHT(TRUNC(A1*10),1)=0,角),IF(OR(TRUNC(A1*10)-(A1*10)=0,RIGHT(TRUNC(A1*100),1)=0),整,TEXT(RIGHT(TRUNC(A1*100),1),DBNum2)&分)小数点后两位四舍五入: =CONCATENATE(IF(A10,负,),TEXT(IF(TRUNC(ROUND(A1,2)=0,零,TRUNC(ABS(ROUND(A1,2),DBNum2)&元,IF(TRUNC(ROUND(A1,2)=ROUND(A1,2),TEXT(RIGHT(TRUNC(ROUND(A1,2)*10),1),DBNum2),IF(RIGHT(TRUNC(ROUND(A1,2)*10),1)=0,角),IF(OR(TRUNC(ROUND(A1,2)*10)-(ROUND(A1,2)*10)=0,RIGHT(ROUND(A1,2),1)=0,TRUNC(ROUND(A1,2)=ROUND(A1,2),整,TEXT(RIGHT(ROUND(A1,2),1),DBNum2)&分)方法8无条件舍去： =IF(A10,负,)&SUBSTITUTE(TEXT(TRUNC(A1),DBNum2)&元&IF(ISNUMBER(FIND(.,TRUNC(A1,2),TEXT(RIGHT(TRUNC(A1*10),DBNum2)&IF(ISNUMBER(FIND(.0,A1),角),)&IF(LEFT(RIGHT(TRUNC(A1,2),3),1)=.,TEXT(RIGHT(TRUNC(A1,2),DBNum2)&分,整),-,)小数点后两位四舍五入: =IF(A10,负,)&SUBSTITUTE(TEXT(TRUNC(ROUND(A1,2),DBNum2)&元&IF(ISNUMBER(FIND(.,ROUND(A1,2),TEXT(RIGHT(TRUNC(ROUND(A1,2)*10),DBNum2)&IF(ISNUMBER(FIND(.0,ROUND(A1,2),角),)&IF(LEFT(RIGHT(TRUNC(ROUND(A1,2),2),3),1)=.,TEXT(RIGHT(ROUND(A1,2),DBNum2)&分,整),-,)方法9再简化如后，请大家试试。无条件舍去：=IF(A10,负,)&TEXT(TRUNC(ABS(A1),DBNum2)&元&IF(ISERR(FIND(.,TRUNC(A1,2),TEXT(RIGHT(TRUNC(A1*10),DBNum2)&IF(RIGHT(TRUNC(A1*10)=0,角)&IF(LEFT(RIGHT(TRUNC(A1,2),3)=.,TEXT(RIGHT(TRUNC(A1,2),DBNum2)&分,整)小数点后两位四舍五入:=IF(A10,负,)&TEXT(TRUNC(ABS(ROUND(A1,2),DBNum2)&元&IF(ISERR(FIND(.,ROUND(A1,2),TEXT(RIGHT(TRUNC(ROUND(A1,2)*10),DBNum2)&IF(ISERR(FIND(.0,TEXT(A1,0.00),角,)&IF(LEFT(RIGHT(ROUND(A1,2),3)=.,TEXT(RIGHT(ROUND(A1,2),DBNum2)&分,整)方法10(好)Function RMB_DX(money As Variant)Dim m1 As Long, n1 As Long, n2 As Integer, n3 As Integerm1 = Application.WorksheetFunction.Round(money * 100, 0)n1 = Int(m1 / 100)n2 = Int(m1 / 10) - n1 * 10n3 = m1 - n1 * 100 - n2 * 10If n3 = 0 ThenRMB_DX = 整ElseRMB_DX = Application.WorksheetFunction.Text(n3, DBnum2) & 分End IfIf n2 = 0 ThenIf n1 0 And n3 0 Then RMB_DX = 零 & RMB_DXElseRMB_DX = Application.WorksheetFunction.Text(n2, DBnum2) & 角 & RMB_DXEnd IfIf n1 0 Or m1 = 0 ThenRMB_DX = Application.WorksheetFunction.Text(n1, DBnum2) & 元 & RMB_DXEnd IfEnd Function方法11unction rmbdx(value, Optional m = 0)支持负数,支持小数点后的第三位数是否进行四舍五入处理默认参数为0,即不将小数点后的第三位数进行四舍五入处理redwin增改 2002-10-11Application.Volatile TrueOn Error Resume NextDim aIf value = 1 Thenstrrmbdx = strrmbdxElsestrrmbdx = End IfstrBal = Str(value)If Int(value) value ThenstrLastvalue = Left(Right(strBal, 2), 1)If strLastvalue = . ThenstrLastvalue = Right(strBal, 1)strLast = Application.WorksheetFunction.Text(strLastvalue, DBNum2) & 角整ElseIf strLastvalue = 0 And strLastvalue 0 ThenstrLast = 零Else防止出现零角几分的bug!If strrmbdx = And strLastvalue = 0 ThenstrLast = Application.WorksheetFunction.Text(strLastvalue, DBNum2) & 角strLast = ElseIf strrmbdx And strLastvalue = 0 ThenstrLast = 零ElsestrLast = Application.WorksheetFunction.Text(strLastvalue, DBNum2) & 角End IfEnd IfEnd IfstrLastvalue = Right(strBal, 1)If strLastvalue = 0 ThenstrLast = 整ElsestrLast = strLast & Application.WorksheetFunction.Text(strLastvalue, DBNum2) & 分End IfEnd Ifstrrmbdx = strrmbdx & strLastElsestrrmbdx = strrmbdx & 整End Ifrmbdx = a & strrmbdxEnd Function方法12=IF(ISTEXT(C2),人民币：&TEXT(INT(C2),dbnum2)&元&IF(INT(C2*10)-INT(C2)*10=0,TEXT(INT(C2*10)-INT(C2)*10,dbnum2)&角)&IF(INT(C2*100)-INT(C2*10)*10=0,整,TEXT(INT(C2*100)-INT(C2*10)*10,dbnum2)&分)还有很多方法编者没有收集。中国式的排名 函数应用RANK 是个排名函数 但有一个问题象上面有两个100分 也就是两并列第一 排名就从第三名开始没有第二名 也许这个美国式的排名 中国式的排名 前面有两个一样的分数并列第一后是 第二名 怎样用函数实现.解答：在B3中复制如下的数组公式，然后往右复制：=SUM(IF(B1=LARGE(IF(LARGE($B$1:$H$1,COLUMN($A$1:$G$1)=IF(ISERROR(LARGE($C$1:$I$1,COLUMN($A$1:$G$1),0,LARGE($C$1:$I$1,COLUMN($A$1:$G$1),0,LARGE($B$1:$H$1,COLUMN($A$1:$G$1),COLUMN($A$1:$G$1),COLUMN($A$1:$G$1),0)也可换个方式不用数组，在B3中复制如下的公式，然后往右复制：=RANK(B1,$B1:$H1)+COUNTIF($B$1:B1,B1)-1当做日报表累计数自动加(Excel)当做日报表时,怎样让月累计数自动加上? 就是要月累计自动加上今天的当日收入数,今天只输入当日收入,我想用用前一天的月累计数加上今天的当日收入数为今天的月累计数.情况是一月一个工作薄,每一个工作薄下30个工作表,用每一天的日期为报表名.我想把月累计的公式写为 =sheet17!c5 中的 17 用 day(now()-1 的值去取代他,该怎么办呢? 以下为报表格式,谢谢大家帮我想一想. 部门-当日收入 -月累计 团队收入 12.12 123.00 /写字间收入 147,258.00 147.147/房内吧收入 147,258,369.00 解答：=SUM(Sheet1:Sheet30!C5) 在你需要月汇总的单元格填入上述公式，其作用是将工作表1到工作表30的“C5”单元格的值全部累加起来，而“C5”单元格应填入当日的收入数。 又问：月累计的公式写为 =sheet17!c5 中的 17 用 day(now()-1 的值去取代他,该怎么办呢? ” 答：用公式： =INDIRECT(ADDRESS(1,1,1,1,sheet&DAY(NOW()-1)快速输入大量含小数点的数字日期：2011-01-01来源： 作者：字体：大 中 小 在Excel XP工作表中输入大量的带有小数位的数字时，按照普通的输入方法，我们可能