excel问答集锦个问答

每天更新，每天享受注册筑龙结构超爽会员超爽0币、超爽1币资料海量资料即刻下载超爽0币下载100套超级好图，鸟巢、国家大剧院图纸免费下！超爽1币下载图纸、详图、毕业设计、软件应用、经验、表格、讲义、抗震……超爽2折下载全部成套图纸、节点详图、毕业设计、讲义讲稿、软件应用、计算示例…….详情咨询：QQ：29436561[键入文字]PAGE73Excel问答集锦-11、从身份证号码中提取性别Q：A1单元格中是15位的身份证号码，要在B1中显示性别(这里忽略15位和18位身份证号码的判别）B1=if(mod(right(A1,1),2)>0,"male","female")请问这个公式有无问题，我试过没发现问题。但在某个网站看到作者所用的是如下公式：B1=if(mid(A1,15,1)/2=trunc(mid(A1,15,1)/2）,"female","male")A：leaf道理都是一样的，不过你的公式比那个公式优质提取性别（无论是15位还是18位）=IF(LEN(A1)=15,IF(MOD(MID(A1,15,1),2)=1,"男","女"),IF(MOD(MID(A1,17,1),2)=1,"男","女"如果身份证号的输入已是15或18位，用公式=IF(MOD(LEFT(RIGHT(A1,(LEN(A1)=18)+1)),2),"男","女"2、xls>exe可以么？A：Kevin如果只是简单的转换成EXE，当然可以。如果你指的是脱离Excel也可以运行，好像没听说过可以。当然，通过DDE，是可以不运行Excel但调用它的所有功能的，但前提仍然是你的计算机上已经安装了Excel3、列的跳跃求和Q:若有20列（只有一行），需没间隔3列求和，该公式如何做？前面行跳跃求和的公式不管用。A:roof假设a1至t1为数据（共有20列），在任意单元格中输入公式：=SUM(IF(MOD(TRANSPOSE(ROW(1:20)),3)=0,(a1:t1))按ctrl＋shift＋enter结束即可求出每隔三行之和。跳行设置：如有12行，需每隔3行求和=SUM(IF(MOD((ROW(1:12)),3)=0,(A1:A12)))4、能否象打支票软件那样输入一串数字它自动给拆分成单个数字？Q：如我输入123456.52它自动给拆成￥12345652的形式并且随我输入的长度改变而改变？A：Chiu我所知函数不多，我是这样做的，如有更方便的方法，请指点例如：在A1输入小写金额，则：千万：B1=IF(A1>=10000000,MID(RIGHTB(A1*100,10),1,1),IF(A1>=1000000,"￥",0))百万：C1=IF(A1>=1000000,MID(RIGHTB(A1*100,9),1,1),IF(A1>=100000,"￥",0))十万：D1=IF(A1>=100000,MID(RIGHTB(A1*100,8),1,1),IF(A1>=10000,"￥",0))万：E1=IF(A1>=10000,MID(RIGHTB(A1*100,7),1,1),IF(A1>=1000,"￥",0))千：F1=IF(A1>=1000,MID(RIGHTB(A1*100,6),1,1),IF(A1>=100,"￥",0))百：G1=IF(A1>=100,MID(RIGHTB(A1*100,5),1,1),IF(A1>=10,"￥",0))十：H1=IF(A1>=10,MID(RIGHTB(A1*100,4),1,1),IF(A1>=1,"￥",0))元：I1=IF(A1>=1,MID(RIGHTB(A1*100,3),1,1),IF(A1>=0.1,"￥",0))角：J1=IF(A1>=0.1,MID(RIGHTB(A1*100,2),1,1),IF(A1>=0.01,"￥",0))分：K1=IF(A1>=0.01,RIGHTB(A1*100,1),0)网客公式中最后一个0改为""5、如何编这个公式Q：我想编的公式是：a/[84-（b×4）]其中a是一个数值，小于或等于84；b是包含字符C的单元格的个数；C是一个符号。这个公式的关键是要统计出包含字符C的单元格的个数，可我不会。A：dongmu=a/(84-countif(b,"=c")*4)chwd我试了一下，不能运行，我想是因为没有指定出现“c”的单元格的范围。比如说“c”在D2-D30中随机出现，在上述公式中要先统计出出现“c”的单元格的个数。这个公式如何做？再一次感谢！受dongmu朋友公式的启发，我做出了需要的公式=a/(84-COUNTIF(D3:D30,"c")*4)skysea575:其中a是一个数值，小于或等于84；b是包含字符C的单元格的个数；C是一个符号。"包含字符C"在这里的意思不清楚。你的公式中只可以计算仅含有“C”字符的单元格数。可能你的想法是计算字符中凡是含有这个字或字母的词。如“文章”和“文字”中都有一个“文”字，是否计算在内？6、将文件保存为以某一单元格中的值为文件名的宏怎么写A：lxxiu假设你要以Sheet1的A1单元格中的值为文件名保存，则应用命令：ActiveWorkbook.SaveCopyAsStr(Range("Sheet1!A1"))+".xls"7、IE中实现链接EXCEL表Q:我想在IE中实现链接EXCEL表并打开后可填写数据，而且可以实现数据的远程保存（在局域网内的数据共享更新），我的设想是在NT中上提供电子表格服务，各位局域网内用户在IE浏览器中共享修改数据，请问我该如何操作才能实现这一功能。我是初学者，请尽量讲得详细一点。A:老夏<ahref="C:\mm.xls"target="x">mm.xls</a><ahref=""target="x">桌面</a><iframename="x"width=780height=400></iframe>8、EXCEL中求两陈列的对应元素乘积之和Q:即有简结一点的公式求如:a1*b1+a2*b2+b3*b3...的和.应有一函数XXXX(A1:A3,B1:B3)或XXXX(A1:B3)A:roof在B4中输入公式"=SUM(A1:A3*B1:B3)",按CTRL+SHIFT+ENTER结束.dongmu=SUMPRODUCT(A1:A10,B1:B10)9、求助日期转换星期的问题Q:工作中须将表格中大量的日期同时转换为中英文的星期几请问如何处理英文的星期转换，谢谢！A:Rowen1.用公式:=text(weekday(xx),"ddd")2.用VBA,weekday(),然后自定义转换序列3.用"拼写检查",自定义一级转换序列4dongmu转成英文：=TEXT(WEEKDAY(A1),"dddd")转成中文：=TEXT(WEEKDAY(A1),"aaaa")10、研究彩票，从统计入手Q：我有一个VBA编程的问题向你请教。麻烦你帮助编一个。我一定厚谢。有一个数组列在EXCEL中如：01020304050607和01041219252632020815161824280102070912152209151720222932比较，如果有相同的数就在第八位记一个数。如010412192526322020815161824281010207091215222091517202229320这个数列有几千组，只要求比较出有几位相同就行。我们主要研究彩票，从统计入手。如果你有兴趣我会告诉你最好的方法。急盼。A：roof把“01020304050607”放在表格的第一行，“010412192526322”放第二行。把以下公式贴到第二行第八个单元格“A9”中，按F2,再按CTRL+SHIFT+ENTER.=COUNT(MATCH(A2:G2,$A$1:$G$1,0))11、如何自动设置页页尾线条？？Q：各位大虾：菜菜鸟DD有一难难题请教，我的工作表通常都很长，偏偏我这人以特爱美，所以会将表格的外框线和框内线条设置为不同格式，但在打印时却无法将每一页的底部外框线自动设为和其他三条边线一致，每次都必须手工设置（那可是几十页哦！），而且如果换一台打印机的话就会前功尽弃，不知哪位大侠可指教一两招，好让DD我终生受用，不胜感激！A：roof打印文件前试试试运行以下下的代码。打打印后关闭闭文件时不不要存盘，否否则下次要要把格式改改回来就痛痛苦了。（当当然你也可可以另写代代码来恢复复原来的格格式）：Subdettectbbreakk()mycolummn=Rangge("AA1")..CurrrentRRegioon.Coolumnns.CoountSetmyrrangee=RRangee("A11").CCurreentReegionnForEacchmyycelllInmyraangeSetmyrrow==myccell..EntiireRoowIfmyroow.PaageBrreak=xllNoneeTheenGoToNeexElseSetaroow=Rangge(Ceells((myroow.Offfsett(-1)).Roww,1)),Ceells((myroow.Offfsett(-1)).Roww,myycoluumn)))Witharrow.BBordeers(xxlEdggeBotttom)).LineSttyle=xllDoubble''把这一行行改成自己己喜欢的表表线.Weightt=xxlThiick.ColorIIndexx=xxlAuttomatticEndWitthEndIfNex:NeextmmycelllEndSubb12、求工齡A：老夏=DATEDIIF(B22,TODDAY()),"y"")=DATEDIIF(B22,TODDAY()),"ymm")=DATEDIIF(B22,TODDAY()),"mdd")=DATEDIIF(B22,TODDAY()),"y"")&"年年"&DAATEDIIF(B22,TODDAY()),"ymm")&""月"&DAATEDIIF(B22,TODDAY()),"mdd")&""日"*********************************************************************DATEDIFF()EExcell20000可以以找到說明明Exccel997沒有有說明是個暗槓槓函數13、如何用exceel求解联联立方程：：Q：x-x(7/yy)^z==68 x-x((20/yy)^z==61 x-x((30/yy)^z==38到底有人会吗？？不要只写写四个字，规规划求解，我我想要具体体的解法，A：wenou这是一个指数函函数的联列列方程。步步骤如下1、令X/Y=WW则有X--(7W))^z=668 X-(220W)^^Z=611 X-((30W))^Z=3382、消去X(20^Z-77^Z)WW^Z=77 (300^Z-220^Z))W^Z==233、消去W(30^Z-200^Z)//(20^^Z-7^^Z)=223/7由此求得Z=33.5422899x=688.1733955y=7881.81196014、行高和列宽单位位是什么??如何换换算到毫米米?A：markxg在帮助中：“出现在“标准列列宽”框中的数数字是单元元格中00-9号号标准字体体的平均数数。”单位应该不是毫毫米，可能能和不同电电脑的字体体有关吧。Q：Rowen是这样:行高/3=mmm列宽*2..97=mmm鱼之乐实际上最终打印印结果是以以点阵为单单位的,而且exccel中还还随着打印印比例的变变化而变化化15、如果想用宏写一一个完全退退出EXCCEL的函函数是什么么？Q:因为我想在在关闭loock.ffrm窗口口时就自动动退出EXXCEL，请请问用宏写写一个完全全退出EXXCEL的的函数是什什么？多谢谢！A:Appliicatiion.qquit16、请问如何编写加加载宏？把带有VBA工工程的工作作簿保存为为XLA文件件即可成为为加载宏。请问如何在点击击一个复选选框后在后后面的一个个单元格内内自动显示示当前日期期？如果是单元格用用"=TOODAY(()"就可可以了如果是文本框在在默认属性性中设置或或在复选框框的CLIICK中设设置文本框框的内容17、EXCEL20000中视视面管理器器如何具体体运用呀？？请问高手EXCCEL20000中视视面管理器器如何具体体运用呀？？最好有例例子和详细细说明。明明确的功能能。不然我我还是不能能深刻的理理解他。markxg其实很简单呀，你你把它想象象成运动场场上的一串串照片（记记录不同时时点的场景景），一张张照片记录录一个场景景，选择一一张照片就就把运动“拖”到照片上上的时点。不不同的是只只是场景回回复，而值值和格式不不回复。18、用VBA在自定义义菜单中如如何仿EXXCEL的的菜单做白白色横线？？Q：我在做自定义义菜单时，欲欲仿EXCCEL菜单单用横线分分隔各菜单单项目，用用VBA如何何才能做到到？A：Rowen那个东东也是一一个部件,,我想可以以调用,不过没试试过.diyee把它的显示内容容中设置为为"-"即可可。simen1.此部件叫什什么名字，在在控件箱里里有吗？2.用“-”我我也试过，用用它时单击击可以，但但你要知道道EXCEEL自己的的横线是不不可以单击击下去的kevin_1168object..BegiinGrooup==Truue下面是我用到的的代码：Setmymmenubbar==CommmanddBarss.ActtiveMMenuBBarSetnewwmenuu1=mymeenubaar.Coontrools.AAdd(TType::=msooConttrolPPopupp,_Temporaary:==Truee)newmenuu1.Caaptioon="文件制制作(&M)""newmenuu1.BeeginGGroupp=TTrue'这就是是你要的白白色横线simen你知道在窗体中中也有这样样的分隔线线的如何实实现呢？kevin_1168这,我可没有试过,,不过我做做的时候使使用一LAABEL将将其设为能否在取取消“运行宏”时并不打打开其它工工作表！19、Q：我看见有些模模块（高手手给的）能能够在取消消“运行宏”时并不打打开其它工工作表！不不知是何办办法？但当你启启动宏后，工工作表才被被打开！这这种方法是是什么？A：Rowen这些工作表预先先都是隐藏藏的,必须用宏宏命令打开开,所以取消消宏的情况况下是看不不到的.可以打开开VBA编辑辑器,在工作表表的属性窗窗口中将其其Visiible设为xlSSheettVisiible立体,看起来也也够美观的的,不妨一试试.象版主所所说的多查查帮助文件件,对你有帮帮助.20、如何去掉单元格格中间两个个以上的空空格？Q：单元格A1中中有“中心心是”，如果用用TRIMM则变成“中心是”，我想将将空格全去去掉，用什什么办法，请请指教！！！A：用SUBSTTITUDDE（）函函数，多少少空格都能能去掉。如如A1中有：：中心是则在B1中使用用=SUBBSTITTUTE((A1,""",""")就可可以了。注注意：公式式中的第一一个“”中间要有有一个空格格，而第二二个“”中是无无空格的。21、打印表头？Q：在Excell中如何实实现一个表表头打印在在多页上？？打印表尾？A：BYdonggmu请选择文件—页页面设置——工作表—打印标题题—顶端标题题行，然后后选择你要要打印的行行。打印表尾？通过Excell直接提供供的功能应应该是无法法实现的，需需要用vbba编制才才行。22、用命令按扭打印印一个sheeet1中B2:MM30区域中的的内容?我想在Sheeet2中制件一一个命令按按扭,打印表Sheeet1中的[B2::M30]]区域中的的内容?解答：可以将打打印区域设设为b2：m30，然后打打印，如：：sheets(("sheeet1"").prrintaarea=="b2::m30""sheets(("sheeet1"").prrintoout随手写的，你可可以试试看看。最简单单的方法是是：你先录制宏，在录制宏宏过程中，跑到页面面设置里面面，把打印范范围设置到到你想要的的范围。然后退出，停停止录制宏宏，你就可以以得到一些些代码！23、能否对一列中的的文字统一一去掉最后后一个字?这些文字字不统一,有些字数数多,有些字数数少。如何何处理?我用{"&--}不行解答：=REPPLACEE(A1,,LEN((A1),,1,"")(在过渡列列进行)24、能否根据单元格格数值自动动标记序号号？各位大佬，一工工作表有两两列，“序号”及“金额”，能否将将金额不等等于0的行自动动标上序号号呢？如无无现成的函函数，应怎怎样设置？？解答：DimxuhaaoAssInttegerrxuhao==1Range(""b2")).SellectDoWhilleSeelecttion<>"""IfSeelecttion<>00TheenActivveCelll.Prrevioous.VValuee=xxuhaooxuhaoo=xxuhaoo+11EndIIfActivveCelll.Offfsett(1,0).RRangee("a11").SSelecctLoop25、求教自定义函数数查询了一些自定定义函数的的例子都是是单变量的的。自定义义函数能否否建立“(AsRangge)AAsInntergger”的函数，应应该可以的的，请各位位大师赐教教！请以“∑x2”为例，万万分感谢！！(该用"ForrEacchNexxt"，就是还还不知道如如何引用Rangge中的每个个值，请高高手指点。)解答：参数使用用Rangge而函数值值为Inteeger是可以的的用foreacchneext循环思路路也是对的的，应该这这样作：dimrgasrrangeedimivaalueasiinteggerforeacchrggin参数区域域ivalue==ivallue+rrg.vaaluenext函数＝ivallue大概意思如此，但没有加加入防错处处理，你自己先先试试看，有问题在在问。又问：试了一天天，还是不不行。PublicFuncctionnx2((rngAsRRangee)AssInttegerrDimrnggAsRanggeDimivaalueAsIInteggerForEacchrnngInnrngg.Ranngeivalue=ivvaluee+rrng.vvaluee^22Nextx2=ivvalueeEndFunnctioon还望您的帮助。解答：PubllicFFuncttionSUMXX2(rnngAssRannge)AsIIntegger'你的的错误有几几项：'1..函数名不不能使用单单元格位址址的形式，否否则在工作作表中引用用函数产生生歧义，exceel以为你引引用单元格格'2..参数名与与内部变量量名冲突，rng本来是定定义参数，在在过程中不不应出现重重名变量'3..rng已被定义义为rangge对象变量量，实际意意义是一rangge引用，不不能再用rng..Rangge引用，rangge的rangge属性是什什么呢，没没有吧'函数数我已经给给你改了，基基本能用DimmrgAsRRangeeDimmivaalueAsIInteggerForrEacchrggInrngivaalue=ivvaluee+rrg.vaalue^2NexxtSUMMX2==ivaalueEndFunnctioon结果：调试成功功！，非常感感谢！26、判斷字符串的包包含性用什么命令“abcddefg”是否包含含“abc”?解答：IfVVBA.IInStrr(1,"abccdefgg",""abc"")<>>0TThenMsgBBox""包含"27、利用背景实现套套打的解决决方案利用背景套打主主要在于数数据打印位位置的确定定，关键就就是要使图图片和实物物之间的尺尺寸保持一一致，这里里我引入一一个中间参参照物—空白表(只有表格格线的表)。具体操操作以套打打支票为例例说明：((1)将支票扫扫描成图片片。((2)打印一个个空白表，使使其与支票票尺寸一致致(需反复调调整打印，也也可行、列列分别打印印)。((3)用“画图”的缩放功功能调整图图片大小，导导入exceel作背景，并并使其与空空白表大小小一致(亦需反复复调整导入入，每次均均用原图缩缩放，再另另存为一个个文件)。((4)根据图片片背景调整整好单元格格，填入数数据后套打打支票，效效果是匹配配度达99%。((5)由于每次次都是用原原图缩放，故故可取得缩缩放比例作作为参数，再再套打其他他表格时，即即可直接依依参数缩放放图片。思路：因因为空白表表=支票，图图片=空白表，所所以图片=支票。该方案已已证实可行行。28、宏放在workksheeet和sheeet及模块中中各有什么么区别？解答：放在thhiswoorkboook或sheeet中的宏与与模块中的的宏的主要要区别是book或sheeet中的过程程函数只能能是对象所所专有的，不不能在对象象之外的任任何地方调调用（很显显然不能声声明Publlic过程，否否则编译报报错），而而模块中声声明Publlic过程函数数可以在任任何地方使使用。29、关于excel问题题在excel中如如何用公式式实现单元元格内容递递增？如：AB112AAB13AAB14AAB1000条件是无法确定定储存格中中的内容的的前面有多多少个字符符，也就是是，可能是是2个，也可可能是3个，或者者更多。解答：為什麼要要用公式呢呢？如A1=AAB12，只要你你向下拉的的複制就可可以。公式可參考((條件是AB112不可以是AB002，處理0為首的數數字有困難，亦亦不可以只只有英文字字)A1=ABB12A2=LEEFT(AA1,LEEN(A11)-SUUM(LEEN(A11)-LEEN(SUUBSTIITUTEE(A1,,{"0"","1"","2"","3"","4"","5"","6"","7"","8"","9""},""")))))&RRIGHTT(A1,,SUM((LEN((A1)--LEN((SUBSSTITUUTE(AA1,{""0",""1",""2",""3",""4",""5",""6",""7",""8",""9"},,"")))))+11(A1=ABB12公式=LEN(SUUBSTIITUTEE(A1,,{"0"","1"","2"","3"","4"","5"","6"","7"","8"","9""},"""))答案看到的是4，但其實它它回傳一個個數組{{4,3,,3,4,,4,4,,4,4,,4,4}}公式=LEN(A11)-LEEN(SUUBSTIITUTEE(A1,,{"0"","1"","2"","3"","4"","5"","6"","7"","8"","9""},"""))答案看到的是0，但其實它它回傳一個個數組{{0,1,,1,0,,0,0,,0,0,,0,0}}公式=SUM(LEEN(A11)-LEEN(SUUBSTIITUTEE(A1,,{"0"","1"","2"","3"","4"","5"","6"","7"","8"","9""},""")))是將{00,1,11,0,00,0,00,0,00,0}加總=2)30、给数组公式、VVBA爱好者泼泼点冷水。数组公式、VBBA威力巨大大，在某些些情形下提提高效率非非常明显，但但各有其弱弱点。数组组公式在大大数据的时时候，运行行速度慢得得无法忍受受。比如，我我日常需要要编制得几几个报表，原原始数据有有4－8万行，20——30列，用数数组根本无无法操作。倒倒是利用数数据透视表表及其他一一些组合功功能，可谓谓神速。而而VBA主要适用用与日常比比较固定的的一些工作作，对于一一些临时性性工作而言言，缺乏灵灵活性，有有杀鸡用牛牛刀之嫌疑疑。因此，根根据我个人人多年工作作经验的体体会，能熟熟练地灵活活运用EXCEEL基本功能能和常用函函数，就可可以高效地地完成大部部分日常工工作。我比较常用地东东西有：数数据透视表表，数据——有效性，ctrll+entter,iindexx,maatch,,indiirectt,offfset,,if,vvlookkup,下拉列表表框，绝对对引用与相相对引用，编编辑——选择性粘粘贴（数值值、乘除、转转置等），图图表，条件件格式，定定义名称，分分列，填充充等。相反观点：数据据透视表的的计算是exceel中内置的的，同样的的计算次数数速度与数数组公式是是一样的，数数组公式计计算慢有两两个因素，一一是公式的的编写不合合理，另一一个主要的的原因是数数组公式要要对所有的的引用数据据进行计算算，不管这这些数据是是否有效。VBA应该是最最灵活的，在VBA中结合数组公式是可以达到最佳目的的，可用VBA先分析出数组公式要用的有效引用区域，在辅助表中进行数组计算（这个速度比用VBA直接分析计算要快得多），再将结果记入需要的单元格中，然后删除辅助表。其实你说的那些些基本操作作均可用VBA来做的，速速度比手工工做要快。31、从式子抽取一小小式子的问问题？b1=sum((a1:aa10)++(10++20)//4,怎么从中中取出(10++20)//4或其结果(即5)？用evalluatee、get..celll都不能取取出。解答：定义X==get..formmula(($B$11)得到B1的公式,再用MID、Righht等函数截截取32、or可以用数组应用用？有一个工作表，数数据上万行行，其中一一列是我要要分析的数数值，数值值比如为：：0111，0112，0113，0114，0115，0116，0117中的任何何一个。我我要统计除除0111，0113，0115之外的数数据。公式式：{summ(if((or(ssheett!A2::A11111="00111"",sheeet!aa2:a11111=="01113",ssheett!a2::a11111="00115""),1,,0))}},可是统计计数字和我我筛选相加加的不一样样，用if层层选，可可以。请问问原因？解答：数组公式式中用*、+代替AND、OR{sum(iff((shheet!!A2:AA11111="01111"))+(shheet!!a2:aa11111="01113"))+(shheet!!a2:aa11111="01115")),1,00))}33、countiff表达式的的格式请问：我想找AA1：A15中，值不为空空的数目，用counntif命命令怎么写写呢？解答1：应为ccountta(a11:a155)。counntif为为找a1::a15中中，特定值的的数目。解答2：=ROOWS(AA1:A115)*CCOLUMMNS(AA1:A115)-CCOUNTTIF(AA1:A115,""")=ROWS(AA1:A115)*CCOLUMMNS(AA1:A115)-CCOUNTTBLANNK(A11:A155)解答3：直接用用counnt(a11:a155)不是更更好吗!34、删除字符串中某某个字符的的函数是什什么？删除除字符串中中某个字符符的函数是是什么？举例：字符串“ilooveyyouaa!"想删删除a字面，应该用什什么函数实实现？还有就是是在字符串串中某个位位置加入某某个字符用用什么函数数呢？解答：如果有一一定的规律律，可以用用Repllace函数。例例如：在A1单元格已已有的字符符串”1234467"中加入个5变为“12344567”。可以这这样做：=repplacee(a1,,5,,""5")另一方法：用CCONCAATENAATE函数。例如：a5单元元格里的数数据是“asdffhjkll",在另外的的单元格了了输入下面面的函数CONCATEENATEE(LEFFT(A55,4),,"l",,RIGHHT(A55,4)))，得到的的结果就是是”asdfflhjkkl",然后用“选择性粘粘贴，粘贴贴数值”粘贴回a5单元格就就可以了。35、两表合一实例问题提提出：怎样样把两个表表（有相同同的字段)怎样合并并成一个表表？思路路：用CounntIf(()函数对表1进行判断断，如果其其值为0，则表示示没以重复复，再将表表2中和表1不重复的的数据复制制到表1中，从而而实现两表表合一。解题的方法：Subdd(()b=Sheeets((2).[[a1]..CurrrentRRegioon.Roows.CCountt+11‘判断表2的行数数Fori==3TToba=Sheeets((1).[[a1]..CurrrentRRegioon.Roows.CCountt+11‘判断表1的行数数c=Sheeets((2).[[a1]..CurrrentRRegioon.Coolumnns.Coount‘判断表2的列数数IfAppllicattion..WorkksheeetFunnctioon.CoountIIf(Shheetss(1)..[b1::b10000],Sheeets(22).Ceells((i,22))==0TThenSheets((2).RRangee(Sheeets((2).CCellss(i,1),Sheeets(22).Ceells((i,cc)).CCopySheeets(11).Ceells((a,11)‘将表2中与表1不重复复的数据复复制到表1中EndIfNextEndSubb36、有没有办法把加加载宏内置置到Exceel文件里？？因为用了Neetworrkdayys函数，用用到了分析析工具库，但但是还要发发给别人，怎怎么办？解答：试试在""Thissworkkbookk"中写如下下语句:PrivateeSubbWorrkboook_Oppen())Appplicaationn.ReggisteerXLLLFillenamme:=_"Offficee安装路径\Offfice\\Librrary\\Anallysiss\ANAALYS332.XLLL"EndSubb又问：Offiice安装路径径怎么写呀呀？大家不不一定都装装在C盘上。解答：试试:AAppliicatiion.PPath&"\\Librrary\\Anallysiss\ANAALYS332.XLLL"37、如何在userrformm上显示最最大化与最最小化按钮钮解答：利用APIOptionExpllicittPrivateeDecclareeFunnctioonGeetWinndowLLongLib"useer32""Aliias""GetWWindoowLonngA"(ByVValhhWndAsLLong,,ByVValnnIndeexAssLonng)AAsLoongPrivateeDecclareeFunnctioonFiindWiindowwLibb"usser322"Allias"FinndWinndowAA"(BByValllpCClasssNameeAsStriing,ByVaallppWinddowNaameAAsSttringg)AssLonngPrivateeDecclareeFunnctioonSeetWinndowLLongLib"useer32""Aliias""SetWWindoowLonngA"(ByVValhhWndAsLLong,,ByVValnnIndeexAssLonng,BByValldwNNewLoongAAsLoong)AsLLongPrivateeConnstGGWL_SSTYLEE=((-16))PrivateeConnstWWS_THHICKFFRAMEEAsLongg=&&H400000''(恢复大大小)PrivateeConnstWWS_MIINIMIIZEBOOXAssLonng=&H200000''(最小化化)PrivateeConnstWWS_MAAXIMIIZEBOOXAssLonng=&H100000''(最大化化)PrivateeSubbUseerForrm_Innitiaalizee()DimhhWndFFormAsLLongDimIIStylleAssLonnghWndFForm=FiindWiindoww("ThhundeerDFrrame"",Mee.Capptionn)IStylle=GetWWindoowLonng(hWWndFoorm,GWL__STYLLE)IStylle=IStyyleOOrWSS_THIICKFRRAME'还原原IStylle=IStyyleOOrWSS_MINNIMIZZEBOXX'最小小化IStylle=IStyyleOOrWSS_MAXXIMIZZEBOXX'最大大化SetWiindowwLongghWnndForrm,GGWL_SSTYLEE,ISStyleeEndSubb38、这个判断代码怎怎么写在A列输入日期，如如果所输入入日期为1月1日或5月1日则B列相关单单元格+1,其他日期+0,这要用到到什么函数数？代码怎怎么写？谢谢谢！解答：用IF函函数或用Workksheeet_Chhangee事件PrivateeSubbWorrksheeet_CChangge(ByyValTarggetAAsRaange))IfTargget.CColummn=1ThhenIfIsDaate(TTargeet)TThenIf(Monnth(TTargeet)==1AAndDDay(TTargeet)==1)Or((Montth(Taargett)=5AnndDaay(Taargett)=1)TThenTarrget..Offsset(00,1))=TTargeet.Offfsett(0,1)++1EnddIfEnddIfEnddIfEndSubb39、这个汇总表拆分分程序怎么么写，高手手帮忙！要将总表里的数数据按工作作单位字段段拆分成数数个分表（每每个单位一一张表格，标标签名字为为工作单位位）这个程程序怎么编编写，请高高手指点。如如果记录增增多或字段段增多（但但拆分字段段不增）这这个程序又又应该怎样样改写，请请高手稍微微讲解一下下，应为我我不是为这这一个表，还还想用到别别的工作表表中，谢谢谢！解答：SubAdd__dataa(shtt_Namme)'找出要取取资料的区区域DimmiAAsInntegeer,jjAsInteeger,,roww_dAAsInntegeerDimmFirrst_rrowAAsInntegeer,LLast__rowAsIInteggerOnErroorReesumeeNexxtWitthShheetss("总表表")i==1DoUntiil.CCellss(i,3).vvaluee=ssht_NNamei==i++1LooopFirrst_rrow==ij==Firrst_rrowDoUntiil.CCellss(j,3)<<>shht_Naamej==j++1LooopLasst_roow=j-1EnddWitthSheeets(("总表")..Rangge(Ceells((Firsst_roow,11),CCellss(Lasst_roow,112))..SeleectSellectiion.CCopySheeets((sht__Namee).SeelecttRannge(""A2")).SellectActtiveSSheett.PassteWitthAcctiveeSheeetroww_d==.Raange(("A2"").Ennd(xllDownn).Roow+1Rannge(""B"&&roww_d)..valuue="合计"Forri==5TTo111Cellls(rrow_dd,i)).vallue==Appplicaationn.WorrksheeetFuunctiion.SSum(RRangee(Cellls(22,i)),Ceells((row__d-1,ii)))NexxtiEnddWitthSheeets(("总表")..ActiivateeRannge(""A2")).SellectEndSubb40、这个公式应该怎怎么写？我想统计所有物物料编码的的第一个字字符为a的库存数数量的总和和，这个公式式应该怎么么写？A列为物料料编码,BB列为库存存数量。解答：=SUMMIF($$A:$AA,"a**",$BB:$B))41、.样修改此宏？下面的宏是k版版主帮我写写的，从文文件夹内汇汇入其他工工作表表格格。汇入范范围为第五五行、第L列。如汇入范围改为为第三行、第R列。怎样修改此宏？？PublicSubFeedd_in22()DimRoww_dn,,Roww_dn11,i,,j,k,mmAsInteegerDimPatth1,Str11AsStriingDimwbAsWWorkbbookRow_dn=[BB655336].EEnd(xxlUp)).RowwPath1==Appplicaationn.ActtiveWWorkbbook..PathhStr1=ActiiveWoorkboook.NNamek=5WitthApppliccatioon.EnnableeEvennts==Fallse.SccreennUpdaatingg=FFalseeIfRow__dn>>=5ThennRannge(""B5:LL"&Row__dn)..CleaarConntenttsEnddIfWitth.FFileSSearcch.NeewSeaarch.LoookInn=PPath11.FiileTyype==msooFileeTypeeExceelWorrkboooksIf.Exeecutee<=1ThhenMsggBox"fillesnnofoound"":ExxitSSubElsseForrm==1TTo.FFounddFilees.CoountStrr2=Spliit(.FFounddFilees(m)),"\\")n1=UBBoundd(Strr2)Strr2=Str22(n1))IfStr22<>Str11TheenSettwb=Woorkboooks..Openn((Paath1&"\\"&Str22),TTrue,,Truue)Roww_dn11=wwb.Shheetss(1)..[B655536]].Endd(xlUUp).RRowForri==5TToRoow_dnn1Forrj==2TTo122Worrkboooks(SStr1)).Sheeets((1).CCellss(k,j)__=wbb.Sheeets((1).CCellss(i,j)Nexxtjk==k++1Nexxtiwb..ClosseFaalseSettwb=NoothinngEnddIfNexxtmEnddIfEnddWitth.EnnableeEvennts==TruueEnddWitthEnddSubb解答：除了B6655366中的5，其余5都改成3；将Rangge("BB5:L""&RRow_ddn)改成成Rangge("BB5:R""&RRow_ddn)；将Forj=2Too12改改成Forrj==2TTo177。42、怎样控制texxtboxx的只读，要要使texttbox中的数据据不能改变变（删除或或修改），在在属性里我我没有找到到有相关的方法吗吗？解答：Texttbox..Enabbled=Faalse，直接修修改控件属属性都行。又问：这样还不不行，因为为Texttbox在显示上上就灰显了了，我想只只让它不可可改变值，在在显示上还还是原来的的形式。解答：那就用LLabell代替，设设置BackkColoor和SpeccialEEffecct属性。43、请教个小问题！！你好：我录制了了个删除工工作表的宏宏，但每次次运行后，总总出现确认认删除提示示框，请问问该如何编编写，直接接默认删除除，不在作作确认呢？？解答：Appllicattion..DispplayAAlertts=Falsse代码为：SubbDelll()''DelllMaacro'DC..Direect记录的宏20003-111-14Appplicaationn.DissplayyAlerrts==FallseSheeets(("Sheeet2"").SeelecttActtiveWWindoow.SeelecttedShheetss.DelleteActtiveWWorkbbook..SaveeAppplicaationn.DissplayyAlerrts==TruueEEndSSub44、小知识：当垂直直滚动条滚滚动到无法法显示1-3行时，冻冻结窗口，1-3行就好像像被隐藏了了，但是取取消隐藏也也不行。45、选A1后，自动显示BB1内容，有有无方法实实现。有A1列和B1两列，*D1处做了数数据-有效性-序列-选择A1~AA9*D1选择A11时，要求求在G1中自动跳跳出B1的内容，选A2时，自动动跳出B2的内容*余此类推推。解答：G1公式式:=Vllookuup(D11,A1::B9,22,0)又问：假设，有有C列中也有有数据，我我要在G1中显示C列中的数数据，该怎怎么算？解答：G1公式式:=Vllookuup(D11,A1::B9,33,0)46、向上填充的快捷捷键是什么么？我只会会向下填充充的快捷键键，向上-向左-向右的都都是什么呢呢？解答：向上-AAlt+EE,I,UU。向左-AAlt+EE,I,LL。向右-CCTRL++R47、下方单元格上移移，包含该该单元格的的公式不要要变化哪位高手帮帮忙忙！我试验验了很久也也没找到解解决的办法法：能不能做到删除除单元格以以后，下方方单元格上上移，包含含该单元格格的公式不不要变化。或或者是：按按住shifft拖动单元元格，使两两个单元格格互相交换换位置以后后，包含该该单元格的的公式不要要发生变化化。注意，用用加$的办法是是不能解决决这个问题题的，如公公式改为：：=SUMM($A$$1:$AA$9),,经上述操操作后，结结果还是一一样。解答：=SUMM(INDDIRECCT("AA1:A110")))新问题：但是还还有一个问问题：我这这一列有2000多个数据据，似乎不不能通过拖拖动的办法法将公式复复制200遍，达到到每10个1求和的结结果。解答：=IF((MOD((ROW((),100)<>00,"",,SUM((OFFSSET(IINDIRRECT((ADDRRESS((ROW((),COOLUMNN(),))),,--1,-110,))))48、一列中删除重复复数据的方方法例如在C2:CC500中有重复复数据。在在D2中=COOUNTIIF(C22:$C$$100,,C2)计算出C2在此列中中的出现次次数,然后复制制公式到整整列,最后删除除在D列中大于1的行即可.49、哪为大侠来帮忙忙关于VBA的问题小弟想同时对eexcell工作簿下下的几个工工作表进行行插入图表表的操作！！这几个工工作表中已已经在相同同的位置区区域内输入入了数据.语言如下下：运行显示"下表越界"（下划线线的地方）。请请问高手又又什么办法法解决，或或者可以用用其它的方方法。subbiaaoge(()fora==1tto3sheets(("sheeet(aa)")..seleectchaarts..addacttivecchartt.appplycuustommtypeechaarttyype:==xlbuuiltiin,ttypenname::="两轴轴线-柱图"activvechaart.ssetsoourceedataasouurce::=sheeets(("sheeet((a)")).rannge(""a1:jj3"),,plootby::=xlrrowsactivecchartt.loccatioonwhhere::=xlllocattionaasobjject,,namme:=""sheeet(a))"actiivechhart..hasddatattablee=ttrueacttivecchartt.dattatabble.sshowllegenndkeyy=ttrueacttivecchartt.leggend..seleectsellectiion.ddelettenextaaendsubb解答：sheeets(""sheeet(a))").sselecct是错的的。可以用用sheeets(""Sheeet_Naame")).sellect。50、比较大小例如512.003,我用用函数取了了这个数的的最后两个个数03用他与与10比较,结果总是是显示033>10,,不知道是是什么原因因,请高手指指点,谢谢!!!!解答：取后两位位数结果是是文本型,,对比可用用righht(a11,2)**1>100或者用：valuue(riight((a1,22))>110也可51、讨论：用RANNGE和CELLLS选择单元元格EXCEL的基基本元素就就是单元格格，第一步步就是要学学会操作单单元格了，列列举两种方方式。SUBRANNGE())‘用RANGGE选择B5单元格RANGE((“B5”).SEELECTTENDSUBBSUBCELLLS())‘用CELLLS选择B5单元格CELLS((5,2)).SELLECTENDSUBBRANGE编程程时无法变变化，CELLLS可以通过过变量选择择单元格。回应1：RANGE一一样方便,甚至更方方便.实际使用用中可以用用一变量srArea=="B"&iRANGE(ssrAreea).SSELECCTsrArea=="金额"'一命名为金额的单元格/区域RANGE(ssrAreea).SSELECCT回应2：我觉得各有长长处，如果果有变量需需要循环判判断，用Cellls相对比较较简单，但但是有时候候固定区域域的，命名名后用Rangge更灵活。回应3：没错.帮助助中也是推推荐CELLL的.灵活性来讲,RANGGE要强多了,而且使用用时可以通通过.提取符快快速读取它它的属性和和方法.另外,对于可变更的工工作表,用RANNGE来操作命命名区域将将增加程序序的弹性.比如工作中插入入一行/列,VBBA中用CELLL就可能导导致运行操操作错误,而RANNGE(ssrAreea)作为指定定区域,可适应单单元格的这这类变更.52、关于FileSysstemOObjecct的引用请问各路高手，有有人可以为为我指点一一下fileesysttemobbjectt引用的详详细说明，特特别是fileeexissts方法的实实例。解答：Suubteestinng()'先判判断文件是是否存在，是是则删除之之DimmstrrmyfiileAAsSttringgstrrmyfiile=="d::\boook1.xxls"IffileetoFiind(sstrmyyfilee)ThhenKilllsttrmyffileEnddIfEndSubbFunctioonfiiletooFindd(filleNammeAssStrring))AsBoolleanDimmfsoobjAAsObbjecttSettfsoobj==CreeateOObjecct("SScripptingg.FilleSysstemOObjecct")Iffsobbj.fiileexxistss(filleNamme)TThenfilletoFFind=TrrueEnddIfEndFunnctioon在帮助文件中是是这样描述述的：FileeSysttemObbjectt对象描述：提供对计计算机文件件系统的访访问。语法：Scriiptinng.FiileSyystemmObjeect说明：下面的代代码举例说说明了如何何使用FFileSSysteemObjject返回一个个TexxtStrream对象，该对象是是可读并可可写的：Setfs=CrreateeObjeect(""Scriiptinng.FiileSyystemmObjeect"))Seta==fs..CreaateTeextFiile(""c:\ttestffile..txt"",Trrue)a.WriteeLinee("Thhisiisatestt.")a.Closee在上面列出的代代码中，CreaateObbjectt函数返返回FiileSyystemmObjeect((fs)。CreaateTeextFiile方方法接着创创建文件作作为一个TexttStreeam对对象(a)，而WriiteLiine方方法则向创创建的文本本文件中写写入一行文文本。Closse方法刷新新缓冲区并并关闭文件件。FileExiists方法描述：如果指定定的文件存存在，返回回Truue，若不存存在，则返返回Fallse。语法：objeect.FFileEExistts(fiilesppec)FileExiists方法语法法有如下几几部分：部分描述：objeect必需的。始始终是一个个FilleSysstemOObjecct的名字。filespeec必需的。要要确定是否否存在的文文件的名字字。如果认认为文件不不在当前文文件夹中，必必须提供一一个完整的的路径说明明（绝对的的或相对的的）。53、excel时间间函数2(菜鸟教程)这一贴说明时间间函数，timee,houur，minuute,sseconnd的用法。time的计算算过程：time(hoour,mminutte,seecondd)，time地返回值值为0-0..9999999999之间的数数值，它的的计算方法法如下：hour的范围围：0-244minute的的范围：0-599second的的范围：0-599在满足以上输入入范围的时时候：timee(houur,miinutee,seccond))=houur/244+minnute//(24**60)++secoond/（24*660*600）。如：tiemm(05，34,229)=00.2322280009259925933.如何计算算的呢？5/24+344/（24*660）+29/（24*660*600）=0.2208333333333333333+00.02336111111111111111+0.0003335644814881481148=00.2322280009259925933。在帮助文件里还还有hourr,minnute,,secoond不再范围围情况，这这时候，如如何计算的的呢？1、second//60,除的整数数为minuute,mmod(sseconnd,600)为secoond2、minute//60，除的整整数为hourr,modd(minnute,,60)为minuute3、hour/244，mod((hourr,24))为hourr最后再用houur/244+minnute//(24**60)++secoond/（24*660*600）计算。帮助中的例子：：timee(0,00,20000)=00.0233148如何算的的呢？2000/600=33mood(20000,660)=220time(0,,0,20000)==timee(0,333,200)=0//24+333/(224*600)=200/(244*60**60)==0.02231488呵呵，其实没有有什么用，会会用这个函函数就可以以可，如何何算的就不不必在意了了!!!54、年月日的问题EXCCEL表格中年年月有时候候输入不对对，（早已已记录过大大量数据，改改写麻烦。）比比如1980001，意思是1980年1月，可是是设置单元元格式日期期只有年月月日，没有有年月。怎怎么做？解答：插入一辅辅助列，假假设1980001在E1，F=IFF(MIDD(E1,,5,1))="0"",LEFFT(E11,4)&&"年"&RIIGHT((E1,11)&"月",LEEFT(EE1,4))&"年"&RIIGHT((E1,22)&"月")试一下。又问：1980001能否改为19800-1？或者1980年1月改为19800-1？解答：f1=IIF(MIID(e11,5,11)="00",LEEFT(ee1,4))&"-""&RIGGHT(ee1,1)),LEFFT(e11,4)&&"-"&&RIGHHT(e11,2)))或者更简单一些些：=LEFFT(A66,4)&&"-"&&valuue(RIIGHT((A6,22))（数据在a66单元格）也可以这样：==datee(midd(e1,,1,4)),mdii(e1,,5,2)),1)这这样会显示示为19880-1--1，然后可以以随意设置置成相应的的日期格式式。55、请帮忙解解释一个公公式=LEFT(AA1,(SSEARCCHB(""?",AA1)-11)/2))这是我在在站内过去去的帖子里里看到的一一个公式，用于提取取前文后数数中的文字字部分，非常好用用。请教这这个公式中中最后两步步的意义是是什么？另另外，当A1是“1234个”的格式时时，当如何何提取其中中的文字呢呢？解答：1、公式式的含义是是：查找第第一个半角角字符出现现的位置[SEAARCHBB("?"",A1))]，减去1后除以2，就是文文字的字符符数目，将将其提取出出来。2、=RIGHT((A1,LLENB((A1)--LEN((A1)))56、关于宏和程序我现在已经用eexcell编了一个个较完整的的程序，并并且能够给给源程序加加密码，实实现"工程不可可见"，但是我我发现在vba编辑环境里还能看看到我的大大部分宏，虽虽然说不能能编辑，但但能运行，请请问如何隐隐藏起来。解答：不用模块块函数,重写成类类或放到workkbookk中,或在程序序中直接将将菜单宏隐隐藏。或者者：新建类类，然后将将模块中的的程序拷贝贝到类，提提示：找不不到宏。又问：我现在已已经能做到到屏蔽调alt++F11键了，虽虽然不能看看到我的宏宏程序，但但是依然可可以运行我我的宏，请请高手做答答，如何隐隐藏起我的的宏。解答：在宏的声声明前加Privvate。57、请教多条件求和和的问题大家好，我是个个新手，想想向大家请请教指定多多条件求和和的函数公公式。譬如，有一张工工作表有4列标题：：品名，数数量，日期期，签收人人。若我想求，符合合条件为：：品名为A，日期为Y，签收人人为B的数量之之和。该用那个函数公公式？解答：=IF((A2=""a",IIF(B22="033.10..22",,COUNNTIF((D:D,,D2),,"时间无"),"无")A列品名，B列日日期，C列数量，D列签收人人用if嵌套。或者：数组公式式{=sum(((a1:aa100==品名)*(cc1:c1100=日期)(d11:d1000=签收人)*(BB1:B1100)))}也可以：{=SSUM(((($A$$1:$AA$1000)="aa")*((($B$$1:$BB$1000)="003.100.22""))}58、请教关于星期的的计算？如何通过输入一一个日期：：20033-10--20即可得到到该天在本本年度的第第几个星期期？解答：使用WWEEKNNUM函数。如：=WEEKNUUM(A11)=WEEKNUUM(TOODAY(())或者：日期在aa1=INT((AA1-DAATE(YYEAR((A1),,1,0))+WEEEKDAYY(DATTE(YEEAR(AA1),11,0),,1)+77-WEEEKDAYY(A1,,1))//7)也可以用VBAA：'undertheisostanndardd,aweekkalwwaysbegiinsoonamondday,andendssonasuundayy.'thefiirstweekkofayeeariisthhatwweekwhicchcoontaiinsttheffirsttthuursdaayofftheeyeaar,'or,eqquivaalenttly,conttainssjann-4.'publicfuncctionnisooweekknum((anyddateasddate,,_opptionnalwwhichhformmataasvaariannt)aasinntegeer''whichhformmat:misssingor<<>2thennretturnssweeeknuumberr,'=2thennyywww'dimmthiisyeaarassinttegerrdimmpreeviouusyeaarstaartaasdaatedimmthiisyeaarstaartaasdaatedimmnexxtyeaarstaartaasdaatedimmyeaarnummasinteegerthiisyeaar=yearr(anyydatee)thiisyeaarstaart==yeaarstaart(tthisyyear))preeviouusyeaarstaart==yeaarstaart(tthisyyear-1))nexxtyeaarstaart==yeaarstaart(tthisyyear+1))sellectcaseeanyydateecasseiss>=nexttyearrstarrtisooweekknum=(aanydaate--nexxtyeaarstaart)\7+1yeaarnumm=yyear((anyddate))+11casseiss<tthisyyearsstarttisooweekknum=(aanydaate--preeviouusyeaarstaart)\7+1yeaarnumm=yyear((anyddate))-11casseellseisooweekknum=(aanydaate--thiisyeaarstaart)\7+1yeaarnumm=yyear((anyddate))enddsellectifismiissinng(whhichfformaat)tthenexiitfuunctiionenddififwhicchforrmat=2thennisooweekknum=ciint(fformaat(riight((yearrnum,,2),,"000")&&_forrmat((isowweeknnum,"00""))enddifendfunnctioonpublicfuncctionnyeaarstaart(wwhichhyearrasinteeger))asdateedimweeekdayyasinteegerdimnewwyearrasdateenewyearr=ddatesseriaal(whhichyyear,,1,1)weekdayy=((newyyear-2))modd7ifweekkday<4thennyeaarstaart==newwyearr-wweekddayelseyeaarstaart==newwyearr-wweekdday++7endifendfunnctioon59、请教日期的转换换问题我的程序里有这这样一段代代码：DimstrrAsDateestr=nowwSheet1..Cellls(1,,"A"")=str运行后在单元格格里显示2003/111/1315::19:445但我想让它显示示成如下的的格式：２００３年１１１月１３日日（小时，分分，秒去掉掉）我用year（sttr)想单独取取得年的值值，但显示示19055/06//250:000:00请问有什么好的的方法可以以实现这种种转换吗？？解答：DimstrrAsDateestr=nowwSheet1..Cellls(1,,"A"")=formmat(sstr,""yyyyy年mm月dd日")60、如何用vba实实现删除最最右边的字字符1月、2月、3月10月、11月、12月请问如何用vbba实现把“月”删除只提取：1、2、310、11、12。解答：Subabc(()DimaAAsInntegeerDimbAAsSttringgDimcAAsSttringgc=""Fora==1TToLeen(b))c==c&&IIff(Midd(b,a,11)<>>"月",MMid(bb,a,,1),,""))NextMsgBoxcEndSubb或者：A1=1月、2月、3月、4月、5月、6月、7月、8月、9月、10月、11月、12月[A1]=Appllicattion..WorkksheeetFunnctioon.Suubstiitutee([A11],""月",""")61、请问如何定义相相对定位的的名称我想定义一个各各个工作表表（一个工工作薄内）使使用的名称称。该名称称为相对定定位，如我在sheeet1表的B2中该名称称是sheeet1表的A2，我在sheeet2表的B2中时该名名称是sheeet2表的A2单元格，可可我在定义义名称时它它总是加上上工作表名名。解答：=offfset((indiirectt(adddresss(roww(),ccolummn(),,)),,,-1,,,)62、请问如何替换？？有很多条这样的的记录：*******(2212),,*****(3155),*