各位大神，求教

2的2分之_一

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

A1233515

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

2的2分之_一

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

是收货地址

2的2分之_一

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

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

2的2分之_一

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

A1233515

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

李小超yys

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

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