excel - excel替换多行的值

Question

我有一个 excel 问题，到目前为止我还没有找到解决方案。

假设我有两列日期和名称

数据可能类似于

日期 | 名称
02-05-1996 | 史密斯
02-06-1996 | 约翰逊07-09-1996
| 格里芬
02-08-2001 | 卡尔森
17-11-2001 | 彼得森

我想更改日期列中的值，所以只剩下一年了 - 就像这样：

日期 | 姓名
1996 | 史密斯
1996 | 约翰逊
1996 | 格里芬
2001 | 卡尔森
2001 | 彼得森

你怎么能这样？

非常感谢您的帮助！

Answer 1

您正在寻找的是 YEAR() 函数

http://office.microsoft.com/en-ca/excel-help/year-HP005209343.aspx?CTT=5&origin=HP005204211

假设您的日期列是 A

= year(A1)

Answer 2

假设日期从 A1 开始，选择 C1 并键入=Year(A1)并将其复制下来以填充整个范围。

如果您想摆脱旧日期，请选择刚刚创建的带有年份的范围，剪切它，选择带有完整日期的原始范围，仅粘贴值。

Answer 3

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

编辑：假设日期的单元格在 column 中A，从 开始A1，您可以执行以下操作

call ChangeDateValuesToYear(Range("A1"))