macrosselect和范围，更改格式，偏移然后循环

我有一个2010年的Excel工作表，基本上80个相同的“页”30行每个。 有一系列以“K126：N130”开头的单元格，我需要closures此范围的文本换行，然后重复以下79个“页面”并停在2520行，我不熟悉“do until”，但是这里是我到目前为止。 谢谢

Sub formatchange() ' ' formatchange Macro ' Range("K126:N130").Select With Selection .VerticalAlignment = xlBottom .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext End With ActiveSheet.Range("K126:N130").Offset(30).Select With Selection .VerticalAlignment = xlBottom .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext End With End Sub 

Answer 1

尝试这个：

 Sub formatchange() Dim rng As Range Set rng = ActiveSheet.Range("K126:N130") do while rng.cells(1).row < 2520 With rng .VerticalAlignment = xlBottom .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext End With Set rng = rng.offset(30,0) Loop End Sub