Vba 宏选择和范围，更改格式，偏移，然后循环

我有一个2010年Excel表格，基本上有80个相同的“页面”，每个页面有30行。有一个以“K126:N130”开头的单元格区域，我需要关闭该区域的文本换行，然后对以下79个“页面”重复此操作，并在第2520行停止 我不熟悉“直到”这个词，但到目前为止，我已经知道了。 谢谢

试试这个：

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

子格式更改（）
变暗rng As范围
设置rng=ActiveSheet.Range（“K126:N130”）
do while rng.cells（1）.行<2520
带rng
.垂直对齐=xl底部
.WrapText=False
.方向=0
.AddIndent=False
.1级别=0
.ShrinkToFit=False
.ReadingOrder=xlContext
以
设置rng=rng偏移量（30,0）
环
端接头

你问得很快，但在我将字符串复制80次并更改偏移量之前。我的方法奏效了，但你的方法跑得快多了！哇！谢谢

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