Как бързо да разделя текстов низ по регистър в Excel?
В Excel обикновено разделяме текст по фиксирана ширина или разделител с функцията Text to Columns, но опитвали ли сте някога да разделяте текст с главни и малки букви? Например, имате списък с данни и трябва да ги разделите на две колони въз основа на случая: едната колона съдържа низ с малки букви, а другата съдържа низ с главни букви, както е показано на екранната снимка по-долу. Функцията Text to Columns не поддържа тази операция, но мога да въведа трикове за бързо разделяне на текстов низ по регистър в Excel.
Разделяне на текст по регистър с VBA
Разделете текст на редове/колони чрез разделител с Kutools за Excel
Разделяне на текст по регистър с VBA
В Excel има само макро код за бързо разделяне на низ въз основа на малки и главни букви.
1. Натиснете Alt + F11 бутони за отваряне Microsoft Visual Basic за приложения прозорец.
2. кликване Поставете > Модулии поставете кода по-долу в празното място Модули скриптове.
VBA: Разделяне на низ по регистър.
Sub CamelCase()
'UpdatebyExtendoffice20160711
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim xCount As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
LInput:
Set xRg = Nothing
Set xRg = Application.InputBox("Select a range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Areas.Count > 1 Then
MsgBox "It not work in multiple selection", vbInformation, "Kutools for Excel"
GoTo LInput
End If
If xRg.Columns.Count > 1 Then
MsgBox "It only work in one column", vbInformation, "Kutools for Excel"
GoTo LInput
End If
On Error Resume Next
Application.ScreenUpdating = False
With CreateObject("vbscript.regexp")
.Pattern = "(\S)([A-Z]+[^A-Z])"
.Global = True
For Each xCell In xRg
xCount = .Execute(xCell).Count
If xCount Then xCell.Resize(, xCount + 1) = Split(.Replace(xCell, "$1" & Chr(1) & "$2"), Chr(1))
Next
End With
Application.ScreenUpdating = True
End Sub
3. Натиснете F5 и изскача диалогов прозорец, който ви напомня да изберете текстове за разделяне. Вижте екранна снимка:
4. кликване OK, а избраните текстове са разделени на две колони, като едната съдържа малки букви, а другата съдържа главни букви.
Разделете текст на редове/колони чрез разделител с Kutools за Excel
В много случаи може да искате да разделите клетка на множество редове или колони въз основа на конкретен знак. В Excel вградената функция Text to Columns само може да ви помогне да конвертирате клетка в колони директно, но не и да работи при преобразуване на редове. Въпреки това, с Kutools за Excel – удобен и полезен инструмент, можете да го приложите Разделени клетки помощна програма за бързо разделяне на низ на редове или колони въз основа на разделител или фиксирана ширина.
Kutools за Excel, с повече от 300 удобни функции, прави работата ви по-лесна. |
След безплатно инсталиране Kutools за Excel, моля, направете следното:
1. Изберете клетката, която искате да разделите, и щракнете Kutools > Обединяване и разделяне > Разделени клетки. Вижте екранна снимка:
2. В Разделени клетки диалоговия прозорец, проверете желания тип разделяне в Тип и отидете, за да проверите конкретния разделител, въз основа на който искате да разделите в Разделяне по раздел. Вижте екранна снимка:
3. кликване Ok, изскача диалогов прозорец, който ви напомня да изберете клетка, за да поставите разделеното съдържание. Вижте екранна снимка:
4. След като изберете, щракнете OKи избраната клетка е разделена на редове въз основа на пространство. Вижте екранна снимка:
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!