Excel 2010从1个单元格宏中拆分文本

时间:2011-05-02 01:23:02

标签: excel vba worksheet-function

好的,在这里快速提问我也遇到了寻找可靠解决方案的问题。假设我有两个专栏; A和B.在“A”栏中,将有包含诸如“项目名称AZ673”之类的名称的单元格,然后在“B”列中将存在诸如“AZ673”之类的ID号。如果我想从A列中的每个名称快速删除该ID号,我该怎么做?请记住,名称和ID之间没有逗号或符号,只是一个空格..但是列彼此正确,并且单元格是并排的,在两者中都包含相同的ID。执行此操作的宏将执行此操作太棒了,谢谢你先进的任何解决方案!

2 个答案:

答案 0 :(得分:1)

一个简单的循环通过他的单元格将完成这个技巧

Set cl = [A1]
Do While cl <> ""
    cl = Trim(Replace(cl, cl.Offset(0, 1), ""))
    Set cl = cl.Offset(1, 0)
Loop

注意:如果您有很多行(读取数量为10或数百),则处理迭代单元格可能会很慢。如果你需要它们,有很多方法可以加快它的速度

答案 1 :(得分:1)

创建另一列并使用此公式:

=LEFT(A1,FIND(B1,A1)-1) & RIGHT(A1,LEN(A1)-FIND(B1,A1)-LEN(B1)+1)