Excel 动态范围

对VBA来说相当陌生。我有一个宏，我想更改它，以便能够处理工作表中包含数据的多行，而不是硬编码的值（46）

---

我假设您希望填充左侧存在数据的行，而不是工作表中存在的数百万行

如果是这样，我相信您的代码可以简化为以下内容：

Sub test1calc()

    '1 - UNSTRESSED POSTED PRODUCT LEVEL BREAKDOWN SUMMED AT NETTING SET

    Columns("AS:AS").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

    With Range("AS1")
        .Interior.Pattern = xlSolid
        .Interior.PatternColorIndex = 2
        .Interior.Color = 65535
        .Value = "Unstressed Posted Total"
    End With

    With Range("AS2:AS" & Range("O" & Rows.Count).End(xlUp).Row)
         .FormulaR1C1 = "=SUM(RC[-30]:RC[-1])"
         .Value = .Value
    End With

End Sub

---

我假设您希望填充左侧存在数据的行，而不是工作表中存在的数百万行

如果是这样，我相信您的代码可以简化为以下内容：

Sub test1calc()

    '1 - UNSTRESSED POSTED PRODUCT LEVEL BREAKDOWN SUMMED AT NETTING SET

    Columns("AS:AS").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

    With Range("AS1")
        .Interior.Pattern = xlSolid
        .Interior.PatternColorIndex = 2
        .Interior.Color = 65535
        .Value = "Unstressed Posted Total"
    End With

    With Range("AS2:AS" & Range("O" & Rows.Count).End(xlUp).Row)
         .FormulaR1C1 = "=SUM(RC[-30]:RC[-1])"
         .Value = .Value
    End With

End Sub

---

当您说“工作表中有多少行”时，您是指相对于某些现有数据的行数吗？你肯定不想填满数百万行？没错。因此，理想情况下，宏可以处理46行、1000行、100000行等。。不管多少行都有数据。非空行当您说“工作表中有多少行”时，您是指相对于某些现有数据的行数吗？你肯定不想填满数百万行？没错。因此，理想情况下，宏可以处理46行、1000行、100000行等。。不管多少行都有数据。不空白行无需担心，如果解决了您的问题，请不要忘记标记为答案/投票：）无需担心，如果解决了您的问题，请不要忘记标记为答案/投票：）