以下是使用VBA來完成這個任務的步驟：

1. 首先，我們需要在Excel中開啟VBA編輯器。你可以使用快捷鍵Alt + F11來開啟它。

2. 在VBA編輯器中，選擇插入 - 模組，來新增一個新的模組。

3. 在新的模組中，我們可以開始編寫我們的程式碼。以下是一個範例程式碼：

```vba
Sub UpdateYear()
Dim rng As Range
Dim cell As Range
Dim oldYear As String
Dim newYear As String

' 取得B1和C1的年份
oldYear = Year(Range("B1").Value)
newYear = Year(Range("C1").Value)

' 取得B2和C2的年份
Dim oldYear2 As String
Dim newYear2 As String
oldYear2 = Year(Range("B2").Value)
newYear2 = Year(Range("C2").Value)

' 更新A1:A10的年份
Set rng = Range("A1:A10")
For Each cell In rng
If Year(cell.Value) = oldYear Then
cell.Value = DateSerial(newYear, Month(cell.Value), Day(cell.Value))
ElseIf Year(cell.Value) = oldYear2 Then
cell.Value = DateSerial(newYear2, Month(cell.Value), Day(cell.Value))
End If
Next cell
End Sub
```

4. 這個程式碼會先取得B1和C1的年份，然後取得B2和C2的年份。然後，它會遍歷A1:A10的每一個儲存格，如果儲存格的年份等於B1的年份，則將其替換為C1的年份；如果儲存格的年份等於B2的年份，則將其替換為C2的年份。

5. 最後，我們可以運行這個程式碼來更新我們的儲存格。你可以使用快捷鍵F5來運行程式碼，或者在VBA編輯器的選單中選擇運行 - 運行子程序。

Question

以下是使用VBA來完成這個任務的步驟：

1. 首先，我們需要在Excel中開啟VBA編輯器。你可以使用快捷鍵Alt + F11來開啟它。

2. 在VBA編輯器中，選擇插入 -> 模組，來新增一個新的模組。

3. 在新的模組中，我們可以開始編寫我們的程式碼。以下是一個範例程式碼：

```vba
Sub UpdateYear()
    Dim rng As Range
    Dim cell As Range
    Dim oldYear As String
    Dim newYear As String

' 取得B1和C1的年份
    oldYear = Year(Range("B1").Value)
    newYear = Year(Range("C1").Value)

' 取得B2和C2的年份
    Dim oldYear2 As String
    Dim newYear2 As String
    oldYear2 = Year(Range("B2").Value)
    newYear2 = Year(Range("C2").Value)

' 更新A1:A10的年份
    Set rng = Range("A1:A10")
    For Each cell In rng
        If Year(cell.Value) = oldYear Then
            cell.Value = DateSerial(newYear, Month(cell.Value), Day(cell.Value))
        ElseIf Year(cell.Value) = oldYear2 Then
            cell.Value = DateSerial(newYear2, Month(cell.Value), Day(cell.Value))
        End If
    Next cell
End Sub
```

4. 這個程式碼會先取得B1和C1的年份，然後取得B2和C2的年份。然後，它會遍歷A1:A10的每一個儲存格，如果儲存格的年份等於B1的年份，則將其替換為C1的年份；如果儲存格的年份等於B2的年份，則將其替換為C2的年份。

5. 最後，我們可以運行這個程式碼來更新我們的儲存格。你可以使用快捷鍵F5來運行程式碼，或者在VBA編輯器的選單中選擇運行 -> 運行子程序。

Knowee AI · Accepted Answer