2

私はこれまでのところ解決策を見つけていないExcelの質問があります。

たとえば、日付名前の2つの列があるとします

データは次のようなものになる可能性があります

日付 | 名前
02-05-1996 | スミス
02-06-1996 | ジョンソン
07-09-1996 | グリフィン
02-08-2001 | カールセン 17-11-2001
| ピーターセン

そして、日付列の値を変更したいので、残っているのは年だけです-次のように:

日付 | 名前
1996 | スミス
1996 | ジョンソン
1996 | グリフィン
2001 | カールセン
2001 | ピーターセン

どのようにこれを行うことができますか?

ご助力ありがとうございます!

4

3 に答える 3

0
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

編集:日付のセルが列Aにあると仮定すると、から始まるとA1、次のことができます

call ChangeDateValuesToYear(Range("A1"))

于 2013-06-13T18:25:21.017 に答える
0

日付が A1 から始まると仮定して、C1 を選択し、それを入力=Year(A1)してコピーし、全範囲を埋めます。

古い日付を削除したい場合は、年で作成されたばかりの範囲を選択し、それを切り取り、完全な日付で元の範囲を選択し、値のみを貼り付けます。

于 2013-06-13T18:15:12.767 に答える