Question

我正在尝试根据标准将x列数据清零例如：

表1：

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

第2页

版本（标准）= 2

所以，我想选择前两个月并将Jan和amp;中的所有数据归零。二月专栏。
任何帮助，将不胜感激。

更新：到目前为止，我得到了这么多，现在我被困在选择每一个

<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

根据数字标准选择列

1 个答案: