Jak se rozdělit podle oddělovače a transponovat buňky v aplikaci Excel?
V tomto článku představuji způsoby, jak rozdělit rozsah podle konkrétního oddělovače a poté jej transponovat v aplikaci Excel, jak je ukázáno níže. Pokud vás tento úkol zajímá, přejděte na níže uvedené podrobnosti.
Rozdělte a proveďte pomocí VBA
Rozdělte a transponujte pomocí Kutools pro Excel
Rozdělte a proveďte pomocí VBA
Neexistuje žádný přímý způsob, jak rozdělit a transponovat data pomocí konkrétního oddělovače, ale mohu vám představit kód VBA, který vám pomůže rychle vyřešit tento problém.
1. lis Alt + F11 tlačítka k zobrazení Microsoft Visual Basic pro aplikace okno.
2. cvaknutí Vložit > Modula vložte nový kód pod nový Modul okno.
VBA: Rozdělit a transponovat
Sub Vertical()
'UpdatebyExtendoffice20161125
Dim i As Long, strTxt As String
Dim startP As Range
Dim xRg As Range, yRg As Range
On Error Resume Next
Set xRg = Application.InputBox _
(Prompt:="Range Selection...", _
Title:="Kutools For Excel", Type:=8)
i = 1
Application.ScreenUpdating = False
For Each yRg In xRg
If i = 1 Then
strTxt = yRg.Text
i = 2
Else
strTxt = strTxt & "," & yRg.Text
End If
Next
Application.ScreenUpdating = True
Set startP = Application.InputBox _
(Prompt:="paste range...", _
Title:="Kutools For Excel", Type:=8)
ary = Split(strTxt, ",")
i = 1
Application.ScreenUpdating = False
For Each a In ary
startP(i, 1).Value = a
i = i + 1
Next a
Application.ScreenUpdating = True
End Sub3. lis F5 klíč ke spuštění kódu, objeví se dialogové okno pro výběr rozsahu k rozdělení a transpozici.
4. cvaknutí OK. Zobrazí se dialogové okno pro výběr umístění pro umístění dat.
5. cvaknutí OKa výběr byl rozdělen a proveden čárkou.
Rozdělte a transponujte pomocí Kutools pro Excel
S Kutools pro Excel, můžete použít jeho Rozdělit buňky nejprve rozdělit buňky oddělovačem a poté použít Rozsah transformace nástroj pro převod buněk do jednoho sloupce.
| Kutools pro Excel, s více než 300 užitečné funkce, které vám usnadní práci. |
Po instalaci Kutools pro Excel, prosím, postupujte takto :(Stažení zdarma Kutools pro Excel hned teď!)
1. Vyberte buňky, které chcete rozdělit, a klepněte na Kutools > Sloučit a rozdělit > Rozdělit buňky. Viz snímek obrazovky:
2. V Rozdělit buňky dialog, zkontrolujte Rozdělit na sloupce vyberte oddělovač, podle kterého chcete rozdělit, klikněte na Ok. A vyberte prázdnou buňku a umístěte výsledek do druhé Rozdělit buňky dialog. Viz screenshot:
3. cvaknutí OK, poté byly buňky rozděleny do sloupců a poté klepněte na Kutools > Rozsah > Rozsah transformace. Viz snímek obrazovky:
4. V Rozsah transformace dialog, zkontrolujte Rozsah do jednoho sloupce, Klepněte na tlačítko Oka vyberte buňku k umístění výsledku. Viz snímek obrazovky:
5. cvaknutí OK, nyní byl rozsah převeden do jednoho sloupce.
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
