Ein Formelmuster in Excel replizieren

691
M Agil

Ich habe eine Tabelle, die wie folgt aussieht: diese.

Ich möchte die zweite Tabelle mit den Werten aus der ersten Tabelle füllen. Der offensichtliche (und mühsame) Weg wäre, dies manuell zu tun, zB B7 hätte die Formel =B2, B8 wäre =D2und so weiter.

Gibt es eine Möglichkeit, Excel dazu zu bringen, das Muster zu erkennen, dh eine Spalte in der zweiten Tabelle entspricht jedem zweiten Wert in einer Zeile in der ersten Tabelle? Wenn ich versuche, unten rechts in der Zelle zu ziehen, folgt ein falsches Muster.

0
Die manuelle Art und Weise, die Sie beschreiben, würde funktionieren - ich bin nicht sicher, warum Sie das Gefühl haben, dass es mühsam ist, also vermute ich, dass Sie die Frage "verdummt" haben, um es kurz zu halten (was cool ist), aber können Sie erklären, warum es mühsam ist, bitte? :) Dave vor 7 Jahren 0
Ja, ich habe die Frage "verdummt". Die eigentlichen Daten, mit denen ich zu tun habe, sind eine viel größere Tabelle und müssen in den kommenden Jahren an ähnlichen Datensätzen wiederholt werden M Agil vor 7 Jahren 0
Ist VBa eine Option? Dies ist die einzige Möglichkeit, dies zu automatisieren Dave vor 7 Jahren 0
Mate's Lösung hat perfekt funktioniert, danke :) M Agil vor 7 Jahren 0

2 Antworten auf die Frage

1
Máté Juhász

Nein, dafür gibt es keinen genauen Weg. Sie haben zwei Problemumgehungen:

  1. Mit transponieren:

    • Löschen Sie die leeren Spalten
    • Wählen Sie Ihre Daten aus und drücken Sie STRG + C
    • gehe zu home - einfügen - transponieren

  2. mit der Formel

    • Kopfzeilen füllen
    • in B7 eingeben =INDEX($B$2:$H$4,MATCH(B$6,$A$2:$A$4,0),MATCH($A7,$B$1:$H$1,0))
    • Formel unten und rechts ausfüllen
0
Dave

Ich hatte keine Zeit, daher verspreche ich nicht, dass es effizient oder sogar gut codiert ist, aber diese VBa funktioniert. (Bearbeiten, und habe auch nicht gewusst, dass Sie eine akzeptierte Antwort hatten, wird dies aber auf jeden Fall beibehalten)

Bei der Ausführung von VBa gibt es keine Option zum Rückgängigmachen, also zuerst sichern.

Option Explicit  Sub doTheThing()  Dim userStartRowInColA As Integer userStartRowInColA = 2 'update this as needed, in your example I assume the rows start on row 2  Dim userColDifference As Integer userColDifference = 2 'in your example, the top table is every 2 rows, hence the 2    Dim startRowInColA As Integer startRowInColA = userStartRowInColA  Dim vals As String vals = ""  Dim items As String items = ""  Dim valsMissedTwo As Boolean valsMissedTwo = False  Dim startCol As Integer startCol = 65  Do While (True)  Dim col As String col = Chr(startCol)  If Range(col & 1).Value = "" And valsMissedTwo Then Exit Do Else valsMissedTwo = False End If  If Range(col & 1).Value = "" And Not valsMissedTwo Then valsMissedTwo = True End If  If Range(col & 1).Value <> "" Then vals = vals + Range(col & 1).Value + "," End If   startCol = startCol + 1 Loop    Do While Range("A" & startRowInColA).Value <> ""  items = items + Range("A" & startRowInColA).Value + ","  startRowInColA = startRowInColA + 1 Loop   Dim table2StartCol As Integer Dim table2StartRow As Integer table2StartRow = startRowInColA + 1 table2StartCol = 66   Dim splitVals() As String splitVals = Split(vals, ",")  Dim splitItems() As String splitItems = Split(items, ",")  'add the items as cols For startCol = 1 To UBound(splitItems) If splitItems(startCol - 1) <> "" Then Range(Chr(65 + startCol) & startRowInColA + 5).Value = splitItems(startCol - 1) End If Next startCol   'add the vals on left as rows  For startCol = 1 To UBound(splitVals) If splitVals(startCol - 1) <> "" Then Range("A" & startCol + startRowInColA + 5).Value = splitVals(startCol - 1) End If Next startCol  'now to populate  Dim sr As Integer sr = startRowInColA + 6  Dim sc As Integer sc = 66  Dim oSr As Integer oSr = userStartRowInColA   Dim i As Integer i = 0  Dim j As Integer j = 0    Do While (True) Do While Range(Chr(sc) & oSr).Value <> ""  Range(Chr(sc + i) & sr).Value = Range(Chr(sc + j) & oSr).Value  i = i + 1 oSr = oSr + 1  Loop  j = j + userColDifference i = 0 oSr = userStartRowInColA sr = sr + 1 If Range("A" & sr).Value = "" Then Exit Do End If  Loop   End Sub

Vor

Nach dem

Wie Sie sehen, müssen Sie die zweite Tabelle nicht erstellen, sie erfolgt auch automatisch

Wie füge ich VBA in MS Office hinzu?

Verwandte Probleme