excelreplace多行的值
我有一个很好的问题，我迄今还没有find解决办法。
说我有例如两列date和名称
数据可能是类似的
date| 名称
02-05-1996 | 工匠
02-06-1996 | 约翰逊
07-09-1996 | 格里芬
02-08-2001 | 卡尔森
17-11-2001 | 彼得森
我想更改date栏中的值，所以只剩下一年了 – 像这样：
date| 名称
1996 | 工匠
1996 | 约翰逊
1996 | 格里芬
2001 | 卡尔森
2001 | 彼得森
你怎么能这样做？
非常感谢您的帮助！
假定date从A1开始，selectC1并input=Year(A1) ，并将其复制以填充整个范围。
如果你想摆脱旧date，select刚刚创build的范围，剪切它，select具有完整date的原始范围，只粘贴值。
你在找什么是YEAR（）函数
http://office.microsoft.com/en-ca/excel-help/year-HP005209343.aspx?CTT=5&origin=HP005204211
假设你的date列是A.
= year(A1)
option explicit Sub ChangeDateValuesToYear(ByVal startCell As Range) Dim cell Dim lastCellInThisColumn As Range Set lastCellInThisColumn = startCell.End(xlDown) Dim dateDataRange As Range Set dateDataRange = Range(startCell, lastCellInThisColumn) For Each cell In dateDataRange cell.Value = Year(cell.Value) Next dateDataRange.NumberFormat = 0 End Sub
编辑：假设date的单元格在A列，从A1开始，您可以执行以下操作
call ChangeDateValuesToYear(Range("A1"))