师傅们 帮忙指点一下
表二中 A2:A100 数据是自己后填进去的
用什么思路去 表一中 匹配数据啊?
刚接触VBA 需要同时匹配 itemNO 和 warehousename 有好的建议吗?
谢谢先
2条回答 默认 最新
- CSDN专家-showbo 2022-01-09 06:47关注
ItemNo是放一起的吗?如果是直接遍历表1,判断itemNo不一样时新起一行依次填充FG,RM,TOOL,SP的值。
不是在一起,可以遍历表一用scripting.dictionary归类FG,RM,TOOL,SP的值(放数组中),然后键名称为ItemNo,然后再遍历字典依次写入表2(当然也可以在在遍历表1的时候用Find函数找表2中的ItemNo是否存在,存在就写入对一个的列值)
下面代码为ItemNo连续的示例
Sub writeData() rownum = Sheets("sheet1").Range("A65536").End(xlUp).row itemno = "" RowIndex = 1 For i = 2 To rownum If itemno <> Sheets("sheet1").Cells(i, "B") Then 'ItemNo²»Ò»Ö£¬ÐÂÆðÒ»ÐÐ itemno = Sheets("sheet1").Cells(i, "B") RowIndex = RowIndex + 1 Sheets("sheet2").Cells(RowIndex, "A") = itemno End If WarehouseName = Sheets("sheet1").Cells(i, "A") cellName = "B" If WarehouseName = "RM" Then cellName = "C" ElseIf WarehouseName = "TOOL" Then cellName = "D" ElseIf WarehouseName = "SP" Then cellName = "E" End If Sheets("sheet2").Cells(RowIndex, cellName) = Sheets("sheet1").Cells(i, "C") Next End Sub
有其他问题可以继续交流~本回答被题主选为最佳回答 , 对您是否有帮助呢?解决 无用评论 打赏 举报 编辑记录PengLianJun 2022-01-09 09:02你好!你的代码是将表一数据 按要求整理好放到表二 实际上我想达到的目的是 在表二 A列输入 ItemNO 能从 表一 查询出 对应库位的库存 有点出入 还是很感谢你
赞回复展开全部8条评论
悬赏问题
- ¥15 爱快路由器端口更改错误导致无法访问
- ¥20 安装catkin时遇到了如下问题请问该如何解决呢
- ¥15 VAE模型如何输出结果
- ¥15 编译python程序为pyd文件报错:{"source code string cannot contain null bytes"
- ¥20 关于#r语言#的问题:广义加行模型拟合曲线后如何求拐点
- ¥15 fluent设置了自动保存后,会有几个时间点不保存
- ¥20 激光照射到四象线探测器,通过液晶屏显示X、Y值
- ¥50 数据库开发问题求解答
- ¥15 安装anaconda时报错
- ¥15 小程序有个导出到插件方式,我是在分包下引入的插件,这个export的路径对吗,我看官方文档上写的是相对路径