没有循环的 Excel 到大写 VBA

Question

Sub Sample()

    [A1:A20] = [INDEX(UPPER(A1:A20),)]

End Sub

您好，以上代码由 Siddharth Rout 提供, 是否可以将 20 更改为变量，例如工作表中的最后一行？

非常感谢。

Answer 1

试试这个:

Sub UpperCase()

    Dim TargetRng As Range, LastRow As Long
    LastRow = Sheet1.Range("A" & Rows.Count).End(xlUp).Row
    Set TargetRng = Sheet1.Range("A1:A" & LastRow)

    TargetRng = Evaluate("INDEX(UPPER(" & TargetRng.Address & "),)")

End Sub

[] 只是Evaluate 的简写。使用整个单词没有任何惩罚，也可以与 VBA 一起使用。刚刚尝试过，它有效。

如果这有帮助，请告诉我们。