VBA技术问询：为Range rngColK生成"WEEK+当月周数"及rngColJ转大写

我来帮你搞定这两个VBA问题，分两部分详细说明：

一、将Range rngColJ转为全大写格式 #

这个需求很直接，用VBA内置的UCase函数就能完成。如果rngColJ是单个单元格，一行代码就搞定；如果是多单元格区域，循环处理更稳妥（避免批量赋值时的数组问题）：

代码示例： #

' 单个单元格的情况
rngColJ.Value = UCase(rngColJ.Value)

' 多单元格区域的情况（遍历每个单元格）
Dim cell As Range
For Each cell In rngColJ
    cell.Value = UCase(cell.Value)
Next cell

二、给Range rngColK设置"WEEK" + 当月周数（替代WeekNum） #

你提到的Application.WorksheetFunction.WeekNum(Now)返回的是全年周数，而不是当月内的周数（比如2018年4月18日是全年第15周，但它是4月的第3周），所以确实不符合需求。我们可以写一个自定义函数来计算指定日期所在当月的周数，再和"WEEK"拼接。

自定义函数思路： #

1. 获取当月第一天的日期
2. 计算当前日期与当月第一天的天数差
3. 结合当月第一天的星期数，算出当月内的周数（这里默认周日为一周起始，若需周一为起始可调整参数）

完整代码示例： #

' 自定义函数：计算指定日期在当月的周数
Function GetMonthWeek(dt As Date) As Integer
    Dim firstDayOfMonth As Date
    firstDayOfMonth = DateSerial(Year(dt), Month(dt), 1)
    
    ' 计算从当月第一天到目标日期的天数差
    Dim daysDiff As Integer
    daysDiff = dt - firstDayOfMonth
    
    ' 计算当月周数（周日为一周起始）
    ' 若需周一为起始，将Weekday(firstDayOfMonth)改为Weekday(firstDayOfMonth, vbMonday)
    GetMonthWeek = Int((daysDiff + Weekday(firstDayOfMonth)) / 7) + 1
End Function

' 给rngColK赋值（以2018年4月18日为例，也可替换为Now()用当前日期）
Dim targetDate As Date
targetDate = DateSerial(2018, 4, 18) ' 指定日期测试
' targetDate = Now() ' 用当前日期
rngColK.Value = "WEEK " & GetMonthWeek(targetDate)

测试验证： #

2018年4月1日是周日（Weekday返回1），4月18日与4月1日相差17天：
(17 + 1) / 7 = 2.57，取整后加1得到3，正好是4月的第3周，完全符合你的需求。

内容的提问来源于stack exchange，提问作者Tomasz Kozuch