1 CEILING函數(shù)

公式=TEXT(CEILING(MONTH(A2)/3,1),'[dbnum1]第0季度')

MONTH(A2)/3得到以下一組數(shù)字

0.333333333

0.666666667

1

1.333333333

1.666666667

2

2.333333333

2.666666667

3

3.333333333

3.666666667

4

然后用CEILING沿絕對(duì)值增大的方向向上舍入為最接近的指定基數(shù)的倍數(shù)，這里的第二參數(shù)是1，即向上舍入到1的倍數(shù)的數(shù)字。當(dāng)然，也可以用ROUNDUP等其他函數(shù)。

最后嵌套TEXT函數(shù)，使CEILING得到的數(shù)字轉(zhuǎn)換成漢字格式顯示季度。

2 LEN函數(shù)

公式=TEXT(LEN(2^MONTH(A2)),'[dbnum1]第0季度')

LEN是文本函數(shù)，怎么和日期扯上關(guān)系了呢？我們用輔助列E2=2^MONTH(A2)往下復(fù)制12行，得到如下數(shù)字

2

4

8

16

32

64

128

256

512

1024

2048

4096

仔細(xì)觀察，這些數(shù)字的長(zhǎng)度正好符合四個(gè)季度的規(guī)律，嵌套LEN就可以輕松得到四個(gè)季度的數(shù)字，最后嵌套TEXT轉(zhuǎn)換格式。

3 LOOKUP函數(shù)

公式=TEXT(LOOKUP(MONTH(A2),{1,4,7,10},{1,2,3,4}),'[dbnum1]第0季度')

用MONTH轉(zhuǎn)換的月份數(shù)字作為L(zhǎng)OOKUP第一參數(shù)，在第二參數(shù){1,4,7,10}中查找小于等于查找值的最大值，返回第三參數(shù)對(duì)應(yīng)的數(shù)字匹配季度，最后嵌套TEXT轉(zhuǎn)換格式。

4 VBA代碼

Sub 季度()

    For i = 2 To 13

        If Month(Cells(i, 1)) < 4 Then

            Cells(i, 4) = '第一季度'

        ElseIf Month(Cells(i, 1)) < 7 Then

            Cells(i, 4) = '第二季度'

        ElseIf Month(Cells(i, 1)) < 10 Then

            Cells(i, 4) = '第三季度'

        Else

            Cells(i, 4) = '第四季度'

        End If

    Next

End Sub

用MONTH取得日期列中月份的數(shù)字做邏輯對(duì)比，條件滿(mǎn)足<4返回第一季度，條件滿(mǎn)足<7返回第二季度，條件滿(mǎn)足<10返回第三季度，否則返回第四季度。

好了，今天的分享就是這些，小伙伴們下載示例文件動(dòng)手練一練，印象會(huì)更深刻。

圖文制作：心電感應(yīng)