#价值！用评估指数引用单个单元格范围的错误

Question

我希望将Excel中选定的范围转换为大写。这是我的密码

Dim rng As Range
Set rng = Selection
rng.Value = rng.Parent.Evaluate("INDEX(UPPER(" & rng.Address & "),)")

它在很大范围内工作，但是给出了#值！仅选择单个单元格时出错。

Answer 1

1. 如果您选择了整个列或行，请将所选内容缩减到使用的范围。
2. 如果只选择单个单元格，则处理单个单元格；对任何多个单元格选择进行批量处理。 如果Selection.Parent.UsedRange>1，则rng.Value =Application.Evaluate(索引(上(“& rng.Address & ")或者rng = UCase(rng.Value)结束

Answer 2

此代码适用于单个单元格或所选内容：

Sub ChangeCellCase()

Dim CellCase

   For Each CellCase In Selection
      CellCase.Value = UCase(CellCase.Value)
   Next

End Sub