Excel 宏将整列更改为大写

Question

我正在尝试更新工作簿，我必须将所有电子邮件从小写更改为大写。我对宏还不太了解，但我想出了这个，但它需要永远运行。（仅约 1k 行）。

Sub Uppercase()
   ' Loop to cycle through each cell in the specified range.
   For Each x In Range("B:B")
      ' Change the text in the column to uppercase letters.
      x.Value = UCase(x.Value)
   Next
End Sub

我应该使用更好的东西吗？

tl;dr 我需要将整个列的大小写更改为大写。

Answer 1

根本不需要循环，这基本上应该立即处理它：

Sub tgr()

    With Range("B1", Cells(Rows.Count, "B").End(xlUp))
        .Value = Evaluate("INDEX(UPPER(" & .Address(External:=True) & "),)")
    End With

End Sub