假设数据在A列在B1输入公式=REPLACE(A1,1,1,)回车确定，鼠标对准单元格右下角,当出现一个黑色小十字时,同时按住鼠标左键往下拖动填充用替换（Ctrl+H),查找字为固定字符，替换为不输入任何值，点击全部替换。示例，...

'从B列第一行开始逐个统计，结果显示在C列Subtj()Forr=1ToRange("B65536").End(xlUp).RowDimaa=Cells(r,2)Dimnn=Len(a)DimxAsIntegerFori=1Tonx=x+Mid(a,...

如果是单元格内的数据包含问号，可以使用Len和Left函数达到效果。比如：Sub去掉问号()[b2]=Left([a2],Len([a2])-1)EndSub代码的运行效果如下图：

1、首先需要在电脑上将Excel软件打开，接下来在Excel中新建一个文档表格。2、接下来在表格中输入需要提取的数字。3、接下来在表格中输入公式“=mid（A1,7,6）”，“mid”表示需要提取中间数字，“A1”表示要提取的数字栏...

1、首先在开发工具中打开VBA编辑器。2、在单元格区域当中输入一些内容作为例子。3、在VBA编辑器中插入模块。4、在模块当中输入如下代码，然后运行PrivateSubTextBox2_Change()DimiStrAsString,iLastAsIntegeriStr=...

i,1),Chr(10))j=InStr(t,"YY工厂")Ifj>0Thens=s&Mid(t,j+5,Len(t))&"->"NexttEndIfIfs<>""ThenCells(i,2)=Left(s,Len(s)-2)NextiEndSub...

判断A1单元格，输入：=IF(LENB(A1)<>LEN(A1),"单元格包含汉字","没有汉字")，或输入：=IF(LENB(A1)=2*LEN(A1),"全部是汉字","不全是汉字")

IfLen(Cells(i,col))<>11AndIsNumeric(Cells(i,col))=FalseAnd_Left((Cells(i,col)),2)=13OrLeft((Cells(i,col)),2)=15Or_Left((Cells(i,col)),2)=18ThenCe...

我是随便对ABC三列的和值输入的，我知道可能有负值的可能，现请将24行改为：上面那段代码属于VBA语言。如下数据，如果A列等于“鱼”或者B列等于1，则返回“真”，否则为“假”：对是对了，不过用selectcase编的话会...

这个地方相当于把A1:B100这个区域的数值放在数组Arr里。因为数组在VBA里有相应的函数可以用。所以经常把区域赋值给数组。IfArr(i,1)<>""AndArr(i,2)<>""Then做个循环，如果数组的第i行的第一列和第...