只保留标题行带关键词的列

dxyll0614 · 发表于 2022-12-8 12:23

本帖最后由 dxyll0614 于 2022-12-8 12:51 编辑

见附件，只保留标题是<图片><款式编码><商品编码><成本价>的列，做好是能支持模糊关键词

蓝桥玄霜 · 发表于 2022-12-8 12:29

建议上传Excel表格附件来说明问题。
没有表格附件的求助帖很少能获得满意的回复。

ykcbf1100 · 发表于 2022-12-8 13:08

保留关键字标题

dxyll0614 · 发表于 2022-12-8 14:13

ykcbf1100 发表于 2022-12-8 13:08
保留关键字标题

您好，我想保留关键词标题和他对应的列下的所有内容，这个要怎么改呢

3190496160 · 发表于 2022-12-8 20:42

应该是一个数组+字典的问题吧，常规的做法：在另外一个工作表的第一行内列出需要保留的列，然后字典匹配获取相应列的数据
目前的附件仅仅只有一行标题在那儿，不知所云啊

gwjkkkkk · 发表于 2022-12-8 20:56

请楼主参考附件。。。

ggmmlol · 发表于 2022-12-9 01:32

Sub 宏1()
With Sheets.Add
.Range("A1:D1") = [{"图片","款式编码","商品编码","成本价"}]
Sheets("Sheet1").Range("A1").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=.Range("A1:D1"), Unique:=False
End With
End Sub

复制代码

		自动登录	找回密码
密码			免费注册

[求助] 只保留标题行带关键词的列