Použití VBA k převodu mého čárkového řetězce na řádky funguje skvěle – ale nyní musím porovnat zlom s hodnotou ve sloupci A. Příklad
Sloupec A obsahuje „Stromy: Sloupec B byl řetězec čárky: Dřín, Jasan, Javor, Jilm, Jablko.
Jak zobrazím jako:
Děkuji
Sloupec A obsahuje „Stromy: Sloupec B byl řetězec čárky: Dřín, Jasan, Javor, Jilm, Jablko.
Jak zobrazím jako:
| [font=Calibri]Proud[/ Font] | |
| [font=Calibri]Stromy[/ Font] | [font=Calibri]Dřín, jasan, javor, jilm, jablko[/ Font] |
| [font=Calibri]Potřeba[/ Font] | |
| [font=Calibri]Stromy[/ Font] | [font=Calibri]Dřín[/ Font] |
| [font=Calibri]Stromy[/ Font] | [font=Calibri]Jasan[/ Font] |
| [font=Calibri]Stromy[/ Font] | [font=Calibri]Javor[/ Font] |
| [font=Calibri]Stromy[/ Font] | [font=Calibri]jilm[/ Font] |
| [font=Calibri]Stromy[/ Font] | [font=Calibri]Apple [/font] |
Veřejný dílčí textToColumns()
Nastavit ARange = Range("A:A")
Nastavit BRange = Range("B:B")
Nastavit CRange = Range("C:C")
Nastavit DRange = Range("D:D")
Dim arr() Jako řetězec
lr = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Vytyčit = Worksheets.Add
out.Name = "ven"
mimořádek = 2
Pro i = 2 až lr
arr = Split(ARange(i), ",")
Pro j = 0 až UBound(arr)
out.Cells(outRow, 1) = Trim(arr(j))
out.Cells(outRow, 2) = BRange(i)
out.Cells(outRow, 3) = CRange(i)
out.Cells(outRow, 4) = DRange(i)
outRow = outRow + 1
Další j
Příště já
End Sub
Neudělal jsem záhlaví ani jsem se pořádně nezabýval výstupním listem, ale v podstatě vidíte, co se děje.
Nastavit ARange = Range("A:A")
Nastavit BRange = Range("B:B")
Nastavit CRange = Range("C:C")
Nastavit DRange = Range("D:D")
Dim arr() Jako řetězec
lr = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Vytyčit = Worksheets.Add
out.Name = "ven"
mimořádek = 2
Pro i = 2 až lr
arr = Split(ARange(i), ",")
Pro j = 0 až UBound(arr)
out.Cells(outRow, 1) = Trim(arr(j))
out.Cells(outRow, 2) = BRange(i)
out.Cells(outRow, 3) = CRange(i)
out.Cells(outRow, 4) = DRange(i)
outRow = outRow + 1
Další j
Příště já
End Sub
Neudělal jsem záhlaví ani jsem se pořádně nezabýval výstupním listem, ale v podstatě vidíte, co se děje.
- Stránka:
- 1
Na tento příspěvek zatím nebyly učiněny žádné odpovědi.