则B1=LEFT(A1,(SEARCHB("?",A1,1)-1)/2)、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 = "'" & Right(jk.Formula, (Len(jk.Formula) - i + 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 个单元格为一个单位做一次小计，我在小计中加入了公式
但是我还想求一下这个小计的总合，我想加入一个公式，但是我有SUM到了50多个时就加不进去了，用加号连加也不行，不知这个问题怎么解决
解答：用SubTotal()解决即可
如何使输入的英文单词第一个字母变成大写
解答：Private Sub Worksheet_Change(ByVal Target As Range)
Target.Value = Application.WorksheetFunction.Proper(Target.Text)
End Sub
在一个表中有两列日期型数字请问如何在第三列中得到其差(两日期间的天数)
解答：=DATEDIF(A1,B1,"d")
问：我用了datedif发现一个问题 、即当A列<B列时,结果正确,而当A列>B列时出错了 、请问用什么办法解决
答：=IF(A1>B1,DATEDIF(B1,A1,"d"),DATEDIF(A1,B1,"d"))
重要的EXCEL文件坏了(文件带密码)有没有EXCEL修复工具
解答：Excel 2000
数据>>取得外部数据>>新增数据库查询>>Excel File*>>找到档案>>
[选项]勾选所有选项>> 会找到所有未命名[区块]如Sheet1$
>>找到字段>>其它跟着查询精灵导引一步一步作
此中间层组件叫作Microsoft Query
可以用来拯救[毁损档案]
只要求简单的把数据从分表直接追加到总表
解答：你可以用Lookup,vlookup等函数。
A1中输入11:22:22 要求每间隔一秒刷新一次
解答： sub mytcom
range("a1")=now()
Application.OnTcom Now + TcomValue("00:00:01"), "mytcom"
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
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("A1:D10") 。请问有没有方法能做到像数组那样,将单元格的下标由常量变成变量!。如下面这种形式,那编程时会减少很多的工作量!。Range("A[value1]:D[value2]")
解答：range(cells(行数,列数),cells(行数,列数))、行数 列数可用变量带入。或：Range("A" &trin(str(value1)) & ":" & "D" & trim(str(value2)))
将单元格行、列高与宽单位设置成毫米
解答：其实行高和列宽的换算总题是不太复杂的,只要用打印机打印一个单元格的框架,再用尺子量出单元格框架的长和宽,然后用这个值跟单元格的磅值进行换算即可.
例:单元格的宽度是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),
松语文学免费小说阅读_www.16sy.com