用VBA自动填充B列数字，求大神指点，急急急

姗姗好啊

已知条件：J列相同的内容对应K不同的数字(从1开始），
求解：A列内容(也是已知的）如果包含在J列中，就在对应的B列自动填充一个数字，要求这个数字不准和J列相同内容对应K列的数字一样。
举例：A列的202752_0，在J列中存在，并且在K列对应1和6，所以在B列中让自动填充个2，这个填充数字VBA怎么实现

gwjkkkkk

Option Explicit
Sub TEST9()
    Dim ar, i&, j&, dic As Object
   
    Application.ScreenUpdating = False
    Set dic = CreateObject("Scripting.Dictionary")
    ar = [J1].CurrentRegion.Value
   
    For i = 2 To UBound(ar)
        If Not dic.exists(ar(i, 1)) Then
            Set dic(ar(i, 1)) = CreateObject("Scripting.Dictionary")
        End If
        dic(ar(i, 1))(ar(i, 2)) = ""
    Next i
   
    ar = [A1].CurrentRegion.Value
    For i = 2 To UBound(ar)
        If dic.exists(ar(i, 1)) Then
            For j = 1 To 10000
                If Not dic(ar(i, 1)).exists(j) Then
                    ar(i, 2) = j
                    dic(ar(i, 1))(j) = Empty
                    Exit For
                End If
            Next j
        Else
            ar(i, 2) = Empty
        End If
    Next i
  
    [A1].CurrentRegion.Value = ar
    Set dic = Nothing
    Application.ScreenUpdating = True
End Sub

gwjkkkkk

请参考附件。。。

清风竹-

请看附件。

cnmlgb9998

1. let
   
2.     源 = Table.NestedJoin(表1, {"ENBID_LCRID"}, 表2, {"ENBID_LCRID"}, "表2", JoinKind.LeftOuter),
   
3.     #"展开的“表2”" = Table.ExpandTableColumn(源, "表2", {"Data"}, {"表2.Data"}),
   
4.     已添加自定义 = Table.AddColumn(
   
5.         #"展开的“表2”",
   
6.         "自定义",
   
7.         each [
   
8.             a = List.RemoveMatchingItems({0 .. 9}, [表2.Data]),
   
9.             b = List.Count(a),
   
10.             c = a{Number.IntegerDivide(Number.RandomBetween(0, b - 1), 1)}
    
11.         ][c]
    
12.     ),
    
13.     删除的列 = Table.RemoveColumns(已添加自定义, {"表2.Data"})
    
14. in
    
15.     删除的列

复制代码

准提部林

取個巧, 限1 ~ 99

Sub Test_A1() '\\by.准提部林
Dim Arr, xD, T$, S$, i&, V%
Set xD = CreateObject("scripting.dictionary")
Arr = Range([k1], [j65536].End(3))
For i = 2 To UBound(Arr)
    S = xD(Arr(i, 1))
    If S = "" Then S = String(99, "\")
    Mid(S, Arr(i, 2), 1) = "="
    xD(Arr(i, 1)) = S
Next i
Arr = Range([b2], [a65536].End(3))
For i = 1 To UBound(Arr)
    T = Arr(i, 1): Arr(i, 1) = ""
    S = xD(T): V = InStr(S, "\")
    If V > 0 Then Mid(S, V, 1) = "=": xD(T) = S: Arr(i, 1) = V
Next i
[b2].Resize(UBound(Arr)) = Arr
End Sub