我的OldVal没出现的原因是它被放置在数组中.因此，当我告诉它查看OldVal(1，1)时，它可以正常工作.谢谢您的帮助.最终的工作代码是:

Thr problem why my OldVal was not showing up was that it was being held in array. So when I told it to look at OldVal(1, 1) it works just as it should. Thanks for the help. The final working code is:

公共OldVal作为字符串将公共NewVal作为字符串

Public OldVal As String Public NewVal As String

Private Sub Worksheet_SelectionChange(ByVal目标作为范围)如果Sheets("corrections").Range("G1")<>"Yes"，则退出SubOldVal = Target.Value2

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Sheets("corrections").Range("G1") <> "Yes" Then Exit Sub OldVal = Target.Value2

结束子

私人子工作表_更改(按目标的ByVal目标)如果Sheets("corrections").Range("G1")<>"Yes"，则退出Sub如果Target.Cells.CountLarge> 1然后退出SubNewVal = Target.ValueSheets("corrections").Cells(Rows.Count，"A").End(xlUp)(2).Value = Now&"_Sheet"&ActiveSheet.Name&单元格"和Target.Address(0，0)&已从"和;"更改为"OldVal(1，1)&'至'"&新Val&'"

Private Sub Worksheet_Change(ByVal Target As Range) If Sheets("corrections").Range("G1") <> "Yes" Then Exit Sub If Target.Cells.CountLarge > 1 Then Exit Sub NewVal = Target.Value Sheets("corrections").Cells(Rows.Count, "A").End(xlUp)(2).Value = Now & "_Sheet " & ActiveSheet.Name & " Cell " & Target.Address(0, 0) & " was changed from '" & OldVal(1, 1) & "' to '" & NewVal & "'"

OldVal = ""
NewVal = ""

结束子