发布时间 : 星期五 文章《Excel问题集合》更新完毕开始阅读d70ccd2c7375a417866f8f3e
《Excel问题集合》
2. 改为行排列（每12行5列内容共12组，排为一行） 列1 列2 列3 列4 列5 列6 列7 列8 列9 列10 ??(60列)
原1-12行 1 2 3 4 5 1 2 3 4 5 ??(60列) /原13-24行 1 2 3 4 5 1 2 3 4 5 ??(60列) /原25-36行 1 2 3 4 5 1 2 3 4 5 ??(60列) /以下类推 ?
本人不会编写宏，让您见笑曾费劲手工移动录制了一个取2400行（每行5列内容）改列的宏。因原有工作表行不断增加，经常需要行改列作其它用途，录制的宏不能满足需要。烦请大家帮助写一自动循环取12行5列内容排列为一行的宏。 规律：
1. 1-12行1-5列内容排在第1行（第一行1-5列、第二行1-5列、类推，完成为60列） 2. 13-24行1-5列内容排在第2行（第13行1-5列、第14行1-5列、类推） 3. 25-36行1-5列内容排在第3行（第25行1-5列、第26行1-5列、类推） 4. 以下类推 ? 解答：Sub 转换() Dim numcol As Integer Dim numrow As Long Dim i As Long Dim x As Integer
Dim numperrow As Integer
numperrow = InputBox(\请输入每行要填的数据行的数目:\Range(\数据\
numrow = Selection.Rows.Count '数据区的行数 numcol = Selection.Columns.Count '数据区的列数 x = numperrow * numcol Range(\
For i = 1 To numrow '以数据的每一行为单位进行剪切 Range(\数据\ActiveSheet.Paste
Selection.Offset(, numcol).Select If (i Mod numperrow) Then '判断是否要换行 Else: Selection.Offset(1, -x).Select End If Next i End Sub
'本程序需要把要变换的数据命名为\数据\数据区的列数可以任意,不一定是5)方法:选中该区域,在名称框内输入\数据\即可,然后按程序要求输入每行要填的数据行的数目(如本例中的12)
如何给自动筛选中的自定义指定快捷键
解答：Sub 自动筛选() On Error GoTo xx
Selection.AutoFilter = True xx: End Sub
7
《Excel问题集合》
汇总问题
本人有以下一个问题需要解决，请诸位大虾指点迷津。 如下表：
A B C
1 50 采购 （采购汇总） / 2 60 工程 （工程汇总） / 3 80 工资 （工资汇总） / 4 100 税 （税汇总） / 5 70 采购 / 6 50 工资 / 7 60 工程 /. . . /请问：C1、C2、C3、C4中的公式如何设置？ 解答：方法1：如下表： A B C
1 50 采购 =countif(a1:a7,\采购\/ 2 60 工程 =countif(a1:a7,\工程\/ 3 80 工资 =countif(a1:a7,\工资\4 100 税 =countif(a1:a7,\税\5 70 采购 / 6 50 工资 / 7 60 工程 / . . . 方法2：用如下方法才对： A B C
1 50 采购 =SUMIF(B1:B7,B1,A1:A7)
2 60 工程 =SUMIF(B1:B7,B2,A1:A7) / 3 80 工资 =SUMIF(B1:B7,B3,A1:A7) / 4 100 税 =SUMIF(B1:B7,B4,A1:A7) / 5 70 采购 / 6 50 工资 / 7 60 工程
方法3：由于Ｂ栏属于数据表的一部分，可能会随时改变，故此最好把采购等项目名称抄到另外一个地方（Ｃ栏）。
A B C D
1 50 采购 采购 =SUMIF(B$1:B$7,C1,A$1:A$7) / 2 60 工程 工程 =SUMIF(B$1:B$7,C2,A$1:A$7) / 3 80 工资 工资 =SUMIF(B$1:B$7,C3,A$1:A$7) / 4 100 税 税 =SUMIF(B$1:B$7,C4,A$1:A$7) / 5 70 采购 / 6 50 工资 / 7 60 工程 /还有，记着要适当地使用绝对参照地址 (Absolute referencing)。 方法4：
A B C D
1 50 采购 采购 =SUMIF(B:B,C1,A:A) / 2 60 工程 工程 =SUMIF(B:B,C2,A:A) / 3 80 工资 工资 =SUMIF(B:B,C3,A:A) / 4 100 税 税 =SUMIF(B:B,C4,A1:A) / 5 70 采购 / 6 50 工资 / 7 60 工
统计包含某个字符的个数
我想编的公式是： a/[84 - （b×4）] 。其中a是一个数值，小于或等于84；b是包含字符C的单元格的个数；C是一个符号。这个公式的关键是要统计出包含字符C的单元格的个数。 解答：方法1：=a/(84-countif(b,\
问题：我试了一下，不能运行，我想是因为没有指定出现“c”的单元格的范围。比如说“c”在D2—D30中随机出现，在上述公式中要先统计出出现“c”的单元格的个数。这个公式如何做？ 解答： =a/(84-COUNTIF(D3:D30,\
如何用if函数判断,如果a1单元格大于0,b1单元格为0是错误,为非0是正确
解答：1：if(and(a<=0,b=0),\错误\正确\
2：=if(a1>0,if(b1=0,\错误\正确\条件一不满足\
8
《Excel问题集合》
我改进以下一个验证先进先出法公式
=IF(B3 B3至B7为输入数量,C3至C7为输入单价,C1为输入结余数量,E1为输出平均单价,即上面公式 解答：公式太复杂，而且受限制。 把A列利用起来，a3=SUM(B3:$B$7)，拖至7行（若为X行，则=SUM(B3:$B$X，下拖），A列数据为先进先出的累计数量（待Match的结存数量），=MATCH(C1,A3:A7,-1)找到结存批次。然后计算结存平均单价及发出平均单价。 of range\ 有无简结一点的公式求如:a1*b1+a2*b2+b3*b3...的和 解答：在B4中输入公式\按CTRL+SHIFT+ENTER结束. 或：=SUMPRODUCT(A1:A10,B1:B10) 工作中须将表格中大量的日期同时转换为中英文的星期几 解答：转成英文： =TEXT(WEEKDAY(A1),\转成中文： =TEXT(WEEKDAY(A1),\ 我想查询表格中的某一列编号中有221这一编号时，引用其同行某列的数值 我现用 VLOOKUP（221，A1：E33，5，0）这一公式引用其同行第5列的数值时可以使用，但当查询到没有 221 时，想使其返回值为“0”不知如何处理。 解答：=if(iserror(vlookup())=true,0,vlookup()) 如何给自定义函数写上帮助信信息和参数说明 解答：目前自定义函数是不能做到完全象内置函数一样的。但是可以给它添加一段说明。 打开带有自定义函数的工作簿-〉按快捷键 Alt+F8—〉在光标处输入函数名字—〉单击“选项”—〉输入说明文字。 如何在EXCEL中统计一个数在哪一行出现 解答： {=IF(ISERROR(SMALL(IF(R1C1:R16C1=R1C2,ROW(R1C1:R16C1),\1C2,ROW(R1C1:R16C1),\ 在SHEET51的A1做公式加总SHEET1:SHEET50的A1怎么做啊 解答：=SUM(Sheet1:Sheet50!A1) 工作表间的数据输入 我想在sheet1中输入数据，例如我先在A1中输入1，确定是输入第一个单位的数据，然后从A2开始是第 9 《Excel问题集合》 一个单位的数据。输入完成后，在SHEET2中的第一个单位数据就显示出来了，我的问题是，我想用SHEET1表再输入第二个单位的数据，但是这时SHEET2中第一个单位的数据没有了，显示是第二个单位的数据，如何才能保存第一个单位的数据，又能用SHEET1再输入第二个、第三个单位的数据？ 解答：=IF(户汇总!$B$3<>1,\户汇总!B5) 请问如何用公式达到我想要的结果 A列 B列 C列 1 a 2 a 3 a 1 b 4 b 我想当B2=B3，而且A2=1时，C2的值为OK，请问该如何写这个公式？ 解答：=IF(AND(B2=B3,A2=1),\ 一个页面在打印一次后是否能在上面的某一单元格数值上加1 解答：可使用 Workbook 的 Before_Print 事件. 按 [Alt + F11] 进入 VB Editor, 左侧会有一个 [ThisWorkbook], (如果没有, 按 [Ctrl+R] 叫出) 在 [ThisWorkbook] 快按两下, 贴上程序 -- Private Sub Workbook_BeforePrint(Cancel As Boolean) [A1] = [A1] + 1 End Sub 不用VBA，用EXCEL语句的IF函数，如何使用其条件关系 假如，现在A1，A2，A3;B1,B2,B3 只要B1 不为空B1＜＞“”，那么B2＝A2 B3＝A3 如何使用其IF语句来实现？？ 解答：B2=IF($B$1<>\B3=IF($B$1<>\ 求和问题 对于工作表中的数据库,随便举一例: 编 号 数 量1 数 量2 01 180 80 02 190 90 01 170 80 01 160 80 我如何计算(数量1-数量2)值的总和.并且必须满足编号相同时, 只能减一次 数量2. 即要计算成: (180+170+160-80)+(190-90). 注: 编号相同时,数量2的值一定相同. 解答：设表格在A1:C5中 =SUMIF(A2:A5）-INDEX(C1:C5,MATCH(\ 10