欧美性猛交XXXX免费看蜜桃,成人网18免费韩国,亚洲国产成人精品区综合,欧美日韩一区二区三区高清不卡,亚洲综合一区二区精品久久

Sub ai_insurance()
cr = Range("c65536").End(xlUp).Row
Set crng = Range(Cells(1, 3), Cells(cr, 3))
Dim arr(13) As Integer
 For Each c In crng
    Select Case Left(c, 2)
        Case "1月"
         arr(1) = c.Row
        Case "2月"
         arr(2) = c.Row
        Case "3月"
         arr(3) = c.Row
         Case "4月"
         arr(4) = c.Row
         Case "5月"
         arr(5) = c.Row
         Case "6月"
         arr(6) = c.Row
         Case "7月"
         arr(7) = c.Row
         Case "8月"
         arr(8) = c.Row
         Case "9月"
         arr(9) = c.Row
         Case "10"
         arr(10) = c.Row
         Case "11"
         arr(11) = c.Row
          Case "12"
         arr(12) = c.Row
          End Select
         Next
         arr(0) = arr(1) - 5  '固定1月起始行號（？-4）
        begin_m = InputBox("請輸入起始月 （1~ 11的數值）")
        end_m = InputBox("請輸入結束月（大于起始月小于12的數值）")
        col = 0
        For i = begin_m To end_m 'i是月份，循環(huán)每月
            r = 0
            For j = arr(i - 1) + 1 To arr(i) - 1     'j是每月的內容行號
                Cells(cr + 1 + r, 5 + col).Formula = "=d" & (j)
                r = r + 1  '讓當月數據每行遞增
            Next
            col = col + 1  '讓月份增加時(shí)列號增加
        Next
End Sub