ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 2187|回复: 13

[求助] 求老师帮忙写一段代码

[复制链接]

TA的精华主题

TA的得分主题

发表于 2020-2-27 17:02 | 显示全部楼层 |阅读模式
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
每天都要做重复的事,本里想录制宏,不过每次查找的都是固定单元格的值,所以来请老师帮忙写一个代码!
附件只是很小很小的一部分,要求也在表2里面了,先谢谢老师!

库存更新.zip

31.65 KB, 下载次数: 19

TA的精华主题

TA的得分主题

发表于 2020-2-27 21:03 | 显示全部楼层
建议楼主重新复述下要求,找到sn1的值又如何,覆盖原记录?不覆盖原纪录找这个值干什么

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-2-28 09:20 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
以RT9122007440691为例,就是找到RT9122007440691在表1的位置后,把“山西省运城市绛县绛县涑水大街西端路南”填到N2,“TLS051986”填到O2,“2020/1/2”填到P2,“李路”填到Q2,“N”填到K2,以此类推
我这是从几万行里面摘的一点,用VLOOKUP的话会也很不方便

TA的精华主题

TA的得分主题

发表于 2020-2-28 09:47 | 显示全部楼层
497598075 发表于 2020-2-28 09:20
以RT9122007440691为例,就是找到RT9122007440691在表1的位置后,把“山西省运城市绛县绛县涑水大街西端路 ...

字典,数组,循环匹配,就可以了,
代码如下:
  1. Sub 更新数据()
  2.     Dim arr, i As Long, mStr As String, j As Integer
  3.     Dim d As Object: Set d = CreateObject("Scripting.Dictionary")
  4.     arr = Worksheets("Sheet2").UsedRange.Value
  5.     For i = 2 To UBound(arr)
  6.         If Len(arr(i, 5)) > 0 And Not d.Exists(arr(i, 5)) Then d(arr(i, 5)) = Array(arr(i, 9), arr(i, 3), arr(i, 13), arr(i, 8), arr(i, 18))
  7.     Next
  8.     arr = Worksheets("Sheet1").UsedRange.Value
  9.     For i = 2 To UBound(arr)
  10.         mStr = arr(i, 9)
  11.         If d.Exists(mStr) Then
  12.             arr(i, 11) = d(mStr)(4)
  13.             For j = 14 To 17
  14.                 arr(i, j) = d(mStr)(j - 14)
  15.             Next
  16.         End If
  17.     Next
  18.     With Worksheets("Sheet1")
  19.         .Activate
  20.         Worksheets("Sheet1").UsedRange.Value = arr
  21.     End With
  22.     Set d = Nothing
  23. End Sub
复制代码


评分

1

查看全部评分

TA的精华主题

TA的得分主题

发表于 2020-2-28 09:50 | 显示全部楼层
本帖最后由 opel-wong 于 2020-2-28 09:52 编辑
497598075 发表于 2020-2-28 09:20
以RT9122007440691为例,就是找到RT9122007440691在表1的位置后,把“山西省运城市绛县绛县涑水大街西端路 ...

代码在审核,先上图,   
075.png





TA的精华主题

TA的得分主题

发表于 2020-2-28 10:04 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
  1. Sub test()
  2.     Dim i, j, d, arr, brr
  3.     Set d = CreateObject("Scripting.Dictionary")
  4.     With Worksheets("Sheet2")
  5.         arr = .Range("A2:S" & .Cells(.Rows.Count, 1).End(xlUp).Row)
  6.         For i = 1 To UBound(arr)
  7.             d(arr(i, 5)) = arr(i, 18) & "|" & arr(i, 9) & "|" & arr(i, 3) & "|" & arr(i, 17) & "|" & arr(i, 8)
  8.         Next
  9.     End With
  10.     With Worksheets("Sheet1")
  11.         brr = .Range("A2:R" & .Cells(.Rows.Count, 1).End(xlUp).Row)
  12.         For i = 1 To UBound(brr)
  13.             If d.Exists(brr(i, 9)) Then
  14.                 brr(i, 11) = Split(d(brr(i, 9)), "|")(0)
  15.                 brr(i, 14) = Split(d(brr(i, 9)), "|")(1)
  16.                 brr(i, 15) = Split(d(brr(i, 9)), "|")(2)
  17.                 brr(i, 16) = Split(d(brr(i, 9)), "|")(3)
  18.                 brr(i, 17) = Split(d(brr(i, 9)), "|")(4)
  19.             End If
  20.         Next
  21.     End With
  22.     [A2].Resize(UBound(brr), UBound(brr, 2)) = brr
  23. End Sub
复制代码


评分

1

查看全部评分

TA的精华主题

TA的得分主题

发表于 2020-2-28 10:08 | 显示全部楼层
请参考附件:(按照你的要求,Sheet2中的“收货地址”列填写到Sheet1中的“库位”列,请再次确认。)
库存更新.rar (31.79 KB, 下载次数: 1)

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-2-28 11:56 | 显示全部楼层
opel-wong 发表于 2020-2-28 09:47
字典,数组,循环匹配,就可以了,
代码如下:

谢谢老师,你这个可以用,不过如果我想把表2里面的信息粘到表1的其他位置该怎么改呢?

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-2-28 14:19 | 显示全部楼层
shenjianrong163 发表于 2020-2-28 10:08
请参考附件:(按照你的要求,Sheet2中的“收货地址”列填写到Sheet1中的“库位”列,请再次确认。)

老师,你这个为啥我运行后是把表1的数据弄到表2来了呢?

TA的精华主题

TA的得分主题

发表于 2020-2-28 14:56 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
497598075 发表于 2020-2-28 14:19
老师,你这个为啥我运行后是把表1的数据弄到表2来了呢?

[A2].Resize(UBound(brr), UBound(brr, 2)) = brr这一句的前面加“.”,改为这样:
.[A2].Resize(UBound(brr), UBound(brr, 2)) = brr
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-3-29 20:41 , Processed in 0.046919 second(s), 14 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表