excel - 插入数字直到 Col"B" 使用范围

Question

我编写了一个代码，只要在行中插入任何值，就会只"1"插入数字Col"D"。Col"B"

如下图所示。

如果我在 col“B”第 48 行中插入任何值，则代码会将 1 放入 Col“D”第 48 行。

但是我的代码不起作用。任何帮助将不胜感激。

Sub insert1()
For i = 31 To Sheet1.Cells(Sheet1.Rows.Count, 2).End(xlUp).Row
If Sheet1.Cells(i, 2) <> "" Then
Sheet1.Cells(i, 4) = 1
End If
Next
End Sub

标签： excelvba

Answer 1

尝试在工作表更改事件中做同样的事情。我认为这是更简单的方法。

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 2 And Target.Row > 30 Then
        If Target.Value <> "" Then Target.Offset(, 1).Value = 1
    End If
End Sub