程序双循环遇到问题

TESLA001

尊敬的利用VBA编程的各位高手下午好，我现在遇到一个关于双循环的问题，请大家予以解答，在线等！
本次编程想要的结果是根据物探深度在地质深度的区间，将地质深度的岩性赋予物探岩性，比如说，物探深度0.25在地质深度0.00~0.90之间，那么物探岩性就是0.90的地质岩性泥岩，物探深度2.70在地质深度1.80~2.70之间，那么物探岩性也是2.70的岩性泥岩，其中物探深度部分会重复。
代码部分：

Sub 拆分1()
    Dim dz As Variant
    Dim wt As Variant
    Dim dznum As Integer
    Dim wtnum As Integer
    dznum = Application.WorksheetFunction.CountA(range("A:A"))
    wtnum = Application.WorksheetFunction.CountA(range("C:C"))
    dz = ActiveSheet.range("A1", "B" & dznum)
    wt = ActiveSheet.range("C1", "D" & wtnum)
    Dim dzi As Integer
    Dim wti As Integer
    dzi = 2
    wti = 2
    While dzi <= dznum
        While wti <= wtnum And wt(wti, 1) > dz(dzi, 1) And wt(wti, 1) <= dz(dzi + 1, 1)
            wt(wti, 2) = dz(dzi + 1, 2)
            ActiveSheet.range("D" & wti).Value = wt(wti, 2)
            wti = wti + 1
        Wend
        dzi = dzi + 1
    Wend
End Sub


执行结果：根据图片，红色框的部分应该泥岩，为什么每次程序执行到这里的时候，就自动跳出了循环，是因为我的循环判断条件有问题吗？
麻烦各位高手指导，非常感谢

Qs18

上附件直观一些

Qs18

Sub test2()
For i = 2 To Cells(Rows.Count, 1).End(3).Row
    Range("d" & i) = WorksheetFunction.VLookup(Range("c" & i), Range("a:b"), 2, 1)
Next
End Sub

longwin

1. Sub 拆分1()
   
2. '此算法要确保A列是按照从小到大排序
   
3.     Dim dz As Variant
   
4.     Dim wt As Variant
   
5.     Dim l As interger
   
6.     l = ActiveSheet.[A1].End(xlDown).Row
   
7.     dz = ActiveSheet.Range("A2", "B" & l)
   
8.     wt = ActiveSheet.Range("C2", "D" & l)
   
9.     For i = 1 To UBound(wt)
   
10.         For j = 1 To UBound(dz)
    
11.             If dz(j, 1) >= wt(i, 1) Then
    
12.                 wt(i, 2) = dz(j, 2)
    
13.                 Exit For
    
14.             End If
    
15.         Next
    
16.     Next
    
17.   ActiveSheet.[C2].Resize(UBound(wt), 2) = wt
    
18. End Sub

复制代码

longwin

TESLA001

longwin 发表于 2024-5-12 16:42

还是有问题啊

TESLA001

longwin 发表于 2024-5-12 16:42

这里还是有问题的

longwin

测试没有问题，建议检查一下你的数据：

TESLA001

longwin 发表于 2024-5-12 21:28
测试没有问题，建议检查一下你的数据：

我把我的excel软件都降级了，降成2010版了，然后把相同的程序读入后，还是有问题 我自己都快崩溃了

joy.008@163.com

TESLA001 发表于 2024-5-13 10:32
我把我的excel软件都降级了，降成2010版了，然后把相同的程序读入后，还是有问题 我自己都快崩溃了

估计楼主的数据有浮点 就是数据看着是3.00  实际数据是 3.000000001
可以在程序中用 round这类的函数过滤一下数据 应该就能避免误报了