Excel - преобразование текста с использованием прописных букв римскими цифрами

Question

У меня есть файл CSV, который экспортируется из другой программы с заголовком одного из столбцов. Все данные в исходной программе имеют заглавные буквы для поля заголовка, поэтому при экспорте заголовок выглядит примерно так: 'COLUMN TITLE IV'. Если я попытаюсь преобразовать текст в верхний регистр, заголовок будет выглядеть примерно так: "Заголовок столбца Iv".

Есть ли способ сохранить римские цифры в заглавии заглавными буквами, но преобразовать остальную часть в правильную заглавную?

В моем файле около 5000 записей, поэтому мне нужен способ сделать это не вручную.

РЕДАКТИРОВАТЬ: Что произойдет, если у меня есть название, как «CPR FUNDAMENTALS IV»? Есть ли способ сохранить ограничения СЛР и просто заменить «ОСНОВНЫЕ» на «Основы»?

Answer 1

Сначала установите следующие пользовательские функции в стандартном модуле:

Public Function Properize(s As String) As String
    Dim temp As String, i As Long, L As Long, U As Long
    ary = Split(UCase(s), " ")
    U = UBound(ary)
    L = LBound(ary)
    With Application.WorksheetFunction
        For i = L To U
            If IsRoman(ary(i)) Then
            Else
                ary(i) = .Proper(ary(i))
            End If
        Next i
    End With
    Properize = Join(ary, " ")
End Function


Public Function IsRoman(s As Variant) As Boolean
    Dim i As Long, L As Long
    For i = 1 To Len(s)
        ch = Mid(s, i, 1)
        If InStr(1, "IVXLCDM", Mid(s, i, 1)) = 0 Then
            IsRoman = False
            Exit Function
        End If
    Next i
    IsRoman = True
End Function

Затем с текстом в ячейке A1, B1 введите:

=Properize(A1)

Функции будут "в верхнем регистре" римскими цифрами и словами, которые "похожи" на римские цифры (например, CCCCCCCCCCCCCCCCCCCCCCCCCCCC)

Пользовательские функции (UDF) очень просты в установке и использовании:

1. ALT-F11 открывает окно VBE
2. ALT-I ALT-M открывает новый модуль
3. вставьте материал и закройте окно VBE

Если вы сохраните книгу, UDF будет сохранен вместе с ней. Если вы используете версию Excel более поздней, чем в 2003 году, вы должны сохранить файл как .xlsm, а не .xlsx

Чтобы удалить UDF:

1. откройте окно VBE, как указано выше
2. очистить код
3. закройте окно VBE

Чтобы использовать UDF из Excel:

= MyFunction (А1)

Чтобы узнать больше о макросах в целом, смотрите:

http://www.mvps.org/dmcritchie/excel/getstarted.htm

а также

http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx

а подробности о UDF смотрите в:

http://www.cpearson.com/excel/WritingFunctionsInVBA.aspx

Макросы должны быть включены, чтобы это работало!