EXCEL日期问题

Question

日期问题，如果EXCEL表中的A1到A25分别为：0，1，1，1，1，0，0，0，0，0，0，1，1，0，0，0，0，0，1，0，0，0，1，0，0。 那么要求B1到B25分别为：2010.01.01
2010.01.02
2010.01.02
2010.01.02
2010.01.02
2010.01.02
2010.01.02
2010.01.02
2010.01.02
2010.01.02
2010.01.02
2010.01.03
2010.01.03
2010.01.03
2010.01.03
2010.01.03
2010.01.03
2010.01.03
2010.01.04
2010.01.04
2010.01.04
2010.01.04
2010.01.05
2010.01.05
2010.01.05
则，如果A列的数字为1时，B列的日期作+1天处理，并且当A列中的1为连续时，不需作+1天，如果是+1后刚好是第二个月了，那又怎么处理。因为数据量庞大，所以希望大家来帮帮我。

Answer 1

这个很简单呀
把B列整列设置为日期型格式
B1输入 2010.01.01
B2输入
=if(a2>a1,b1+1,b1)
往下拉即可

Answer 2

B列设置格式，自定义：yyyy.m.d
B1输入2010-1-1（显示会自动为2010.1.1
B2输入=IF(A2>A1,B1+1,B1)公式下拉
如果数据非常庞大，可用宏来处理，更快更方便
B列设置格式，自定义：yyyy.m.d
运行以下宏
Sub 生成日期()
Dim iR As Long
Dim arr, arr1
iR = Range("A65536").End(xlUp).Row
arr = Range("A1:A" & iR).Value
ReDim arr1(1 To UBound(arr))
arr1(1) = #1/1/2010#
For x = 2 To UBound(arr)
If arr(x, 1) > arr(x - 1, 1) Then
arr1(x) = arr1(x - 1) + 1
Else
arr1(x) = arr1(x - 1)
End If
Next x
Range("B1").Resize(UBound(arr1), 1) = Application.Transpose(arr1)
End Sub
OK了，全部搞定，多少行都成，免除了公式下拉的痛苦。