将标题分成单词,然后在另一个标题中搜索

除了

我正在尝试自动化一个在A和B列中都具有标题的Excel文件,并且我必须从B中的A中搜索每个单词。如果有任何单词匹配,那么我需要将其粘贴到可用的B列(C,D, ...)在同一行。

我正在使用下面的代码,为此,我将手动在A列标题的单独列中分离单词,然后在B列中进行搜索。

Dim a() As String
Dim b() As String
Dim aRng As Range
Dim cel As Range
Dim i As Integer, t As Integer, clm As Integer

Set aRng = Range(Range("KW1"), Range("KW1").End(xlDown))

For Each cel In aRng
    a = Split(cel, " ")
    b = Split(cel.Offset(, 1), " ")
    clm = 2

    For i = LBound(a) To UBound(a)
        For t = LBound(b) To UBound(b)
            If UCase(a(i)) = UCase(b(t)) Then
                cel.Offset(, clm) = a(i)
                clm = clm + 1
            End If
        Next
    Next

Next

但是它会重复重复重复的单词(如果有的话)。有办法避免重复的单词吗?请帮帮我。

杰森·克莱门特(Jason Clement)

这实际上并不是最干净的方法,但是您可以通过从2的偏移量循环遍历每个填充的单元格,直到到达一个空的单元格,来检查它们。请注意,此代码未经测试。

For i = LBound(a) To UBound(a)
    For t = LBound(b) To UBound(b)
        If UCase(a(i)) = UCase(b(t)) Then
            clm = 2
            Do While True
                If UCase(cel.Offset(, clm)) = UCase(a(i)) Then
                    Exit Do
                End If
                If cel.Offset(, clm) = "" Then
                    cel.Offset(, clm) = a(i)
                    Exit Do
                End If
                clm = clm + 1
            Loop
        End If
    Next
Next

本文收集自互联网,转载请注明来源。

如有侵权,请联系[email protected] 删除。

编辑于
0

我来说两句

0条评论
登录后参与评论

相关文章

来自分类Dev

我可以将测试分成单独的规范,然后从另一个规范中调用它们,还是使用帮助函数更好?

来自分类Dev

C ++在另一个标识符下的标题中使用包含的类

来自分类Dev

根据列标题中的单词将多个文件中的列作为最后一个

来自分类Dev

将一个文件的标题插入另一个文件的顶部

来自分类Dev

将一个文件的标题插入另一个文件的顶部

来自分类Dev

无法将一个标题下的值转移到另一个

来自分类Dev

单击另一个链接时标题中的图像移动异常(仅在IE中显示)

来自分类Dev

读取重复的标题,然后从文件中读取数据,然后使用单个唯一的标题和所有数据写入另一个文件

来自分类Dev

从另一个IBAction更改IBAction的标题

来自分类Dev

sed编辑标题与另一个文件的内容

来自分类Dev

删除另一个程序的标题栏

来自分类Dev

将列文本文件的标题添加到另一个文件

来自分类Dev

将文章标题与另一个表中列出的标签相匹配

来自分类Dev

用固定的位置替换标题,并固定另一个标题位置

来自分类Dev

如何基于另一个小标题的信息添加小标题列

来自分类Dev

当标题已被另一个脚本更改时更改文档标题

来自分类Dev

将标题分隔为单词并搜索标题

来自分类Dev

当一个div的标题位于另一个div的后面时,如何显示该标题?

来自分类Dev

SQL根据标题匹配从一个Databse更新到另一个

来自分类Dev

我想从文件中搜索一个单词,然后用文件中的另一个值替换它

来自分类Dev

将压缩的CSV连接到一个转义的标题中

来自分类Dev

将一个类添加到SlickGrid中的“选定”列标题中

来自分类Dev

VBA将数据透视表数据复制到另一个工作表中+更改标题

来自分类Dev

您如何将另一个类方法的“标题”中的类方法称为默认变量?

来自分类Dev

如何将另一个网站嵌入到我自己的网站中以保持相同的标题

来自分类Dev

如何将标题添加到片段中,以便每当我单击标题时都可以获取另一个片段?

来自分类Dev

在列中搜索1,然后将整个行粘贴到另一个工作表中?

来自分类Dev

用另一个单词替换单词-搜索并替换为红色的数组

来自分类Dev

从另一个片段打开一个片段总是保持前一个片段的标题

Related 相关文章

  1. 1

    我可以将测试分成单独的规范,然后从另一个规范中调用它们,还是使用帮助函数更好?

  2. 2

    C ++在另一个标识符下的标题中使用包含的类

  3. 3

    根据列标题中的单词将多个文件中的列作为最后一个

  4. 4

    将一个文件的标题插入另一个文件的顶部

  5. 5

    将一个文件的标题插入另一个文件的顶部

  6. 6

    无法将一个标题下的值转移到另一个

  7. 7

    单击另一个链接时标题中的图像移动异常(仅在IE中显示)

  8. 8

    读取重复的标题,然后从文件中读取数据,然后使用单个唯一的标题和所有数据写入另一个文件

  9. 9

    从另一个IBAction更改IBAction的标题

  10. 10

    sed编辑标题与另一个文件的内容

  11. 11

    删除另一个程序的标题栏

  12. 12

    将列文本文件的标题添加到另一个文件

  13. 13

    将文章标题与另一个表中列出的标签相匹配

  14. 14

    用固定的位置替换标题,并固定另一个标题位置

  15. 15

    如何基于另一个小标题的信息添加小标题列

  16. 16

    当标题已被另一个脚本更改时更改文档标题

  17. 17

    将标题分隔为单词并搜索标题

  18. 18

    当一个div的标题位于另一个div的后面时,如何显示该标题?

  19. 19

    SQL根据标题匹配从一个Databse更新到另一个

  20. 20

    我想从文件中搜索一个单词,然后用文件中的另一个值替换它

  21. 21

    将压缩的CSV连接到一个转义的标题中

  22. 22

    将一个类添加到SlickGrid中的“选定”列标题中

  23. 23

    VBA将数据透视表数据复制到另一个工作表中+更改标题

  24. 24

    您如何将另一个类方法的“标题”中的类方法称为默认变量?

  25. 25

    如何将另一个网站嵌入到我自己的网站中以保持相同的标题

  26. 26

    如何将标题添加到片段中,以便每当我单击标题时都可以获取另一个片段?

  27. 27

    在列中搜索1,然后将整个行粘贴到另一个工作表中?

  28. 28

    用另一个单词替换单词-搜索并替换为红色的数组

  29. 29

    从另一个片段打开一个片段总是保持前一个片段的标题

热门标签

归档