|
Компьютерный форум OSzone.net » Сфера Microsoft » Microsoft Office (Word, Excel, Outlook и т.д.) » 2010 - [решено] удалить из строчки числа, где более 4 цифр |
|
2010 - [решено] удалить из строчки числа, где более 4 цифр
|
Старожил Сообщения: 292 |
Профиль | Отправить PM | Цитировать
есть txt файл, он разделен таблуляцией
его путь С:/ мойфайл.txt его содержимое,я прикрепил. В поле id id какая то фраза *2108609 fsfhsfghsgfhjdfsdh 3420159 rgyaeghpiudarsfghpuashg 900г 2030918 Пhsapsgiju[aeri 180г 2013077 a[osdig[aodifg[ad из строчек, где у чисел больше чем 4 цифр удалять такие числа из строчки т.е на выходе id какая то фраза fsfhsfghsgfhjdfsdh rgyaeghpiudarsfghpuashg 900г Пhsapsgiju[aeri 180г a[osdig[aodifg[ad Как это сделать средствами VBA? там много строчек. |
|
Отправлено: 15:52, 13-10-2018 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать Цитата kontox:
Цитата kontox:
В любом случае, и там, и там код будет практически идентичен. На VBA для приложенной Рабочей книги: Option Explicit
Sub Sample()
Dim objRange As Range
With CreateObject("VBScript.RegExp")
.Pattern = "\d{5,}"
.Global = True
For Each objRange In Intersect(ThisWorkbook.Worksheets.Item("Лист1").UsedRange.Offset(1, 0), ThisWorkbook.Worksheets.Item("Лист1").Columns("G"))
objRange.Value = .Replace(objRange.Value, "")
Next objRange
End With
End Sub
|
||
Последний раз редактировалось Iska, 14-10-2018 в 18:14. Причина: Поправил некорреткно скопированную кириллицу в имени Рабочего листа: Ëèñò1 → Лист1 Отправлено: 20:10, 13-10-2018 | #2 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Старожил Сообщения: 292
|
Профиль | Отправить PM | Цитировать Iska, все ок)
|
Отправлено: 15:59, 14-10-2018 | #3 |
Участник сейчас на форуме | Участник вне форума | Автор темы | Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Любой язык - [решено] Удалить (перенести) все папки, кроме начинающихся с цифры (цифр) | Wrongbee | Скриптовые языки администрирования Windows | 5 | 04-05-2018 16:50 | |
Интерфейс - Как отключить бесполезные строчки из подречной менюшки? | sssjajjasa | Microsoft Windows 8 и 8.1 | 2 | 24-07-2013 15:06 | |
[решено] Посыл строчки из текстового файла и удаление ее | socap | AutoIt | 0 | 07-02-2012 08:02 | |
CMD/BAT - [решено] Убрать строчки с pause из батника | game_Racer | Скриптовые языки администрирования Windows | 3 | 18-06-2011 16:27 | |
CMD/BAT - [решено] удалить строчки из файла a.txt | spilberg | Скриптовые языки администрирования Windows | 19 | 20-07-2009 17:49 |
|