求问，怎么样可以把有规则的数据填充到另一个表呢

dreaminhere

excel小白白2 发表于 2022-11-9 11:01
基本能实现功能，数据中缺失的一块，为 账单中品名与上货单内的品名不完全一致（"男款黑-L" ，“男款黑色-L ...

打开就死机了。。。。咋整啊

dreaminhere

excel小白白2 发表于 2022-11-9 11:01
基本能实现功能，数据中缺失的一块，为 账单中品名与上货单内的品名不完全一致（"男款黑-L" ，“男款黑色-L ...

点了SHEET1的按钮1，然后选择文件。。。没反应啊

excel小白白2

dreaminhere 发表于 2022-11-10 14:59
点了SHEET1的按钮1，然后选择文件。。。没反应啊

代码里结果是输出在测试工作簿 sheet34的（测试用），没有输出到 工作簿10.1中，可以注释掉测试行，取消实际输出行的注释符号

gwjkkkkk

Sub TEST()
    Dim strFileName$, wkb As Workbook, arr, i&, dic As Object, iRow&
    Set dic = CreateObject("Scripting.Dictionary")
    Application.ScreenUpdating = False
    strFileName = ThisWorkbook.Path & "\9.29账单.xlsx"
        If strFileName <> ThisWorkbook.Name Then
           Set wkb = GetObject(strPath & strFileName)
              With wkb.Sheets(2)
                 arr = .[A1].CurrentRegion
                 For i = 2 To UBound(arr)
                   If arr(i, 1) <> "" Then
                    dic(arr(i, 1)) = arr(i, 2)
                   End If
                 Next i
              End With
           wkb.Close False
        End If
    iRow = Cells(Rows.Count, 1).End(xlUp).Row
    arr = [A1].CurrentRegion.Resize(iRow)
    For i = 1 To UBound(arr)
      If arr(i, 1) <> "" Then arr(i, 2) = dic(arr(i, 1))
    Next i
    [A1].Resize(UBound(arr), UBound(arr, 2)) = arr
    Set wkb = Nothing
    Application.ScreenUpdating = True
    Beep
End Sub

gwjkkkkk

字典法参与一下。。。

dreaminhere

gwjkkkkk 发表于 2022-11-10 16:14
字典法参与一下。。。

啊，多谢大佬帮忙，请问，我如果有其他的表格数字要往这个上货数据里填写，应该怎么添加呢？

dreaminhere

gwjkkkkk 发表于 2022-11-10 16:14
字典法参与一下。。。

大佬 能再次指点下吗。谢谢