Excel表格罗列出指定范围的日期

1、打开Excel表格，按下【Alt+F11】组合键调出VBE编辑器。

2、点击【插入】、【模块】。

3、在模块代码框里边输入以下VBA程序代码。Sub Enumerate_Date()D坡纠课柩im str1, str2, str3, str4, i1, i2, i3, i4, i5On Error Resume Next '忽略运行过程中可能出现的错误Set mysheet1 = ThisWorkbook.Worksheets("Sheet1") '定义Sheet1工作表For i1 = 2 To 1000 '从第2行到1000行Set ce = mysheet1.Cells(i1, 1) '定义第一列变量单元格 If mysheet1.Cells(i1, 1) <> "" Then '如果单元格不是空白，则 i2 = InStr(1, ce, "-") '查找“-”所在的位置 If i2 <> 0 Then '如果存在“-”，则 str1 = Left(ce, i2 - 1) '截取第一个日期 str2 = Right(ce, Len(ce) - i2) '截取第二个日期 i3 = CDate(Replace(str1, ".", "/")) '把“.”替换成“/”并转换成日期 i4 = CDate(Replace(str2, ".", "/")) str4 = "" For i5 = i3 To i4 '对每个日期按顺序执行 str3 = Application.WorksheetFunction.Text(i5, "yyyymmdd") '转换成需要的格式 If str4 = "" Then str4 = Chr(39) & str3 '字符串拼接( '+str3 ) Else str4 = str4 & "," & str3 '字符拼接 End If Next mysheet1.Cells(i1, 2) = str4 '拼接的字符串写入同一行的单元格 End If End IfNextEnd Sub

4、检查无误后，在VBE编辑器的功能区里边点击“运行”图标运行程序。

5、回到Sheet1工作表界面，将会看到已经罗列出指定范围日期。