Créer des lignes supplémentaires dans Excel

Question

Comment puis-je ajouter de nouvelles lignes à partir de: -

Column A  Column B   Column C 
11    Size    S 
11    Color    Yellow 
11    Type    Q 
22    Size    M 
22    Color    Blue 
22    Type    W 
33    Size    L 
33    Color    Brown 
33    Type    R 

à ce excel: -

Column A  Column B   Column C 
11    Size    S 
11    Color    Yellow 
11    Type    Q 
11    Model    T1 
11    Grade    1 
11    LotNo    Z10 
22    Size    M 
22    Color    Blue 
22    Type    W 
22    Model    T2 
22    Grade    1 
22    LotNo    M10 
33    Size    L 
33    Color    Brown 
33    Type    R 
33    Model    T3 
33    Grade    2 
33    LotNo    C10 

Merci,

Bob

Answer 1

En supposant que vous signifie le faire dans VBA (car il est marqué macros et ceci est une programmation Q & A s ITE), vous pouvez insérer et remplir une ligne avec le code comme:

Range("A3").EntireRow.Insert 
Range("A3").Formula = "=11" 
Range("B3").Value = "Hello" 

Tout est une autre Figuring boucle qui fera toute la chose. Le code ci-dessous développera les lignes comme vous le souhaitez (en ajoutant Model, Grade et LotNo lignes après chaque ligne Type). Les valeurs réelles de ces éléments sont laissées comme ?? car il n'est pas clair comment les calculer à partir des autres données.

Sub Macro1() 
    Dim Row As Integer 
    Row = 1 
    While Range("B" & Row).Value <> "" 
     Row = Row + 1 
    Wend 
    While Row <> 1 
     If Range("B" & (Row - 1)).Value = "Type" Then 
      Range("A" & Row).EntireRow.Insert 
      Range("A" & Row).Formula = Range("A" & (Row - 1)).Formula 
      Range("B" & Row).Value = "LotNo" 
      Range("C" & Row).Value = "??" 

      Range("A" & Row).EntireRow.Insert 
      Range("A" & Row).Formula = Range("A" & (Row - 1)).Formula 
      Range("B" & Row).Value = "Grade" 
      Range("C" & Row).Value = "??" 

      Range("A" & Row).EntireRow.Insert 
      Range("A" & Row).Formula = Range("A" & (Row - 1)).Formula 
      Range("B" & Row).Value = "Model" 
      Range("C" & Row).Value = "??" 

     End If 
     Row = Row - 1 
    Wend 
End Sub