Використання VBA для перетворення мого рядка коми в рядки чудово працює, але тепер мені потрібно зіставити розрив із значенням у стовпці A. Приклад
У стовпці A є "Дерева: стовпець B був рядком з комою: кизил, ясен, клен, в'яз, яблуня.
Як відобразити як:
Дякую
У стовпці A є "Дерева: стовпець B був рядком з комою: кизил, ясен, клен, в'яз, яблуня.
Як відобразити як:
| [font=Calibri]Поточний[/ FONT] | |
| [font=Calibri]Дерева[/ FONT] | [font=Calibri]Кизил, Ясен, Клен, В'яз, Яблуня[/ FONT] |
| [font=Calibri]Необхідність[/ FONT] | |
| [font=Calibri]Дерева[/ FONT] | [font=Calibri]Кизил[/ FONT] |
| [font=Calibri]Дерева[/ FONT] | [font=Calibri]Зола[/ FONT] |
| [font=Calibri]Дерева[/ FONT] | [font=Calibri]кленовий[/ FONT] |
| [font=Calibri]Дерева[/ FONT] | [font=Calibri]В'яз[/ FONT] |
| [font=Calibri]Дерева[/ FONT] | [font=Calibri]Apple [/font] |
0
розстібати
Голосів
Загальнодоступний підтекстToColumns()
Встановити ARrange = діапазон ("A:A")
Встановити BRange = Range("B:B")
Встановити CRange = Range("C:C")
Встановити DRange = Range("D:D")
Dim arr() Як рядок
lr = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Установити = Робочі аркуші.Додати
out.Name = "out"
позаряд = 2
Для i = 2 До lr
arr = Split(ARrange(i), ",")
Для j = 0 до UBbound(arr)
out.Cells(outRow, 1) = Обрізати(arr(j))
out.Cells(outRow, 2) = BRrange(i)
out.Cells(outRow, 3) = CRange(i)
out.Cells(outRow, 4) = DRrange(i)
вихідний ряд = вихідний ряд + 1
Наступний j
Далі я
End Sub
Я не робив заголовків і не працював належним чином з вихідним аркушем, але ви можете побачити, в основному, що відбувається.
Встановити ARrange = діапазон ("A:A")
Встановити BRange = Range("B:B")
Встановити CRange = Range("C:C")
Встановити DRange = Range("D:D")
Dim arr() Як рядок
lr = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Установити = Робочі аркуші.Додати
out.Name = "out"
позаряд = 2
Для i = 2 До lr
arr = Split(ARrange(i), ",")
Для j = 0 до UBbound(arr)
out.Cells(outRow, 1) = Обрізати(arr(j))
out.Cells(outRow, 2) = BRrange(i)
out.Cells(outRow, 3) = CRange(i)
out.Cells(outRow, 4) = DRrange(i)
вихідний ряд = вихідний ряд + 1
Наступний j
Далі я
End Sub
Я не робив заголовків і не працював належним чином з вихідним аркушем, але ви можете побачити, в основному, що відбувається.
- Сторінки:
- 1
На цю посаду ще немає відповідей.