发布时间 : 2024/6/26 12:37:48 星期三 文章Excel实际应用范例更新完毕开始阅读a01275e6524de518964b7dc9

解答：if(a1=1,sheet1!a1,if(a1=2,sheet2!a1,if(a1=3,sheet3!a1)))

能不能做到让符合条件的单元格所在的列自动隐藏

比如说第一行的第一个单元格=1那么就自动隐藏第一行？ 解答用vba。 Sub 隐藏()

for i=1 to x x--行号

if sheets(1).cells(i,1)=1 then Rows(i).Select

Selection.EntireRow.Hidden = True end if next i

直接输入一组数如“20020213101235”后，自动转换成日期格式

解答：A1中输入，B1中转换。。B1=Left(A1,4)&\—\—\\

把sheet1到sheet200的a19这一格，依序贴到sheet0的a1到a200

解答：方法一：公式

可在A1储存格输入以下公式，再行拖曳至A200即可。 =INDIRECT(\方法二：VBA Sub Macro1() '选择工作表 sheet0 Sheets(\For r = 1 To 200

'将工作表 1~200 里面的 D17 复制到 sheet0 的 A1~A200 Cells(r, 1) = Worksheets(CStr(r)).Range(\On Error Resume Next Next r End Sub

A列记录几百条，如何对这列计数(重复的数值不计)

我只能做到新建一列，B列，然后第一个单元格countif（$A$1:$A$100,A1)，然后拖动到全部新列。最后在新列下面用sumif(B1:B100,1) 谁有更好地方法？

解答：1、试试这个：{=SUM(IF(COUNTIF(A1:A100,A1:A100)=1,1,0))}

2、操作：①A1作公式栏，A2作字段名栏，如原该两栏有数插入2行。在A1输入：=SUBTOTAL(3,A$2:A$5000) 统计记录数或：=SUBTOTAL(9,A$2:A$5000) 数据汇总 ②选：数据-->筛选-->高级筛选-->选择不重复的记录。 ③复原选：数据-->筛选-->高级筛选-->全部显示。

