Поиск
Автор: Marina Zakharova. Добрый день!
Есть задача объединить несколько таблиц в одну большую. Беда в том, что количество и порядок столбцов в исходных таблицах может отличаться. Заголовки в исходных данных править - не вариант, таблиц оч. много. Вариант, предложенный Николаем на этой странице [URL=https://www.planetaexcel.ru/techniques/24/18605/
Изменен: 09.06.2022
Читать сообщение на форуме или сайте.Автор: Argo9. Доброго времени суток. Подскажите кто сталкивался. Есть такой код.
Sub XML_Replace()
Dim s, Stroka2 As String
Dim myRegExp As New RegExp
With myRegExp
.Global = True
.IgnoreCase = False
.MultiLine = False
.Pattern = ">\d{10}\d{12}|>\d{13}\d{15}((8|\+7)[\- ]?)?(\(?\d{3}\)?[\- ]?)?[\d\- ]{7,10}ПРАВЛЕНО\d{10}\d{12}ПРАВЛЕНО\d{13}\d{15}ПРАВЛЕНО((8|\+7)[\- ]?)?(\(?\d{3}\)?[\- ]?)?[\d\- ]{7,10}ПРАВЛЕНО
Изменен: 13.11.2019
Читать сообщение на форуме или сайте.Автор: Akhma. Здравствуйте.
Сохраняю содержимое трех листов книги, в которых от 1 до 4 столбцов и от 4 до примерно 60 строк, в формат xlText, при этом, после того, как открою созданные txt файлы, вижу, что после последней строки, осуществлен перенос курсора на новую строку. Необходимо, чтобы файлы txt создавались без этого переноса, так как он мешает при дальнейшем импорте этих файлов в сторонний программный продукт. Файл с образцом проблемы прикрепил. Файл создан в Excel 2013.
Благодарю.
Изменен: 29.07.2019
Читать сообщение на форуме или сайте.Автор: vcomp71. Воспользовался примером для тастирования регулярных выражений
Sub RegExp_exemple()
Dim myRegExp As New RegExp ' создаем экземпляр RegExp
Dim aMatch As Match ' один из совпавших образцов
Dim colMatches As MatchCollection ' коллекция этих образцов
Dim strTest As String ' тестируемая строка
strTest = "a b c"
' устанавливаем свойства объекта RegExp
myRegExp.Global = False ' если Global = True, то поиск ведётся во всей строке, _
если False, то только до ...
Изменен: 17.09.2018
Читать сообщение на форуме или сайте.