Разделение текста на столбцы

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Разделение текста на столбцы (Макросы/Sub)

Vinik

Дата: Четверг, 24.05.2018, 16:27 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 3

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

Помогите, пожалуйста, написать в Excel Макрос, чтобы текст из ячейки 4 (назначение платежа) разбивался на несколько столбцов:
1. Текст назначения платежа;
2. Сумма
3. Информация про НДС.
Заранее спасибо!

К сообщению приложен файл: 8223910.xls (33.5 Kb)

Ответить

_Boroda_

Дата: Четверг, 24.05.2018, 16:48 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 17006

Репутация: 6667 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Так нужно?
[vba]

Код

Sub Razd()
    Application.ScreenUpdating = 0
    Application.DisplayAlerts = 0
    Range("E1:F1").EntireColumn.Insert
    r1_ = Range("D" & Rows.Count).End(3).Row
    Range("D2:D" & r1_).TextToColumns Destination:=Range("D2"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, Other:=True, OtherChar:="" & Chr(10) & ""
    With Range("E2:E" & r1_)
        .Replace What:="Сумма ", Replacement:=""
        .Replace What:="-", Replacement:=","
        .FormulaLocal = .FormulaLocal
    End With
    Range("E1") = "Сумма"
    Range("F1") = "НДС"
    Columns("E:F").EntireColumn.AutoFit
    Application.DisplayAlerts = 1
    Application.ScreenUpdating = 1
End Sub

[/vba]

К сообщению приложен файл: 8223910_1.xls (46.0 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Vinik

Дата: Четверг, 24.05.2018, 17:25 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 3

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

_Boroda_, Да, а как-то можно чтобы сам столбец 4 (назначение платежа не изменялся), а в конце таблицы добавлялось три столбца (после комментария)
1. Текст назначения платежа;
2. Сумма;
3. Информация про НДС.
Файл во вложении.

Спасибо огромное!

К сообщению приложен файл: 5450782.xls (38.5 Kb)

Ответить

_Boroda_

Дата: Четверг, 24.05.2018, 17:59 | Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 17006

Репутация: 6667 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Да все также

[vba]

Код

Sub Razd()
    Application.ScreenUpdating = 0
    Application.DisplayAlerts = 0
    r1_ = Range("D" & Rows.Count).End(3).Row
    c1_ = Cells(1, Columns.Count).End(1).Column + 1
    Range("D1:D" & r1_).TextToColumns Destination:=Cells(1, c1_), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, Other:=True, OtherChar:="" & Chr(10) & ""
    With Cells(1, c1_ + 1).Resize(r1_)
        .Replace What:="Сумма ", Replacement:=""
        .Replace What:="-", Replacement:=","
        .FormulaLocal = .FormulaLocal
    End With
    Cells(1, c1_ + 1) = "Сумма"
    Cells(1, c1_ + 2) = "НДС"
    Columns(c1_).Resize(1, 3).EntireColumn.AutoFit
    Application.DisplayAlerts = 1
    Application.ScreenUpdating = 1
End Sub

[/vba]

Ответить

Vinik

Дата: Пятница, 25.05.2018, 08:40 | Сообщение № 5

Группа: Пользователи

Ранг: Прохожий

Сообщений: 3

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

_Boroda_, Большое человеческое спасибо, Вы очень помогли!

Ответить

Разделение текста на столбцы (Макросы/Sub)

Страница 1 из 1
1