3、试试这个： {=SUM(IF($A$1:$A$100=\

4、请解释一下,因为我单独使用COUNTIF($A$1:$A$100,$A$1:$A$100)数组公式时,它仅仅计算第一个也就是A1的个数.

15

5、我发觉你的这办法，只对唯一的数据进行了计数，而重复的数据全部未计入（是不是应该将重复的数据也计上一个？）打哈欠的“{=SUM(IF(COUNTIF(A1:A100,A1:A100)=1,1,0))}”也是这样。 TO 剑魔版主你公式中的“1/(COUNTIF($A$1:$A$100,$A$1:$A$100))”像是一个倒数，怎么理解？ 6、用倒数是这个意思:如果只出现一次，数组中的相应项统计为1，其倒数为1，Sum统计计1 如果出现 N 次，其倒数为1/N，出现了N次，求和就是Nx1/N，最后Sum统计就只计1。

如果有文本串\，我想取第三、四的值\，应该用什么函数

解答：1、=mid(\

2、如果你的A1中的数值一定包含后四位阿拉伯数字的话，你可以用这个： =LEFT(RIGHT(A1,4),2)=LEFT(RIGHT(A1,4),2)=LEFT(RIGHT(A1,4),2)

3、我的实际工作中的数据还没有如此规律，该怎么办？如：A1=\，A2=\，A1取\，A2取\。能否用一个函数去掉A1中\，然后都是从阿拉伯数字的第一位开始取两位数？

4、如果阿拉伯数字数量不定，但是以2个英文字母开头(或无英文字母)，可以用以下公式：(设数据在A1中) =IF(ISNUMBER(VALUE(A1)),MID(A1,1,2),MID(A1,3,2)) 5、数组公式：

{=MID(A1,MIN(IF(EXACT(LOWER(MID(A1,ROW(INDIRECT(\(MID(A1,ROW(INDIRECT(\)}

怎样将文字和数字分2列显示

中行41785015110010091252、青泥支行200303004500696、卡伦办事处801017651、站前支行0709000309221004055 、金州支行400301459508091

解答：1、用函数可以解决。 假如A1 为 中行41785015110010091252

则B1=LEFT(A1,(SEARCHB(\、C1=MID(A1,LEN(B1)+1,50)、随后将B1、C1的公式往下复制。 2、Sub 分列()

For Each jk In Sheet1.UsedRange.Columns(1).Cells For i = 1 To Len(jk.Formula)

If Abs(Asc(Mid(jk.Formula, i, 1))) < 256 Then

Sheet1.Cells(jk.Row, (jk.Column + 1)).Formula = \1))

jk.Formula = Left(jk.Formula, (i - 1)) Exit For End If Next i Next End Sub

3、是否将Asc(Mid(jk.Formula, i, 1)) < 256 改成 47 < Asc(Mid(jk.Formula, i, 1)) < 58 会更好，因为它只将数字抽出，如果数字前有英文字的话将抽往数字列。 4、我看帮助中instr函数不错 配合循环速度应快些

500个不连续的数之和的求法

我有一个表格，有一列数据是以6 个单元格为一个单位做一次小计，我在小计中加入了公式

16

但是我还想求一下这个小计的总合，我想加入一个公式，但是我有SUM到了50多个时就加不进去了，用加号连加也不行，不知这个问题怎么解决 解答：用SubTotal()解决即可

如何使输入的英文单词第一个字母变成大写

解答：Private Sub Worksheet_Change(ByVal Target As Range) Target.Value = Application.WorksheetFunction.Proper(Target.Text) End Sub

在一个表中有两列日期型数字请问如何在第三列中得到其差(两日期间的天数)

解答：=DATEDIF(A1,B1,\

问：我用了datedif发现一个问题 、即当A列B列时出错了 、请问用什么办法解决

答：=IF(A1>B1,DATEDIF(B1,A1,\

重要的EXCEL文件坏了(文件带密码)有没有EXCEL修复工具

解答：Excel 2000

数据>>取得外部数据>>新增数据库查询>>Excel File*>>找到档案>> [选项]勾选所有选项>> 会找到所有未命名[区块]如Sheet1$ >>找到字段>>其它跟着查询精灵导引一步一步作 此中间层组件叫作Microsoft Query 可以用来拯救[毁损档案]

只要求简单的把数据从分表直接追加到总表

解答：你可以用Lookup,vlookup等函数。

A1中输入11:22:22 要求每间隔一秒刷新一次

解答： sub mytime range(\

Application.OnTime Now + TimeValue(\end sub

怎样用函数来显示某月的最后一天是几号

答：= DAY(DATE(年份,月份+1,1)-1)

如何用excel求解联立方程

x-x(7/y)^z=68 x-x(20/y)^z=61 x-x(30/y)^z=38

解答：这是一个指数函数的联列方程。步骤如下 1、令X/Y=W 则有 X-(7W)^z=68

17

X-(20W)^Z=61 X-(30W)^Z=38 2、消去X (20^Z-7^Z)W^Z=7 (30^Z-20^Z)W^Z=23 3、消去W

(30^Z-20^Z)/(20^Z-7^Z)=23/7 由此求得Z=3.542899 x=68.173955 y=781.81960

请问如何在函数中同时使用两个条件

例:在IF同时使用条件B1>0和B1<10 解答：and(B1>0,B1<10)

用TRIM把“中 心 是”中间的空格去掉

解答：用SUBSTITUDE（）函数，多少空格都能去掉。如A1中有：中 心 是 则在B1中使用=SUBSTITUTE(A1,\\就可以了。注意：公式中的第一个“ ”中间要有一个空格，而第二个“”中是无空格的。

将EXCEL中的单元格定义成数组

我在编写程序时遇到这样一个问题, 每次用循环程序时向单元格写或读数据时总是面向一个固定区域,如Range(\。请问有没有方法能做到像数组那样,将单元格的下标由常量变成变量!。如下面这种形式,那编程时会减少很多的工作量!。Range(\

解答：range(cells(行数,列数),cells(行数,列数))、行数 列数可用变量带入。或：Range(\&trin(str(value1)) & \

将单元格行、列高与宽单位设置成毫米

解答：其实行高和列宽的换算总题是不太复杂的,只要用打印机打印一个单元格的框架,再用尺子量出单元格框架的长和宽,然后用这个值跟单元格的磅值进行换算即可.

例:单元格的宽度是8.38磅,高是14.25磅.打印出来后宽度是19.6mm,高是6mm,这样就得出磅和毫米之间的换算关系

.宽:19.6mm/8.38磅=2.339mm/磅; 高:14.25磅/6mm=2.375磅/mm

好了,我想不用我多说你就会制出跟实际表格一模一样的表格来.

一些电话号码如果是8结尾,号码加1;如果不是,号码加0.

解答：1、如果A1＝1008 在B1中输入 ＝if(right(a1,1)=8,a1+1,a1),可以实现如果结尾是8加1，不是8则不加。2、如果不是上述意思则为 =if(right(a1,1)=8,concatenate(a1,1),concatenate(a1,0))。3、实际上应该是：＝if(right(a1,1)=8,a1&\。

18