victorl

回復 1# f3202

直接在Row 3 呈現
Sub wk()
    For Each dd In Range([B1], [B1].End(xlToRight))
        Cells(3, dd.Column) = Format(dd, "ww", vbMonday, vbFirstFullWeek)
    Next
End Sub

語法說明: Format(expression[, format[, firstdayofweek[, firstweekofyear]]])
firstdayofweek - 定義星期幾是一周的開始
firstweekofyear -  定義第一周的條件
這兩參數之設定會影響結果喔，請參考 "Excel Help"說明