값을 두 개의 빈 행 사이의 행에 복사하십시오.

Question

아래 이미지를 참조하십시오. 내가 뭘하고 싶은지 셀 C3의 값을 B 열에 4-13 행으로 복사하는 것입니다. 그런 다음 셀 C16의 차량 번호를 B17에 복사합니다. 기본적으로 이것은 차량이 만든 모든 트립을 표시하며 다른 차량의 데이터는 빈 행으로 구분됩니다.

도와주세요. 아래

확인 이미지 :

Answer 1

데이터 구조를 주어 당신이 시도 할 수 :

이 (`= TEXT의 IF (LEFT (A3을 수식을 사용하여 수행 할 수 있습니다

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