[已解决]IF语句

楚雪飞扬

判断M列时间点，如果是在U列这个时间范围内时，
在S列填入W列的结果
U列，W列是临时手写的，

最佳答案

月排行榜 / 总排行榜

sam-wang

2022-7-12 07:58

請測試一下，謝謝

Sub test()

Dim Arr, a, xD, Brr(), T$, i&

Set xD = CreateObject("Scripting.Dictionary")

Arr = Range("u3").CurrentRegion

For i = 1 To UBound(Arr)

    T = Arr(i, 1): xD(T) = Arr(i, 2)

Next

Arr = Range([m2], [m65536].End(3))

ReDim Brr(1 To UBound(Arr), 1 To 1)

For Each ky In xD.keys

    a = Split(ky, "到")

    For i = 1 To UBound(Arr)

        If CDate(Arr(i, 1)) > a(0) And CDate(Arr(i, 1)) < a(1) Then

            Brr(i, 1) = xD(ky)

        End If

    Next

Next

Range("s2").Resize(UBound(Brr), 1) = Brr

End Sub

跳转到最佳答案楼层

砂海

根本 就不该 用 if
==========================
从函数 角度 ,这个是标准的vlookup


用 vba , select case

sam-wang

請測試一下，謝謝

Sub test()

Dim Arr, a, xD, Brr(), T$, i&

Set xD = CreateObject("Scripting.Dictionary")

Arr = Range("u3").CurrentRegion

For i = 1 To UBound(Arr)

    T = Arr(i, 1): xD(T) = Arr(i, 2)

Next

Arr = Range([m2], [m65536].End(3))

ReDim Brr(1 To UBound(Arr), 1 To 1)

For Each ky In xD.keys

    a = Split(ky, "到")

    For i = 1 To UBound(Arr)

        If CDate(Arr(i, 1)) > a(0) And CDate(Arr(i, 1)) < a(1) Then

            Brr(i, 1) = xD(ky)

        End If

    Next

Next

Range("s2").Resize(UBound(Brr), 1) = Brr

End Sub

hcm19522

=SUBSTITUTE(TEXT(SUM((FLOOR(INT(M2*24),2)+{0,2})*{100,1}),"0--00"),"-0","-")