根据数量标准选择列

Question

我正试图根据一个标准将x个列的数据归零
例如：

第1页：

一月二月三月四月五月六月七月八月九月十月十一月十二月

第2页：

版本（标准）=2

因此，我想选择前两个月，并在1月份将所有数据归零

更新：到目前为止，我得到了这么多，现在我只能选择

<Code>
Sub hmm()
Dim cell As Range
For Each cell In Sheets("Test").Range("B10:B10")

mths = cell
Sheets("Report Data").Select
Range("C4").Select

ActiveCell.Offset(0, mths).Select
Dy = ActiveCell.Column

Range("C5").Select
Selection.End(xlDown).Select

bl = ActiveCell.Row
Range("D4:Dy4" & bl).Select

Next
End Sub
</Code>

我无法让它选择范围。

Answer 1

此代码从Sheet2中的单元格C4获取列数。

然后将这些列中Sheet1中的单元格设置为零，但不设置第一行：

Sub ZeroData()
    Dim s1 As Worksheet, s2 As Worksheet
    Set s1 = Sheets("Sheet1")
    Set s2 = Sheets("Sheet2")
    Dim N As Long, M As Long
    M = s2.Range("C4").Value
    With s1
        N = .Cells(Rows.Count, "A").End(xlUp).Row
        .Range("A2", .Cells(N, M)).Value = 0
    End With
End Sub