Question

我有一些法典提出了我所需要的公式,我利用宏观记录器把填入最后一行。但是,我如何能够妥善地加以规范,以便自动做到这一点,并将填补数据最后一行的公式? 我也试图删除某些发言,在试图插入公式时,就没有这样做了。

Sub RD_DS_InsertCol_Formula()
 
  RD_DS_InsertCol Macro
 

    With Sheets("Raw Data - DS")
        .Columns("C:C").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    End With
    
    Range("G2").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(RC[-1]=""Crossdock"",""CD"",IF(RC[-1]=""PickingPickedAtDestination"",""PP"",IF(RC[-1]=""PickingNotYetPickedPrioritized"",""PNYP"",IF(RC[-1]=""Loaded"",""LD,""""""))))"
    Range("G2").Select

    Selection.AutoFill Destination:=Range("G2:G14665"), Type:=xlFillDefault
    Range("G2:G14665").Select


End Sub

Answer 1

请审判。

Option Explicit

Sub RD_DS_InsertCol_Formula()
    With Sheets("Raw Data - DS")
        .Columns("C:C").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
        .Range("G2:G" & .Cells(.Rows.Count, "F").End(xlUp).Row).FormulaR1C1 = _
        "=IF(RC[-1]=""Crossdock"",""CD"",IF(RC[-1]=""PickingPickedAtDestination"",""PP"",IF(RC[-1]=""PickingNotYetPickedPrioritized"",""PNYP"",IF(RC[-1]=""Loaded"",""LD,""""""))))"
    End With
End Sub

友情链接