根据另一个数组的值更新数组

Question

试图创建一个子例程，用户复制并将食谱粘贴到一个细胞中，并且过敏原自动大写...例如（牛奶变成牛奶）。我的SA2数组只有空白值？

ps我知道我可以使用替换 /查找参数，我想通过一个阵列来进行个人发展。

Sub Allergen()

Dim nr As Integer
Dim r As Range
Dim sa As Variant
Dim sa2 As Variant
Dim i As Integer


nr = WorksheetFunction.CountA(Columns("E:E"))
sa = Split(Sheets("Sheet1").Range("E" & nr).Offset(-1, 0))
sa2 = Split(Sheets("Sheet1").Range("E" & nr).Offset(-1, 0))

ReDim Preserve sa2(0 To UBound(sa))

For i = LBound(sa) To UBound(sa)

If sa(i) = "Milk" Then
sa2(i) = "MILK"
End If