Удалить из ячеек столбцы C текст записанный в ячейках столбца B - VBA
Формулировка задачи:
Добрый день!
Имеется excel файл напечатанного ниже формата:
Столбец "B"
- название;Столбец "C"
- путь к названию. Напишите пожалуйста макрос который удалит из ячеек столбцы "C", текст написанный в ячейках столбца "B". В каждом из столбцов заполнено по 50 тыс. строк. Пример файла исходник: [B1] Дождь/Снег/Вихрь/ Вода, [C1] Мини/Атлас /Дождь/Снег/Вихрь/ Вода, Пример файла необходимый результат: [B1] Дождь/Снег/Вихрь/ Вода, [C1] Мини/Атлас / Прикрепляю файл во вложении:Решение задачи: «Удалить из ячеек столбцы C текст записанный в ячейках столбца B»
textual
Листинг программы
Sub A() Dim S As String, S1 As String, I As Integer, K As Integer Application.ScreenUpdating = False For I = 1 To 50000 S = Cells(I, 3) K = InStrRev(S, Cells(I, 2)) If K > 0 Then S1 = "" If K > 1 Then S1 = Left(S, K - 1) K = K + Len(Cells(I, 2)) If K - 1 < Len(S) Then S1 = S1 & Mid(S, K) Cells(I, 3) = S1 End If Next Application.ScreenUpdating = True End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д