Wie fügen Sie mehrere Zeiten auf einmal in Excel mit Daten zwischen

Sagen, ich habe Daten wie diese

  A   B   C
1 Jim 1 10    
2 Jim 2 20
3 Jim 3 30
4 Tom 1 20
5 
6 
7 Jos 1 15
8
9

Was ich will, ist kopieren Sie die Zeile 2 und 3 dann einfügen in Zeile 5 und 6 und dann 8 und 9, und so weiter. Die leeren Zeilen sind immer 2.

Gibt es eine Formel in der Zelle 2C und 3C, die berechnen den Wert in der Spalte B multipliziert mit Zelle C1.

So, das Ergebnis wäre wie diese

  A   B   C
1 Jim 1 10    
2 Jim 2 20
3 Jim 3 30
4 Tom 1 20
5 Tom 2 40 
6 Tom 3 60
7 Jos 1 15
8 Jos 2 30
9 Jos 3 45

Das problem ist, ich habe zu fügen Hunderte mal, dass wäre zu zeitaufwändig.

Ich würde mich freuen, wenn jemand helfen kann.

  • Würden Sie überprüfen column A multiplied by cell B1? Diese Spalte enthält Namen.
  • Könnte Sie geben Formeln für die Berechnung von leeren Zellen?
  • Oh sorry mein Fehler, ich meinte die Spalte B multipliziert mit Zelle C1. Ich jetzt editiert.
  • Hi Juri-Ruut, Wenn Sie also die Formel, die ich verwendet, in Zelle 2C, hier ist es =B2*C1
  • Ich glaube, er will C5 = C4 * B5, das ist das gleiche wie sein Ergebnis.
  • Ich sehe, ich dachte, das war das Missverständnis und erwähnt, dass der moment in meinem Kommentar auf meine Antwort eine Stunde vor. Warten wir mal auf TS zu klären, das problem.
  • Ich entfernte alle meine Nachrichten gesehen, als wenn beide arbeiten und beide lösen die beiden möglichen Fälle 😉

InformationsquelleAutor Wakanina | 2012-11-16
  1. 0

    Bitte beachten Sie:

    • Müssen Sie sicherstellen, dass Sie einen Wert in der Spalte A1, sonst
      erhöhen Sie einfach den Wert von i auf die zweite Zeile mit Daten.

    • Var ist eine dummy-variable verwendet, um zu verfolgen, wenn Sie einen neuen Namen Auftritt.

    • firstValue enthält die Zeilenzahl der ersten Zeile pro name.

    Code

    Sub test()

Var = 0
LastRow = Cells(Rows.Count, "A").End(xlUp).Row + 2

For i = 2 To LastRow
    If Range("A" & i).Value = "" Then
        If Var = 0 Then
            firstValue = i - 1
            Range("A" & i).Value = Range("A" & i - 1).Value
            Range("B" & i).Value = Range("B" & i - 1).Value + 1
            Range("C" & i).Value = Range("C" & firstValue).Value + Range("C" & i - 1).Value
            Var = Var + 1
        Else
            Range("A" & i).Value = Range("A" & i - 1).Value
            Range("B" & i).Value = Range("B" & i - 1).Value + 1
            Range("C" & i).Value = Range("C" & firstValue).Value + Range("C" & i - 1).Value
            Var = Var + 1
        End If
    Else
        Var = 0
    End If
Next i

End Sub
    • Wow... diese funktioniert wie ein Zauber. Die ich einstellen muss Für i = 2 Bis 9 erfüllen meine Forderung oben. Dank so viel.
    • Hi @t.thielemans, da die Letzte Zeile ist nicht immer die gleiche. In der Frage oben, die Letzte Zeile ist 9. Aber in meinen Daten der letzten Zeile ist irgendwann in Zeile 107 oder 127 oder 254. Also wenn ich den code von oben, sollte ich zuerst überprüfen, wo die Letzte Zeile und ändern Sie dann die 'ich'. Irgendeine Idee?
    • Ich bearbeitet meine Antwort. LastRow Aussehen wird, für das Letzte Stück von Daten in der Spalte A! 😉
    • Du bist wirklich mein Leben gerettet. Danke. BTW, ich muss hinzufügen '+ 2' in 'LastRow', so wird der code wie 'LastRow = Cells(Rows.Count, "A").End(xlUp).Zeile + 2'. Wieder einmal vielen, vielen Dank.
    • warum müssen Sie hinzufügen, +2?
    • Denn wenn ich nicht hinzufügen + 2, die Ergebnisse nur bis zur Zeile 7. Dies bedeutet, Josh wird nicht kopiert von Zeile 8 und 9.
    • oh, wow, nicht darüber nachdenken! Ich werde es auf meine Antwort, danke!

    InformationsquelleAutor CustomX
  2. 0
    Sub MakeRows()
    Dim Sh As Worksheet, DataRng As Range, CopyRng As Range, TargetRng As Range

    Set Sh = Sheets(1) 'select your sheet here
                       'you can also do it like this = Worksheets("name")

    Set DataRng = Sh.Range("B2")
    Set TargetRng = Sh.Range("A4")

    While IsEmpty(TargetRng) = False
       TargetRng.Copy TargetRng.Offset(1, 0)
       TargetRng.Copy TargetRng.Offset(2, 0)

       Set CopyRng = Sh.Range(DataRng, DataRng.Offset(1, 1))
       CopyRng.Copy TargetRng.Offset(1, 1)

       Set TargetRng = TargetRng.Offset(3, 0)
       Set DataRng = DataRng.Offset(3, 0)
    Wend
End Sub

    Arbeitet mit relativen Referenzen in den Zellen 2C und 3C.

    • Ich habe es getestet. Wenn Sie gefüllt Ihre Zeilen genau wie TS beschrieben (beachten Sie, dass es Formeln, die in 2C und 3C), sollte es ausgefüllt haben, alle zahlen richtig. Ich vergaß den Namen, aber ich habe Sie nur bearbeitet.
    • Mein code macht genau das, was ich denke, TS ist für Fragen. Warum sollte ich prüfen, ob die Zeilen 2 und 3 gefüllt sind oder nicht? Es ist ein problem formuliert, Recht und hier mein code löst. Warum würde nicht es funktionieren für alles, was höher als 3? Er kopiert die ersten drei Zeilen mit Formeln, so dass, wenn Sie ändern 2 in der zweiten Zeile 5 wird die Arbeit mit 5. Ich glaube, Sie missverstanden die Frage. Ich bekomme genau das gleiche Ergebnis wie er.
    • Sorry, aber der code oben nicht funktioniert grozhd.
    • Haben Sie relative Bezüge in Formeln in Zellen 2C und 3C? Haben Sie Ihr Blatt? Was passiert, wenn Sie lief? Ich habe es getestet auf exakt die gleichen Daten, die Sie hier zeigte. Es funktioniert für eine beliebige Anzahl von Zeilen auch.
    • Ach ja, ich bin traurig, dass dein code auch funktioniert. Aber zuerst muss ich auswählen, um alle Daten bis zur letzten Zeile. Vielen Dank @grozhd
    InformationsquelleAutor grozhd
Schreibe einen Kommentar