Příspěvky uživatele
< návrat zpět
Dobrý den,
moc Vám děkuji! Vaše úprava funguje :).
elninoslov napsal/a:
Príloha by to značne uľahčila, ale pokiaľ to máte obdobné tomuto, že výsledok očakávate inde, tak to môžete urobiť vzorcom.
Tab1 - zdroj dát
Tab2 - určuje, čo sa má za čo nahradiť
Výsledok - výsleodkPříloha: 25628_nahradtext.rar
No to by bylo ideální když bych málo řádků, ale když má mv tabulce např 10 000 řídku, které potřebuji nahradit a ještě k tomu to není seřazeno. Takže proti sobě nemám např. Apple a Green Apple na pozici A1 A B1, ale je to A1 a třeba B3580.
Takže bych potřeboval spíše makro kde můžu označit první oblast poté druhou oblast a zapíše se mi výsledek.
Dokonce na to i makro mám:
Sub MultiFindNReplace()
Dim Rng As Range
Dim InputRng As Range, ReplaceRng As Range
xTitleId = "Vyber_oblasti"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Original Range ", xTitleId, InputRng.Address, Type:=8)
Set ReplaceRng = Application.InputBox("Replace Range :", xTitleId, Type:=8)
Application.ScreenUpdating = False
For Each Rng In ReplaceRng.Columns(1).Cells
InputRng.Replace what:=Rng.Value, replacement:=Rng.Offset(0, 1).Value
Next
Application.ScreenUpdating = True
End Sub
Ale nevím jak tam zavést citlivost na velká/malá písmena a fungovalo mi jen do tabulek +/- 100 řádků.
Všechny :). Tím, že si označím nějakou oblast např A1:A3 (Apple až One) a poté tabulku B1:D3 a výsledkem bude Green Apple, Chicony Keyboard, Big One.
Samozřejmě to je jen příklad, potřeboval bych takové makro pro tabulky, které mají třeba 10 000 řádků.
Ahoj,
potřebuji radu. Mám dvě tabulky například:
TAB 1:
Column 1
Apple
Keyboard
One
TAB 2:
Column 1
Apple
Keyboard
One
Column 2
Green Apple
Chicony Keyboard
Big One
A potřebuji makro, které mi nahradí Apple za Green Apple.
Pokud možno do něj ještě zanést, aby bylo citlivé na velikost písmen.
Děkuji za Vaše rady! :)
Uživatelské menu
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články