Mulla ois Taul2 dokumentti josta pitää korvata kaikki Taul1 A -sarakkeen rivit B -sarakkeen riveillä kunnes A -sarakkeessa lopuu täytetyt rivit.
Aloitin jo väkertää:
For a = Range("Taul1!A2:A10").Cells.Count To 1 Step -1
Cells.Replace What:=Range("Taul1!B2:B10").Select, Replacement:=Range("Taul1!C2:C10").Select, LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Next a
Oisko jollain antaa hyviä vinkkejä?
Miten toteuttaa?
Anonyymi
9
78
Vastaukset
- Anonyymi
Tehtävänannossa väärinymmärryksen vaara olemassa, mutta jos ymmärsin oikein niin... kaikessa lyhykäisyydessään ratkaisu voisi olla esim. seuraava:
Sub KopiointiBtoA()
Dim lastrow1 As Long
lastrowA = Cells(Rows.Count, "A").End(xlUp).Row
Range("B1:B" & lastrowA).Select
Selection.Copy
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub- Anonyymi
Korjataan saman tien typo edelliseen:
Sub KopiointiBtoA()
Dim lastrowA As Long
lastrowA = Cells(Rows.Count, "A").End(xlUp).Row
Range("B1:B" & lastrowA).Select
Selection.Copy
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
- Anonyymi
Taisin selittää vähän huonosti :D
Eli tarkoitus olis että mulla on toisella välilehdellä dokumentti ja toisessa taulukossa sarakkeessa A etsittävät tekstit siitä dokumentista ja sarake B vastaavasti miten ne sarake A tekstit korvataan.
Eli esim. A1 = moi, A2 = päivää, B1 = moikka, B2 = iltaa
A1 solun siltä korvataa dokumentissa B1 solun sisällöllä
Kiitos Kunde :)- Anonyymi
Toisella välilehdellä on dokumentti
Toisessa taulukossa on sarakkeita
Kysyjällä on lahjakkaasti sekaisin tiedostonimet eli dokumentit, tiedostoissa olevat välilehdet ja välilehdillä olevat sarakkeet ja rivit. Voinemme vain ihmetellä miten ko. yrityksen henkilöstöpäällikkö voi olla ylpeä henkilöstöstään. Kalliit kurssitukset ovat haihtuneet tuhkana ilmaan :( - Anonyymi
Anonyymi kirjoitti:
Toisella välilehdellä on dokumentti
Toisessa taulukossa on sarakkeita
Kysyjällä on lahjakkaasti sekaisin tiedostonimet eli dokumentit, tiedostoissa olevat välilehdet ja välilehdillä olevat sarakkeet ja rivit. Voinemme vain ihmetellä miten ko. yrityksen henkilöstöpäällikkö voi olla ylpeä henkilöstöstään. Kalliit kurssitukset ovat haihtuneet tuhkana ilmaan :(OK, pahoitteluni, selviätkö nyt tästä kammottavasta virheestä?
Joo siis toisella välilehdellä on dokumentti ja toisella nämä korvattavat A- ja B- sarakkeet. - Anonyymi
Anonyymi kirjoitti:
OK, pahoitteluni, selviätkö nyt tästä kammottavasta virheestä?
Joo siis toisella välilehdellä on dokumentti ja toisella nämä korvattavat A- ja B- sarakkeet.Sub KorvaaTeksti()
Dim sht1 As Worksheet
Dim sht2 As Worksheet
Dim fnd As Variant
Dim rplc As Variant
Dim lastrowA As Long
Set sht1 = Sheets("Taul1")
Set sht2 = Sheets("Taul2")
sht2.Activate
lastrowA = Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To lastrowA
sht2.Range("A" & i).Select
fnd = ActiveCell.Text
rplc = ActiveCell.Offset(0, 1).Text
sht1.Cells.Replace what:=fnd, Replacement:=rplc, _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
SearchFormat:=False, ReplaceFormat:=False
Next i
sht1.Activate
End Sub - Anonyymi
Anonyymi kirjoitti:
Sub KorvaaTeksti()
Dim sht1 As Worksheet
Dim sht2 As Worksheet
Dim fnd As Variant
Dim rplc As Variant
Dim lastrowA As Long
Set sht1 = Sheets("Taul1")
Set sht2 = Sheets("Taul2")
sht2.Activate
lastrowA = Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To lastrowA
sht2.Range("A" & i).Select
fnd = ActiveCell.Text
rplc = ActiveCell.Offset(0, 1).Text
sht1.Cells.Replace what:=fnd, Replacement:=rplc, _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
SearchFormat:=False, ReplaceFormat:=False
Next i
sht1.Activate
End SubOsaaks toi käydä rivin kerrallaan läpi eli a1, a2, a3...
- Anonyymi
Anonyymi kirjoitti:
Osaaks toi käydä rivin kerrallaan läpi eli a1, a2, a3...
Taul2 A-sarakkeessa n kpl vanhoja sanoja (A1, A2, An)
Taul2 B-sarakkeessa n kpl uusia sanoja (B1, B2, Bn)
Tsydeemi kahlaa kaikki Taul2-sarakkeet A ja B rivi kerrallaan läpi ja tekee niiden mukaiset tekstien korvaukset (vanha sana korvataan uudella) Taul1 -välilehden kaikkiin soluihin. - Anonyymi
Anonyymi kirjoitti:
Taul2 A-sarakkeessa n kpl vanhoja sanoja (A1, A2, An)
Taul2 B-sarakkeessa n kpl uusia sanoja (B1, B2, Bn)
Tsydeemi kahlaa kaikki Taul2-sarakkeet A ja B rivi kerrallaan läpi ja tekee niiden mukaiset tekstien korvaukset (vanha sana korvataan uudella) Taul1 -välilehden kaikkiin soluihin.Kiitän kovasti :)
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Tänään pyörit ajatuksissa enemmän, kun erehdyin lukemaan palstaa
En saisi, silti toivon että sinä vielä palaat ja otetaan oikeasti selvää, hioituuko särmät ja sulaudummeko yhteen. Vuod225144- 254328
- 272461
- 342244
- 371998
- 151908
En ole koskaan kokenut
Ennen mitään tällaista rakastumista. Tiedän että kaipaan sinua varmaan loppu elämän. Toivottavasti ei tarvitsisi vain ka191587- 121521
Voi ei! Jari Sillanpää heitti keikan Helsingissä - Hämmästyttävä hetki lavalla...
Ex-tangokuningas on parhaillaan konserttikiertueella. Hän esiintyi Savoy teatterissa äitienpäivänä. Sillanpää jakoi kons211247Kerranki asiat oikein
Ilkka ja muut pienpuolueeet...teitte hyvän työn kun valitsitte pätevän henkilön virkaan eikä kepulle passelia!! Jatkakaa101174