Excel到无大循环的大写VBA

Sub Sample() [A1:A20] = [INDEX(UPPER(A1:A20),)] End Sub 

嗨，对于由Siddharth Rout提供的上述代码，是否可以将20更改为variables，如工作表中的最后一行？

提前谢谢了。

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一起使用。 刚刚尝试过，它的工作原理。

让我们知道这是否有帮助。

Answer 2

唯一的办法是把可能的最大数量的行。 对于Excel 2007将是1048576