作者:乔山办公网日期:
返回目录:excel表格制作
方法:1、打开EXCEL表格,抄在单元格中输入数字“1”,用鼠标向下拖动。之后点击旁边的“小方块”,在出现的页面中点击“填充序列”。2、点击后,序列如下。注意:如果向下zd填充时,序号无法改变,可按Ctrl键配合。
首先,你的数据格式究竟是文本型还是日期型?
其次,已经是一批数据了,直接怎么下拉?只能用公式下拉,而公式怎么写,就要看你的数据的格式了(也就是【首先】的内容)
可以使用代码进行批量操作。
该代码可将选取文件夹中的所有excel文件进行日期的操e799bee5baa6e78988e69d83332作。
默认数据在sheet1的A列中,默认月份加1.
当然这种月份简单加一的方式在某些情况下是会出现错误的。
Sub update_month()
On Error Resume Next
Application.DisplayAlerts = False
Dim myDoc As String
Dim mySheet As String
Dim mynewSheet As Workbook
With Application.FileDialog(msoFileDialogFolderPicker)
.Show
.Title = "?????Excel?????????"
.AllowMultiSelect = False
myDoc = .SelectedItems(1)
End With
mySheet = Dir(myDoc & "\" & "*.xls*")
Do While mySheet <> ""
Set mynewSheet = Workbooks.Open(myDoc & "\" & mySheet)
With mynewSheet.Worksheets(1)
For i = 2 To .Range("A2").End(xlDown).Row
mynewSheet.Worksheets(1).Cells(i, 1) = Year(Date) & "-" & Month(Cells(i, 1)) + 1 & "-" & Day(Cells(i, 1))
Next
mynewSheet.Save
mynewSheet.Close
mySheet = Dir
Loop
Application.DisplayAlerts = True
End Sub
任意单元格输入公式
=DATE(2013,MOD(ROW(A12)+1,12),1)
下拉复制公式
这样试一下是不是你要的
看到你的评论"我不要月份递增啊,我是要把zhidao月份全部改成回同一个月,而年和日不变啊"
你是要改某列的日期有同一个月的日期是吗?
假设该列是A列,日期从A2单元格开始
B2单元格输入公式
=DATE(YEAR(A2),此处写入你要改的答月份值,DAY(A2))
如全改成1月的
=DATE(YEAR(A2),1,DAY(A2))
设置单元格格式为你要的日期格式的一种,
再下拉复制公式
完成后---复制B列----右键----选择性粘贴----数值----确定----删去原A列