如果序列数据为空，则插入自动值

Question

如果C列有空单元格，则从B列开始取数据导入D列

在D6我写 =OFFSET($B:$B,$C,0,1,1) 和C2我写 =COUNTBLANK($C:$C) 但结果是 App4

在图片上编辑：

Answer 1

你可以试试：

Option Explicit

 Sub test()

    Dim LastRow As Long, i As Long, Counter As Long

    Counter = 4

    With ThisWorkbook.Worksheets("Sheet1")

        LastRow = .Cells(.Rows.Count, "B").End(xlUp).Row

        For i = 4 To LastRow

            If .Range("C" & i).Value = "" Then
                .Range("D" & i).Value = .Range("B" & Counter).Value
                Counter = Counter + 1
            End If

        Next i

    End With

 End Sub

Answer 2

使用：

=IF(C4="",INDEX($B:$B,SUMPRODUCT(--($D:D3<>""))+1),"")

如果序列数据为空，则插入自动值

Insert Automate Value if blank with sequence data

excel

vba

formula