将值复制到两个空行之间的行中

Question

请看下图。我想要做的是将单元格 C3 中的值复制到 B 列的第 4-13 行中。然后将单元格C16中的车辆编号复制到B17中，依此类推。基本上这显示了车辆的所有行程，不同车辆的数据由空白行分隔。

请帮忙。

检查下图：

Answer 1

鉴于你的数据结构，你可以试试这个：

Option Explicit

Sub main()
    Dim vehicleRng As Range, cell As Range

    With Range("A2", Cells(Rows.count, 1).End(xlUp))
        .AutoFilter field:=1, Criteria1:="VEHICLE"
        Set vehicleRng = .Resize(.Rows.count - 1).Offset(1).SpecialCells(xlCellTypeVisible)
    End With
    ActiveSheet.AutoFilterMode = False

    For Each cell In vehicleRng
        With cell
            Range(cell.Offset(1), cell.End(xlDown).Offset(-1)).Offset(, 1).Value = cell.Offset(, 2)
        End With
    Next
End Sub

将值复制到两个空行之间的行中

Copy value into rows between two blank rows

vba

basic