Excel的VBA代码为大写所有细胞

Question

目标：
我们的目标是从图片获得下面的结果

问题：
目前的情况是低于

应该如何我这样做是为了通过使用VBA代码获得目标结果。

Answer 1

试试这个代码

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

Answer 2

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 3

以前的答案让你包括的范围。如果你正在谈论所有单元格，这将起作用。

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

Answer 4

最短的版本我已经看到：

随着目标“（结束与底部）

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