Sub Sample()
[A1:A20] = [INDEX(UPPER(A1:A20),)]
End Sub
您好,以上代码由 Siddharth Rout 提供, 是否可以将 20 更改为变量,例如工作表中的最后一行?
非常感谢。
最佳答案
试试这个:
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 一起使用。刚刚尝试过,它有效。
如果这有帮助,请告诉我们。
关于没有循环的 Excel 到大写 VBA,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/21434600/