Excel单元格内容包含指定单元格内容时，如何把“指定单元格2”复制到“单元格1”后面？

Posted 2023-03-12

Excel单元格内容包含指定单元格内容时，如何把“指定单元格2”复制到“单元格1”后面，两种得到结果都可以，或者任何方法只要能达到这个希望的结果就可以。求大神赐教！！！

用powerquery的自定义函数可解决：

这是自定义函数的代码：

(word)=>let

源 = Excel.CurrentWorkbook()[Name="表2"][Content],

自定义1 = Table.DemoteHeaders(源),

更改的类型 = Table.TransformColumnTypes(自定义1,"Column1", type text),

筛选的行 = Table.SelectRows(更改的类型, each ([Column1] <> "" and [Column1] <> "单元格1")),

筛选的行1 = Table.SelectRows(筛选的行, each Text.Contains([Column1], word))

in

筛选的行1

然后在下面的主查询中调用这个函数，如下图所示：

let

源 = Excel.CurrentWorkbook()[Name="表1"][Content],

自定义1 = Table.DemoteHeaders(源),

更改的类型 = Table.TransformColumnTypes(自定义1,"Column1", type text),

已添加自定义 = Table.AddColumn(更改的类型, "自定义", each fn([Column1])),

#"展开的“自定义”" = Table.ExpandTableColumn(已添加自定义, "自定义", "Column1", "Column1.1"),

筛选的行 = Table.SelectRows(#"展开的“自定义”", each ([Column1.1] <> null)),

删除的副本 = Table.Distinct(筛选的行),

分组的行 = Table.Group(删除的副本, "Column1.1", "data", each _, type table [Column1=text, Column1.1=text]),

自定义2 = Table.TransformColumns(分组的行,"data",each  Text.Combine(_[Column1],"/"))

in

自定义2

提供一个示例文件供参考：链接: https://pan.baidu.com/s/1uRheb8snDIbFSiC6kahXmw 提取码: tmj7

用法：用excel2016及以上版本打开，替换原始数据区域，然后点击【数据】选项卡，点击”全部刷新“，新结果就出来了。如果是低版本，需要自行百度安装启用powerquery插件。

参考技术A

这个问题，用公式，我能想出的办法，也是用数组公式，但是限制较多，一般来说，我还是习惯用宏来解决，如果需要，直接沟通吧。

因为用宏，对文件数据格式有要求。

来自：求助得到的回答 参考技术A B2=INDEX($H:$H,MATCH(,0/FIND($H$2:$H$8,$A2))+1)
数组公式，同时按CTRL SHIFT 回车键追答

要多列显示包含的结果，
要VBA

追问

能耽误您宝贵的时间，教我一下吗？

追答

我试下给你写个代码

追问

非常感谢，我等候您的代码

追答

Sub 查找()
Dim I, R
For I = 2 To Range("a65536").End(xlUp).Row
For R = 2 To Range("H65536").End(xlUp).Row
If Cells(I, "a") Like "*" & Cells(R, "h") & "*" Then
Cells(I, 2) = Cells(I, 2) & "," & Cells(R, "h")
End If
Next
Next
End Sub