Последние записи
- Изменить цвет шрифта TextBox на форме
- Ресайз PNG без потери прозрачности
- Вывод на печать графического файла
- Взаимодействие через командную строку
- Перенести программу из Delphi в Lazarus
- Определить текущую ОС
- Автоматическая смена языка (раскладки клавиатуры)
- Сравнение языков на массивах. Часть 2
- wprintf как напечатать кириллицу
- Взаимодействие через командную строку
Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk
Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw
17th
Июл
Разбить по стоблбцам и строкам
Posted by obzor under Basic, VBA
В 1 ячейке есть данные, их нужно разбить не только по столбцам, но и по строкам, главный критерий это то, что нужно разбивать все что через пробел ну и строки.
Доработайте под свои нужды — Вы как-то не очень хорошо расписали задачу «через пробел» — пробел у Вас встречается и там, где перенос должен быть в одну ячейку, например FI Date, Net value
Данный макрос разбивает все в столбик J:J, вот это
value
5060021072
переносит в одну ячейку, т.к. между ними нет пробела.
Доработайте слова — скорее всего они одни и те же, может соориентироваться под крайнее значение 28000,00 — для счетчика столбцов и перехода на следующую строку
Sub Macro1()
'
Dim rCell As Range, li As Long, le As Long, sWord, vNamber
li = Cells(Rows.Count, 1).End(xlUp).Row
Application.ScreenUpdating = False
On Error Resume Next
For Each rCell In Range(Cells(15, 1), Cells(li, 1))
vNamber = Split(rCell)
sWord = Split(rCell.Offset(, 10).Value, ",")
For le = LBound(vNamber) To UBound(vNamber)
If vNamber(le) <> "" Then Cells(li, 10) = Trim(vNamber(le))
If sWord(le) <> "" Then Cells(li, 10) = Application.Proper(Trim(sWord(le)))
li = li + 1
Next le
Next rCell
Application.ScreenUpdating = True
End Sub
Похожие статьи
Купить рекламу на сайте за 1000 руб
пишите сюда - alarforum@yandex.ru
Да и по любым другим вопросам пишите на почту
пеллетные котлы
Пеллетный котел Emtas
Наши форумы по программированию:
- Форум Web программирование (веб)
- Delphi форумы
- Форумы C (Си)
- Форум .NET Frameworks (точка нет фреймворки)
- Форум Java (джава)
- Форум низкоуровневое программирование
- Форум VBA (вба)
- Форум OpenGL
- Форум DirectX
- Форум CAD проектирование
- Форум по операционным системам
- Форум Software (Софт)
- Форум Hardware (Компьютерное железо)