如果填充另一个单元格则增加值 vba

Question

我正在尝试在我的 excel 数据库上创建一些自动化。

在这种情况下，如果填充了另一个单元格，则增加一个值。

示例：

如果 B21 包含数字或文本，则从 A21 开始计数。如果 B 相邻单元格上没有值，将停止计数。

         A     B
   21    1     Text 1
   22    2     Text 2
   23    3     Text 3
   24
   25

到目前为止我得到了这个：

 Sub Macro1()
    Dim r1 As Range, r2 As Range, cell As Range, mynumber As Long

    Set r1 = Range("B21:B2642")
    Set r2 = Range("A21:A2642")
    mynumber = 1
    For Each cell In r1
        If cell.Value <> "" Then
            cell.Value("A21:A2642") = mynumber
            mynumber = mynumber + 1
        End If
    Next
End Sub

最佳

Answer 1

使用这个，

Sub Button1_Click()
    Dim rw As Long, rng As Range, c As Range

    rw = 2642
    Set rng = Range("B21:B" & rw)

    For Each c In rng.Cells
        If c <> "" Then
            If c.Row = 21 Then
                c.Offset(, -1) = 1
            Else
                c.Offset(, -1) = c.Offset(-1, -1) + 1
            End If
        End If
    Next c

End Sub

如果填充另一个单元格则增加值 vba

Increment value if another cell is populated vba

excel

vba

increment