使用展开的表单和其他文本查找和替换大量缩写文本

时间:2013-12-12 16:32:35

标签: excel vba excel-vba vlookup

我在Excel中有多个项目列表,这些项目都是缩写形式,我想设置一个宏,它将自动遍历列表并将其缩写形式替换为包含字符的常规名称,以便我可以运行Excel中描绘的文本到列功能,允许我正确地查看和排序它们。例如:

It1
It2
It3
It4

Red*Category 1*Item One
Red*Category 2*Item Two
Blue*Category 1*Item Three
Green*Category 2*Item Four

我需要的只是一个简单的查找和替换每个项目,我知道我将不得不从头开始创建,但每个列表将具有相同的项目/类别,所以我不知道最好的方法去关于它。我想知道我是否应该在Excel中创建一个长宏来列出每个单独的查找/替换,或者是否可以执行类似创建XML文件

的操作
    <find>It1</find>
    <replace>Red*Category 1*Item One</replace>

并且只有一个引用它的宏?我的目标是构建一个文件,然后在每个列表中使用一个宏。

1 个答案:

答案 0 :(得分:0)

暂时假定颜色由字体确定,并且使用方法here然后使用查找表,如下所示,可以使用以下公式(向下复制到适合)来实现样本数据的结果:

=VLOOKUP(B1,$K$1:$M$23,2,0)&"*Category "&RIGHT(A1,1)&"*Item "&VLOOKUP(VALUE(RIGHT(A1,1)),$K$1:$M$23,3,0)  

SO20548953 example