为什么执行查询后，最后一行与倒数第二行一样，总是多出一行，请大师指导

838225419

为什么执行查询后，最后一行与倒数第二行一样，总是多出一行，请大师指导

xunanming

你数据源来里本来就两条符合条件的,自然就筛选出来 了. 同时,去重的unique你设定的是false,自然不能去重了.改成true,就可以去重了.

ww87725244

数据源就有2条一样的啊

838225419

xunanming 发表于 2023-6-27 17:51
你数据源来里本来就两条符合条件的,自然就筛选出来 了. 同时,去重的unique你设定的是false,自然不能去重了. ...

数据源中如果有重复数据可以重复提取，但是数据源中三条数据却提取到了四条记录，不知问题出在哪里？拜求大师

838225419

ww87725244 发表于 2023-6-27 17:56
数据源就有2条一样的啊

数据源中如果有重复数据可以重复提取，但是数据源中三条数据却提取到了四条记录，不知问题出在哪里？拜求大师

半百

838225419 发表于 2023-6-28 08:17
数据源中如果有重复数据可以重复提取，但是数据源中三条数据却提取到了四条记录，不知问题出在哪里？拜求 ...

41305行还有一条数据

838225419

半百 发表于 2023-6-28 09:38
41305行还有一条数据

这是保存的原代码，试了一下每次保存时都会在41305行产生一条数据，不知道为什么？拜求大师指导

Sub 保存()

i = Worksheets("数据2").Cells(Rows.Count, 1).End(3).Row + 1
   With Worksheets("数据2")
  
     '.Cells(i, 1) = Cells(1, "o") '编号
       .Cells(i, 2) = Cells(3, "d")
      .Cells(i, 3) = Cells(3, "k")
      
      .Cells(i, 4) = Cells(5, "p")
      .Cells(i, 5) = Cells(2, 2)
      .Cells(i, 6) = Cells(5, "f")
      .Cells(i, 7) = Cells(5, "g")
      .Cells(i, 8) = Cells(5, "h")
      .Cells(i, 9) = Cells(5, "j")
     ' .Cells(i, 8) = Cells(5, "h")
      .Cells(i, 11) = Cells(5, "i")
      .Cells(i, 12) = Cells(5, "k")
      .Cells(i, 13) = Cells(5, "n")
      .Cells(i, 14) = Cells(6, "p")
      .Cells(i, 15) = Cells(6, "d")
      .Cells(i, 16) = Cells(7, "o")
      '.Cells(i, 15) = Cells(6, "d")
      .Cells(i, 18) = Cells(8, "c")
      .Cells(i, 19) = Cells(8, "m")
      .Cells(i, 20) = Cells(2, "o")
      '.Cells(i, 19) = Cells(8, "g")
      '.Cells(i, 20) = Cells(8, "m")
      '.Cells(i, 21) = Cells(2, 2)
      '.Cells(i, 22) = Cells(2, "g")
      '.Cells(i, 23) = Cells(2, "j")
      '.Cells(i, 24) = Cells(2, "o")
     ' .Cells(i, 25) = Cells(10, "c")
     ' .Cells(i, 26) = Cells(10, "i")
     ' .Cells(i, 27) = Cells(10, "m")
     ' .Cells(i, 28) = Cells(10, "o")
     ' .Cells(i, 29) = Cells(9, "c")
      
       Sheet2.Protect Password:="ffkqwangyuezhou"
      
    End With   
MsgBox "运费单已保存，请查看确认", 289, "提醒 !!!"
      Sheets("数据").Activate
End sub