Jak zvrátit název domény notací v aplikaci Excel?
Někdy se můžete setkat s úlohou při obrácení názvu domény notací, jak je ukázáno níže, máte nějaké triky, jak to rychle vyřešit? V tomto článku představuji dvě metody, jak to rychle zvládnout.
Reverzní název domény notací pomocí VBA
Obrátit řetězec oddělovačem s obráceným uspořádáním textu
Reverzní název domény notací pomocí VBA
Zde je kód makra, který vám může pomoci, v aplikaci Excel postupujte následovně:
1. lis Alt + F11 klávesy pro povolení Microsoft Visual Basic pro aplikace okno.
2. cvaknutí Vložit > Modul, zkopírujte a vložte kód do prázdného skriptu.
VBA: Obrátit název domény notací
Sub Reverse()
'UpdatebyExtendoffice2017115
Dim xArr() As String
Dim xSplitStr As String
Dim xVal As String
Dim xRg As Range
Dim xCell As Range
Dim xIndex As Long
On Error Resume Next
Set xRg = Application.InputBox("Select cells:", "KuTools For Excel", Selection.Address, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
xSplitStr = "."
For Each xCell In xRg
If InStr(xCell.Value, xSplitStr) = 0 Then GoTo xBreak
xVal = ""
xArr = Split(xCell.Value, xSplitStr)
xIndex = UBound(xArr)
xVal = xArr(xIndex)
Do
xIndex = xIndex - 1
xVal = xVal & xSplitStr & xArr(xIndex)
Loop While xIndex > 0
xCell.Value = xVal
xBreak:
Next
Application.ScreenUpdating = True
End Sub
3. lis F5 zobrazí se dialogové okno, které vám připomene vybrat rozsah, který chcete pracovat.
4. cvaknutí OK.
Obrátit řetězec oddělovačem s obráceným uspořádáním textu
Pokud máte Kutools pro Excel, funkce Reverse Text Order vám může pomoci obrátit řetězec, jak potřebujete.
Kutools pro Excel, s více než 120 užitečné funkce, které vám usnadní práci. | ||
Po instalaci Kutools pro Excel, prosím, postupujte takto: (Zdarma ke stažení Kutools pro Excel nyní!)
1. Vyberte řetězec, který používáte, klikněte Kutools > Text > Opačné pořadí textu.
2. V Obrátit text dialogovém okně vyberte jednu možnost, na základě které potřebujete obrátit text.
3. cvaknutí Oka textové řetězce byly obráceny.
Demonstrace
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!