
EXCEL中某单元格里的六个字符中有几个是相同的,从左到右我只想保留前面三个不同的字符。怎么做?求助。
例如:A1单元格里有字符DADACB,我从左到右想取出前三个不同的字符DAC。或是A1有字符DAABDC,想取出前三个不同的字符DAB等类似问题。求解请教各位大侠,谢谢!...
例如:A1单元格里有字符DADACB,我从左到右想取出前三个不同的字符DAC 。或是A1有字符DAABDC ,想取出前三个不同的字符DAB等类似问题 。求解请教各位大侠,谢谢!
展开
4个回答
展开全部
很简单啊,用鼠标双击该单元格,光标可以停留在任意字符后面,然后删除到你想要的效果即可。
追问
大批量自动进行,你这答案傻子都会。谢谢!
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
=LEFT(A1)&LEFT(SUBSTITUTE(A1,LEFT(A1),))&LEFT(SUBSTITUTE(SUBSTITUTE(A1,LEFT(A1),),LEFT(SUBSTITUTE(A1,LEFT(A1),)),))
更多追问追答
追问
这个好像对“或是A1有字符DAABDC ,想取出前三个不同的字符DAB等类似问题 ”这样的情况不行。但也谢谢!
追答
兄弟,我是测试过后才发的
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
插入一个命令按钮,双击,写入以下代码:
Private Sub CommandButton1_Click()
Dim x As String
Dim a As String
Dim b As String
a = Cells(1, 1).Value
For i = 1 To Len(a)
x = Mid(a, i, 1)
If InStr(1, b, x) = 0 Then b = b + x
If Len(b) >= 3 Then Exit For
Next
Cells(1, 2).Value = b
End Sub
结果就会出现在B2中了,我已经试验好了
Private Sub CommandButton1_Click()
Dim x As String
Dim a As String
Dim b As String
a = Cells(1, 1).Value
For i = 1 To Len(a)
x = Mid(a, i, 1)
If InStr(1, b, x) = 0 Then b = b + x
If Len(b) >= 3 Then Exit For
Next
Cells(1, 2).Value = b
End Sub
结果就会出现在B2中了,我已经试验好了
追问
如何插入命令按钮
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
无语,人家把程序都贴出来了,强啊。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询