Question

求大神帮忙编写一个vba

要求：1.在 整理表 设计一个搜索框，搜索 原表 里的送货单号码，搜索结果所在行复制到整理表对应位置，比如搜索“11”，则在原表搜到三行数据，把这些数据对应复制到整理表中，再搜索“106”，对应一行数据接着上次的复制到整理表中（送货单号码随机）2.整理表蓝色三列是有公式，复制时不能被删除





Answer 1

11和106是你自己填写的，还是随机生成的？
如果是填写的，是按图中写的，还是每个数只写一次？是连续写的，还是中间有空行？

追问

其实我就是想在第二张图的表弄一个下面这种输入框，我搜索送货单号，图一标黄的内容就相应复制到图二的表，然后图二蓝色三列是有计算公式的。

比如我搜“11”，原表中有三行产品内容，那三行内容就对应复制到图二的表，如果我再搜“106”的话，原表有一行数据，那一行数据就接着上面的同样复制到图二的表，如果我搜“200”，图一的表没有这个数据，就显示没有。（11、106是送货单号，是厂里打单的时候随便写的）

追答

截图没有行列标，数据标题有移位，发个表样给我。

Answer 2

你这个核心不在于输入框，而是自定义转置，就是将一个表转换到另一个表，列位置都可以不同，还可以进行数据转换，你说的无非就是加一个筛选。

EXCEL不是客户端，它的特点就是灵活的表格数据，所以没必要在EXCEL内容上加一个单一的文本框，既不美观也没意义，如果数据已经被转换到另一个表，完全可以利用EXCEL本身的筛选功能完成你指定关键词的功能。

把重点放在数据转换上，比如定制一个与业务密切相关的可配置的表格转换程序，不过这个程序很复杂。

如果只是为了有个界面，想让操作数据时简洁些，可以创建切片器，选中表数据按CTRL-T创建表，然后在插入菜单内找到切片器。

然后就可以选择了，