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
130
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
Silmienvääntelijä-persut pääsivät Japanissa sarjakuvaan
Torille! https://www.hs.fi/kulttuuri/art-2000011943173.html2455491Nato kaatamassa Petterin haaveileman Tunnin junan?
Nato edellyttää pohjoisessa Jäämereltä Rovaniemelle saakka kapearaitesta suoraa rautatieväylää, joka maksaa paperirahaa,594799Puoluebarometri: Marinin hallituksella 7 parasta mittaustulosta
Orpon hallitusta pitää huonona 2/3 kansalaisista, joka on aika hyvin linjassa hallituspuolueiden yhteenlasketun kannatuk173620Älkää vaan sairastuko syöpään Suomessa
Tilaston mukaan Suomi, Slovakia ja Latvia lääkitsee aivan pohjamudissa syöpää. Sairastunutta hoidetaan edelleen vanhana2913338Donald Trump pääsi samalle listalle Sanna Marinin kanssa
Eli vasemmistolaisen Time-median top 100 jännäihmisten listalle. https://time.com/collections/time100-next-2021/5937699213304Kyllä, maata ei halua puolustaa nimenomaan punavihreän puolen edustajat
"Esimerkiksi maanpuolustushenki on keskimääräistä alempana naisten, arvoliberaalien, heikossa taloustilanteessa olevien1823209- 782904
- 712120
- 302027
- 902026