各位大神，求教

2的2分之_一 · 发表于 2021-8-10 15:45

数据表中，当送货地址=收货地址时，从原始表中选择出所需要字段，形成目标表
最好有个按钮，每个更新原始表时，点击按钮生成目标表
感谢各位大神不吝赐教

A1233515 · 发表于 2021-8-10 15:52

收货地址找到了，送货地址是哪个？

2的2分之_一 · 发表于 2021-8-10 15:54

A1233515 发表于 2021-8-10 15:52
收货地址找到了，送货地址是哪个？

是收货地址

2的2分之_一 · 发表于 2021-8-10 15:55

A1233515 发表于 2021-8-10 15:52
收货地址找到了，送货地址是哪个？

收货地址=浙江省杭州市余杭区崇贤镇拱康路889号

2的2分之_一 · 发表于 2021-8-10 16:05

数据表中，当“收货地址=浙江省杭州市余杭区崇贤镇拱康路889号”时，从原始表中选择出所需要字段，形成目标表
最好有个按钮，每个更新原始表时，点击按钮生成目标表
感谢各位大神不吝赐教

A1233515 · 发表于 2021-8-10 16:40

https://club.excelhome.net/threa ... tml?_dsign=7ca23c30
在这个贴回复了，供参考

李小超yys · 发表于 2021-8-20 11:16

Sub 查找() Dim i, j, k, arr, brr, x, y, rng As Range Dim jgsheet As Worksheet, yssheet As Worksheet Set jgsheet = Worksheets("结果") Set yssheet = Worksheets("原始") x = Trim(jgsheet.Cells(1, 9)) j = 2 For i = 1 To yssheet.Cells(Rows.Count, "J").End(xlUp).Row If Trim(yssheet.Cells(i, 10)) = x Then jgsheet.Cells(j, 1) = yssheet.Cells(i, 1) jgsheet.Cells(j, 2) = yssheet.Cells(i, 6) jgsheet.Cells(j, 3) = yssheet.Cells(i, 7) jgsheet.Cells(j, 4) = yssheet.Cells(i, 28) jgsheet.Cells(j, 5) = yssheet.Cells(i, 29) jgsheet.Cells(j, 6) = yssheet.Cells(i, 44) j = j + 1 End If Next MsgBox ("查找完毕") End Sub

李小超yys · 发表于 2021-8-20 11:16

Sub 查找()
Dim i, j, k, arr, brr, x, y, rng As Range
Dim jgsheet As Worksheet, yssheet As Worksheet

Set jgsheet = Worksheets("结果")
Set yssheet = Worksheets("原始")
x = Trim(jgsheet.Cells(1, 9))
j = 2
For i = 1 To yssheet.Cells(Rows.Count, "J").End(xlUp).Row

      If Trim(yssheet.Cells(i, 10)) = x Then
         jgsheet.Cells(j, 1) = yssheet.Cells(i, 1)
         jgsheet.Cells(j, 2) = yssheet.Cells(i, 6)
         jgsheet.Cells(j, 3) = yssheet.Cells(i, 7)
         jgsheet.Cells(j, 4) = yssheet.Cells(i, 28)
         jgsheet.Cells(j, 5) = yssheet.Cells(i, 29)
         jgsheet.Cells(j, 6) = yssheet.Cells(i, 44)
         j = j + 1
      End If
Next
      MsgBox ("查找完毕")
End Sub

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