Есть список имен и фамилий (это - ограниченный список; в реальности гораздо больше, поэтому и нужна автоматическая замена). В фильтре необходимо выбрать те, которые кончаются, на р, н, ов, ев, и разместить результаты в столбце б2, а ова, ева, ина - в б3. Не могу задать выше двух условий. Помогите, плз.
И еще, после отфильтровки фамилий на ина, ева, ова, заменить окончания в них на инной, евной, овной и поместить результаты в б4.
Спасибо и с уважением.
Есть список имен и фамилий (это - ограниченный список; в реальности гораздо больше, поэтому и нужна автоматическая замена). В фильтре необходимо выбрать те, которые кончаются, на р, н, ов, ев, и разместить результаты в столбце б2, а ова, ева, ина - в б3. Не могу задать выше двух условий. Помогите, плз.
И еще, после отфильтровки фамилий на ина, ева, ова, заменить окончания в них на инной, евной, овной и поместить результаты в б4.
На форуме вы не первый с подобной темой. Включите поиск и см. вкладку/скрин. ps А поскольку вам требуется комплексное решение, то надо, наверное, подумать о заказе решения...
На форуме вы не первый с подобной темой. Включите поиск и см. вкладку/скрин. ps А поскольку вам требуется комплексное решение, то надо, наверное, подумать о заказе решения... TimSha
задача - есть слова (пару тысяч), необходимо их поместить в различные падежи (а потом собрать все варианты в один документ). В связи с этим необходимо провести выборку слов по последним буквам, которые будут склоняться в целом на одни окончания по падежам (а затем уже в ручную доработать окончания, где были сделаны ошибки). Поэтому в моем вопросе такая выборка последних букв слов.
задача - есть слова (пару тысяч), необходимо их поместить в различные падежи (а потом собрать все варианты в один документ). В связи с этим необходимо провести выборку слов по последним буквам, которые будут склоняться в целом на одни окончания по падежам (а затем уже в ручную доработать окончания, где были сделаны ошибки). Поэтому в моем вопросе такая выборка последних букв слов.Slavagl
Сообщение отредактировал Slavagl - Четверг, 01.12.2016, 09:58
в vba два макроса ref1 составляет отобранные по вашим условиям списки подряд а ref2 составляет список в сроке рядом с исходной
для работы кнопок надо чтобы были включены макросы [vba]
Код
01 Dim str As String, endRow As Integer, c2 As Integer, c3 As Integer, c4 As Integer 02 endRow = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1 03 ActiveSheet.Range("---").Clear 04 c2 = 1: c3 = 1: c4 = 1 05 For f = 2 To endRow 06 str = ActiveSheet.Cells(f, 1).Value 07 If Right(str, 1) = "р" Or Right(str, 1) = "н" Or Right(str, 2) = "ов" Or Right(str, 2) = "ев" Then 08 ActiveSheet.Cells(c2, 2).Value = str: c2 = c2 + 1: End If 09 If Right(str, 3) = "ова" Or Right(str, 3) = "ева" Or Right(str, 3) = "ина" Then 10 ActiveSheet.Cells(c3, 3).Value = str: c3 = c3 + 1: End If 11 If Right(str, 3) = "ова" Or Right(str, 3) = "ева" Or Right(str, 3) = "ина" Then 12 ActiveSheet.Cells(c4, 4).Value = Mid(str, 1, Len(str) - 1) & "ной": c4 = c4 + 1: End If 13 Next f
[/vba]
по коду в строке 7 условие, в строке 8 что делать если совпадает, аналогично 9-10, 11-12 код проверяет все строки в первом столбце. 11-12 меняет в "ова", "ева", "ина" последнюю букву "а" на "ной" и записывает в 4 столбец
копируете в первую колонку полный список ваших ФИО, сохраняете файл, запускаете нужный макрос.
в vba два макроса ref1 составляет отобранные по вашим условиям списки подряд а ref2 составляет список в сроке рядом с исходной
для работы кнопок надо чтобы были включены макросы [vba]
Код
01 Dim str As String, endRow As Integer, c2 As Integer, c3 As Integer, c4 As Integer 02 endRow = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1 03 ActiveSheet.Range("---").Clear 04 c2 = 1: c3 = 1: c4 = 1 05 For f = 2 To endRow 06 str = ActiveSheet.Cells(f, 1).Value 07 If Right(str, 1) = "р" Or Right(str, 1) = "н" Or Right(str, 2) = "ов" Or Right(str, 2) = "ев" Then 08 ActiveSheet.Cells(c2, 2).Value = str: c2 = c2 + 1: End If 09 If Right(str, 3) = "ова" Or Right(str, 3) = "ева" Or Right(str, 3) = "ина" Then 10 ActiveSheet.Cells(c3, 3).Value = str: c3 = c3 + 1: End If 11 If Right(str, 3) = "ова" Or Right(str, 3) = "ева" Or Right(str, 3) = "ина" Then 12 ActiveSheet.Cells(c4, 4).Value = Mid(str, 1, Len(str) - 1) & "ной": c4 = c4 + 1: End If 13 Next f
[/vba]
по коду в строке 7 условие, в строке 8 что делать если совпадает, аналогично 9-10, 11-12 код проверяет все строки в первом столбце. 11-12 меняет в "ова", "ева", "ина" последнюю букву "а" на "ной" и записывает в 4 столбец
копируете в первую колонку полный список ваших ФИО, сохраняете файл, запускаете нужный макрос.K-SerJC
Благими намерениями выстелена дорога в АД.
Сообщение отредактировал K-SerJC - Четверг, 01.12.2016, 12:00