EXCEL A栏位输入日期，B栏位自动带入本月第几周别 VBA

在Excel中，如果你想要通过VBA脚本让A栏输入的日期自动填充到B栏对应本周的周数，你可以使用`Weekday()`函数结合一些条件判断。以下是一个简单的步骤和示例代码：

1. 打开VBA编辑器（按Alt + F11）并创建一个新的模块。

2. 编写下面的VBA宏：

Sub GetWeeklyNumber()
    Dim rng As Range
    Dim dateCell As Range
    Dim weekNumber As Integer

    ' 设置范围，假设A1是第一行日期开始的位置
    Set rng = Range("A1")
    
    For Each dateCell In rng
        If Not IsDate(dateCell.Value) Then
            Debug.Print "非日期值跳过：" & dateCell.Address
            GoTo NextIteration
        End If
        
        ' 计算当前日期是一年中的第几周，从周一（1）开始计数
        weekNumber = Weekday(dateCell.Value, vbMonday) - 1 + Int((dateCell.Value - DateSerial(Year(dateCell.Value), 1, 1)) / 7)
        
        ' 将结果填入B列对应的单元格
        dateCell.Offset(0, 1).Value = weekNumber
NextIteration:
    Next dateCell
End Sub

把这个代码粘贴到VBA编辑器中，然后选择需要应用此功能的区域，例如A1:B100。保存并运行`GetWeeklyNumber`宏即可。