根据数字标准选择列答案

【问题标题】：Selecting Columns based on a number criteria根据数字标准选择列
【发布时间】：2014-05-22 20:59:50
【问题描述】：

我正在尝试根据条件将 x 列的数据归零。
例如：

表 1：

1 月 2 月 3 月 4 月 5 月 6 月 7 月 8 月 9 月 10 月 11 月 12 月

表 2：

版本（标准）= 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>

我无法选择范围。

【问题讨论】：

Sheet2 的哪个单元格中存储了值 2？？
它存储在单元格 C4 中。我能够让它选择月份，但由于某种原因我无法进行选择。

标签： excel excel-2010 vba

【解决方案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

【讨论】：