Вставить в определенном диапазоне

Question

Посмотрите код ниже:

With Worksheets("L.NAM.M") 
     With .Cells.Find(What:="forecast_quarter", After:=ActiveCell, LookIn:= _ 
      xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _ 
      xlNext, MatchCase:=False, SearchFormat:=False) 
      .Parent.Range(.Offset(1), .Parent.Cells(Rows.Count, .Column).End(xlUp)).Copy _ 
      Destination:=Worksheets("NewForecast").Range("K" & Rows.Count).End(xlUp).Offset(1) 
     End With 
    End With 

With Worksheets("L.EMEA.O") 
    With .Cells.Find(What:="forecast_quarter", After:=ActiveCell, LookIn:= _ 
     xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _ 
     xlNext, MatchCase:=False, SearchFormat:=False) 
     .Parent.Range(.Offset(1), .Parent.Cells(Rows.Count, .Column).End(xlUp)).Copy Destination:=Worksheets("NewForecast").Range("K" & Rows.Count).End(xlUp).Offset(1) 
    End With 
End With 


     'Record Source 

     With Worksheets("L.EMEO.O") 
     With .Cells.Find(What:="Record Source", After:=ActiveCell, LookIn:= _ 
      xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _ 
      xlNext, MatchCase:=False, SearchFormat:=False) 
      .Parent.Range(.Offset(1), .Parent.Cells(Rows.Count, .Column).End(xlUp)).Copy Destination:=Worksheets("NewForecast").Range("N" & Rows.Count).End(xlUp).Offset(1) 
     End With 
    End With 

Что я делаю here..I я получаю forecast_quarter данных из этих двух таблиц и вставки под заголовком новой таблицы , Таким образом, он находит последнюю информацию с данными и вставкой ниже. Трюк приходит при поиске источника записи из «L.EMEA.O», так как «L.NAM.M» не имеет данных для столбца L, он испортится, когда я вставляю данные L.EMEA.O, поскольку он не согласуется с L.EMEA.O, но с L.NAM.O. Я бы хотел, чтобы вставить выровненную строку, где она вставляла прогноз_quarter для L.EMEA.O.

Любые идеи? Я атташе фото

В этом случае вставленного в K114, если я запустить другую часть, я хочу, чтобы вставить в то же не в N110, но N114.

Answer 1

магазин индекс строки используется для «L.EMEA.O» и использовать его для «L.EMEO.O», а также:

With Worksheets("L.NAM.M") 
      With .Cells.Find(What:="forecast_quarter", After:=ActiveCell, LookIn:= _ 
       xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _ 
       xlNext, MatchCase:=False, SearchFormat:=False) 
       .Parent.Range(.Offset(1), .Parent.Cells(Rows.Count, .Column).End(xlUp)).Copy _ 
       Destination:=Worksheets("NewForecast").Range("K" & Rows.Count).End(xlUp).Offset(1) 
      End With 
     End With 

    Dim L_EMEA_ORow As Long '<--| variable to hold "forecast_quarter" sheet column "K" row index where to start pasting "L.EMEA.O" sheet data from 
    With Worksheets("L.EMEA.O") 
     With .Cells.Find(What:="forecast_quarter", After:=ActiveCell, LookIn:= _ 
      xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _ 
      xlNext, MatchCase:=False, SearchFormat:=False) 
      L_EMEA_ORow = Worksheets("NewForecast").Range("K" & Rows.Count).End(xlUp).Offset(1).Row '<--| store relevant row index where to start pasting data from 
      .Parent.Range(.Offset(1), .Parent.Cells(Rows.Count, .Column).End(xlUp)).Copy Destination:=Worksheets("NewForecast").Range("K" & L_EMEA_ORow) '<--| use relevant row index 
     End With 
    End With 


    'Record Source 

    With Worksheets("L.EMEO.O") 
     With .Cells.Find(What:="Record Source", After:=ActiveCell, LookIn:= _ 
      xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _ 
      xlNext, MatchCase:=False, SearchFormat:=False) 
      .Parent.Range(.Offset(1), .Parent.Cells(Rows.Count, .Column).End(xlUp)).Copy Destination:=Worksheets("NewForecast").Range("N" & L_EMEA_ORow) '<--| use same relevant row index calculated above 
     End With 
    End With