用vb编写一段代码，sheet1填写人名和日期阶段如2022年1月1日到2022年3月31日，在sheet的日期明细表里这个人名的这一列所对应这段日期对应的都填1

Sub 填充数据()
Dim i As Long, LastRow As Long
Dim sDateStart As Date, sDateEnd As DateSheet1.SelectsDateStart = "2022/1/1"
sDateEnd = "2022/3/31"LastRow = Cells(Rows.Count, 1).End(xlUp).RowFor i = 2 To LastRow
If Cells(i, 1).Value >= sDateStart And Cells(i, 1).Value <= sDateEnd Then
Cells(i, 2).Value = 1
End If
Next iEnd Sub