So konvertieren Sie mehrere Datenzeilen und -spalten in EXCLE in eine Spalte

So konvertieren Sie mehrere Datenzeilen und -spalten in EXCLE in eine Spalte

Optionsbasis 1

Unterzellbereich außer Leerzeichen()

Dimmen Sie meinen As-Bereich, my1(), c As-Bereich

Dim p As Long

Dim i As Long

Set my = Application.InputBox(Prompt:="Verwenden Sie die Maus, um einen Zellbereich auszuwählen", Typ:=8)

p = my.Count

i = 1

ReDim my1(p, 1)

Für jedes c in meinem

Wenn c.Wert ＂＂ Dann

my1(i, 1) = c.Value

i = i + 1

Ende wenn

Nächstes c

Set my = Application.InputBox(Prompt:="Verwenden Sie die Maus, um die erste auszugebende Zelle auszuwählen", Type:=8)

Application.ScreenUpdating = False

Wenn i = 1, dann

my = my1

Sonst

Range(my, my.Offset(i - 2, 0)) = my1

Ende wenn

Application.ScreenUpdating = True

MsgBox „Fertig.“

End Sub

Dieser Code kann das erreichen, was Sie wollen.

Bedienungsreferenz

So ordnen Sie mit Excel Daten in mehreren Zeilen und Spalten in einer Spalte an

Sie können sich auf die Frage „Hilfe: Gibt es eine Möglichkeit, Zeilen stapelweise in Spalten umzuwandeln“ beziehen, die ich gestern in „“ beantwortet habe

Das heißt, konvertieren Sie die oberen 3 Zeilen in die unteren 2 Spalten. Ich weiß nicht, ob das gemeint ist!

1. Geben Sie die Formel in Zelle A10 ein:

=OFFSET($A$1,INT((ROW(A1)-1)/10),MOD(ROW(A1)-1,10))

Kopieren und ablegen

2. Geben Sie die Formel in Zelle B10 ein:

=IF(OFFSET($A$1,INT((ROW(B1)-1)/10),MOD(ROW(B1)+9,10)+1)=＂＂,＂＂,OFFSET($A$1 ,INT((ROW(B1)-1)/10),MOD(ROW(B1)+9,10)+1))

Kopieren und ablegen

3. Wählen Sie den Bereich A10:B39 aus, klicken Sie mit der rechten Maustaste, um ihn zu kopieren – klicken Sie erneut mit der rechten Maustaste – Inhalte einfügen – Wert

Der Datenbereich von A10:B39 wird gebildet, alle Formeln sind verschwunden und alle Zellen werden zu Daten.

4. Sortieren und löschen Sie die Zeilen mit Leerzeichen in Spalte B. Das war’s.

So konvertieren Sie in Excel mehrere Zeilen und Spalten in eine Datenspalte

E2=IF(ROW(A1)>COUNTA($A$2:$D$9),"＂,INDIRECT(TEXT(SMALL(IF($A$2:$D$9＂",ROW($A$2:$D $9)*100+COLUMN($A$2:$D$9),99^9),ROW(A1)),"r0c00"),))

F2=IF(ROW(A1)>COUNTA($A$2:$D$9),＂＂,INDEX($A$1:$D$9,MOD(SMALL(IF($A$2:$D$9＂＂, ROW($A$2:$D$9)/100+COLUMN($A$2:$D$9),99^9),ROW(A1)),1)*100,INT(SMALL(IF($A$2: $D$9＂＂,ROW($A$2:$D$9)/100+COLUMN($A$2:$D$9),99^9),ROW(A1))))

Kopieren Sie die Array-Formel nach unten [Array-Formel, nachdem Sie die Formel eingegeben haben, platzieren Sie den Cursor in der Formelbearbeitungsleiste und drücken Sie STRG+UMSCHALT+Eingabetaste, damit die Array-Formel wirksam wird]

Das obige ist der detaillierte Inhalt vonSo konvertieren Sie mehrere Datenzeilen und -spalten in EXCLE in eine Spalte. Für weitere Informationen folgen Sie bitte anderen verwandten Artikeln auf der PHP chinesischen Website!