excel - Excel VBA代码将所有单元格大写

Question

目标：
目标是得到下图的结果

问题：
目前的情况如下

我应该如何做才能通过使用 VBA 代码获得目标中的结果。

Answer 1

Dim rng As Range
Dim cell As Range

Set rng = Range("C4:F7")

For Each cell In rng
    cell.Value = UCase(cell)
Next cell

Answer 2

试试这个代码

Sub sample()
 Range("B4:E7") = [index(upper(B4:E7),)]
End Sub

Answer 3

先前的答案使您包含一个范围。如果您正在谈论所有单元格，则此方法有效。

sub EverythingToUpperCase()
   For Each Cell in ActiveSheet.UsedRange.Cells
        Cell.Value = UCase(Cell.value)
   Next
End Sub

Answer 4

我见过的最短版本：

With Target '（以底部结尾）

    Target = UCase(Target)    'Ucase  or  Lcase

    'Target = StrConv(Target, vbProperCase)    '<< PROPER

和.. 你 1 班轮？：

    Selection.Value = UCase(Selection.Value)  'YES  <<  1 LINER UCASE  (tested, worked),  add a range