根据数字标准选择列

Question

我正试图根据一个标准将x列的数据清零。

例如：

单张1:

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

单张2:

版本(标准)=2

因此，我想选择前两个月，并将1月和2月列中的所有数据清零。

任何帮助都将不胜感激。

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

<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

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

然后，它将这些列中的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