Excel-VBA-code zur Umsetzung von Daten aus Zeilen in Spalten

Ich habe Daten in Spalte A mit 50000 Zeilen von Daten. Ich umgesetzt werden müssen alle 6 Datenzeilen 6 Spalten. Zum Beispiel Daten von A1:A6 Nationales Recht umgesetzt werden muss, B1:G1. Wieder Daten von der A7:nehmen Sie die A14 Nationales Recht umgesetzt werden muss B2:G2. Ich Schätze, wenn jemand bieten kann VBA-code für diese.

Daten habe ich in Spalte A ist, wie gezeigt, unten:

Col A
1
2
3
4
5
6
7
8
9
10
11
12

Das transponieren, müssen die Daten, wie unten in col B col G:

Columns  B   C   D   E   F   G
         1   2   3   4   5   6
         7   8   9   10  11  12

InformationsquelleAutor Siraj | 2016-05-31

  1. 6

    zusätzliche Variante von meiner Seite:

    Sub TransposeRows2()
    Dim i&, z&, x&
    i = Cells(Rows.Count, "A").End(xlUp).Row
    z = 1: x = 1
    While z <= i
        Range("B" & x).Resize(, 6) = _
            WorksheetFunction.Transpose(Range("A" & z).Resize(6))
        z = z + 6: x = x + 1
    Wend
End Sub

    getestet:

    Excel-VBA-code zur Umsetzung von Daten aus Zeilen in Spalten

    Vielen Dank und es funktioniert superschnell. Wunderbar

    InformationsquelleAutor Vasily

  2. 8

    Versuchen Sie dies:

    Sub TransposeRows()
    Dim rng As Range
    Dim i As Long

    Set rng = Range("A1")
    While rng.Value <> ""
        i = i + 1
        rng.Resize(6).Copy
        Range("B" & i).PasteSpecial Transpose:=True
        Set rng = rng.Offset(6)            
    Wend
    Application.CutCopyMode = False
End Sub

    Habe diese aus hier.

    InformationsquelleAutor Mrig

  3. 7

    Brauchen Sie nicht ein makro dafür. In B1 eingeben:

    =OFFSET($A$1,COLUMNS($A:A)-1+(ROWS($1:1)-1)*6,0)

    Dann kopieren Sie beide über und unten:

    Excel-VBA-code zur Umsetzung von Daten aus Zeilen in Spalten

    Danke, aber wenn gezogen/kopiert, dupliziert es auf alle Zellen.

    InformationsquelleAutor Gary's Student

  4. 0

    In Portugiesisch Excel, "Gary' s Student's Formel, für 4 Spalten statt 6, wird:

    =DESLOCAMENTO($A$1;COLS($A:A)-1+(LINS($1:1)-1)*4;0)

    InformationsquelleAutor Miguel Ângelo Rodrigues

Schreibe einen Kommentar