《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:由于B栏属于数据表的一部分,可能会随时改变,故此最好把采购等项目名称抄到另外一个地方(C栏)。
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
相关推荐: