从下向上查找最近一组的重复数据并提取下一组数据的个位

yhy95331

准提部林 发表于 2022-12-9 23:51
Sub TEST_A1()
Dim Arr, Brr, xD, i&, j%, T$
[g:i].ClearContents

  Brr(i - 1, j) = Right(xD(T), 1)
        xD(T) = Arr(i + 1, j)
大师这两句，顺序放前放后，结果完全不一样，这又是为何，代码是怎么找重复数据的

准提部林

yhy95331 发表于 2022-12-10 23:49
Brr(i - 1, j) = Right(xD(T), 1)
        xD(T) = Arr(i + 1, j)
大师这两句，顺序放前放后，结果完 ...

Brr(i - 1, j) = Right(xD(T), 1)  '將手上的球丟給需要的人(如手上沒球--為空)
xD(T) = Arr(i + 1, j)   '..再接一顆新的球

yhy95331

准提部林 发表于 2022-12-11 10:47
Brr(i - 1, j) = Right(xD(T), 1)  '將手上的球丟給需要的人(如手上沒球--為空)
xD(T) = Arr(i + 1, j)  ...

大师武艺高深，佩服