如何根据要求查找内容后自动输出BOM表

zopey · 发表于 2017-4-25 21:48

其他列你可以用函数补充完整信息。（因为第一列是唯一的关键字）
或者你再上传个范例，明天我再帮你改改。

xubo_eddy · 发表于 2017-4-25 22:09

zopey 发表于 2017-4-25 21:48
其他列你可以用函数补充完整信息。（因为第一列是唯一的关键字）
或者你再上传个范例，明天我再帮你改 ...

嗯，谢谢，你提醒我了，应该可以先找出一列，然后用函数VLOOKUP，或者LOOKUP根据第一列唯一关键字再去找其他需要的列。

不过，目前品名列不是唯一的，应该是品番列是唯一的，但是也有可能发生，同一个品番用到两次，那怎么去找出两次的数据来呢？

那能否先告诉我如何找出第一列，比如我要找品番的那一列，就可以了，其他列就不要显示出来了。然后，我用函数公式，根据品番，去找其他列信息。

zopey · 发表于 2017-4-26 10:51

我把能填写的都加进去了，看看这样，合不合你要求。

BOM表自动整理表22.zip (55.65 KB, 下载次数: 63)

xubo_eddy · 发表于 2017-4-26 21:29

zopey 发表于 2017-4-26 10:51
我把能填写的都加进去了，看看这样，合不合你要求。

高手，你好，真的是非常感谢你的帮助，功能和我想的已经很接近了，但是我这个只是个模板，我后续还要改，比如规定在第几行输出，总BOM的表格式再更改等，所以最好是你能告诉我你的思路和程序语句的解释，这样，我自己修改会很方便，我想简单学习下，我想也不会花费你多少时间，因为花费了你的宝贵时间，我可以给适当的费用以答谢你的教育，以上，谢谢。

xubo_eddy · 发表于 2017-4-26 23:44

zopey 发表于 2017-4-26 10:51
我把能填写的都加进去了，看看这样，合不合你要求。

高手，你好，大概语法我已经琢磨出来了，不过还是希望和你交个朋友，今后的工作中，我到是有很多想法，但是没有好的办法，你却是有好的办法的，以后还是希望能够多多向你讨教，指导的。

zopey · 发表于 2017-4-27 08:29

xubo_eddy 发表于 2017-4-26 23:44
高手，你好，大概语法我已经琢磨出来了，不过还是希望和你交个朋友，今后的工作中，我到是有很多想法，但 ...

加站内好友就可以了，通过发帖、回帖交流不是挺好的嘛。
我也是在学习提高，通过帮人解答问题的实践中学习excel知识。
希望共同进步！

zopey · 发表于 2017-4-27 08:38

清空输出表 3行往后数据：为下次准备
Sheets("BOM输出表").Rows("3:65536").ClearContents

循环语句  ：遍历bom总表 4至239行
For i = 4 To 239
Next

判断语句：判断当前记录是否满足选择
If a1 <> "" And Sheets("BOM总表").Cells(i, 9).Value = a1 Then
end if

赋值语句：将总表某单元格的内容赋值到输出表的某格，用行号、列号定位
   Sheets("BOM输出表").Cells(k, 1).Value = Sheets("BOM总表").Cells(i, 1).Value
   Sheets("BOM输出表").Cells(k, 2).Value = Sheets("BOM总表").Cells(i, 2).Value
   Sheets("BOM输出表").Cells(k, 3).Value = Sheets("BOM总表").Cells(i, 3).Value

步长变量k：3行开始逐行往输出表添加总表数据
k=3
k=k+1

xubo_eddy · 发表于 2017-4-27 21:03

恩,非常感谢，因为白天在单位，单位网络无法上论坛的，只能回家以后再回复，非常好，我在慢慢完善我的表，很感谢你的帮助，希望后续有问题，还能帮忙解答，非常感谢。

xubo_eddy · 发表于 2017-4-27 22:39

zopey 发表于 2017-4-27 08:38
清空输出表 3行往后数据：为下次准备
Sheets("BOM输出表").Rows("3:65536").ClearContents

你好，不好意思，由于论坛限制，新人还不能加论坛好友，等我级别提高了，再加你好友，谢谢。

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

[求助] 如何根据要求查找内容后自动输出BOM表

最新热点 /1