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
73
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
Ja taas ammuttu kokkolassa
Kokkolaisilta pitäisi kerätä pois kaikki ampumaset, keittiöveitset ja kaikki mikä vähänkään paukku ja on terävä.303501Kukka ampu taas Kokkolassa?
T. olisi hetkeä aiemmin lähtenyt johonkin. Naapuri kai tekijä J.K., ei paljasjalkainen Kokkolalainen, vaan n. 100km pääs91558Kuinka kauan
Olet ollut kaivattuusi ihastunut/rakastunut? Tajusitko tunteesi heti, vai syventyivätkö ne hitaasti?1131473Milli-helenalla ongelmia
Suomen virkavallan kanssa. Eipä ole ihme kun on etsintäkuullutettu jenkkilässäkin. Vähiin käy oleskelupaikat virottarell2241265Kun näen sinut
tulen iloiseksi. Tuskin uskallan katsoa sinua, herätät minussa niin paljon tunteita. En tunne sinua hyvin, mutta jotain34893Purra saksii taas. Hän on mielipuuhassaan.
Nyt hän leikkaa hyvinvointialueiltamme kymmeniä miljoonia. Sotea romutetaan tylysti. Terveydenhoitoamme kurjistetaan. ht242893- 60869
Helena Koivu on äiti
Mitä hyötyä on Mikko Koivulla kohdella LASTENSA äitiä huonosti . Vie lapset tutuista ympyröistä pois . Lasten kodista.130868Ja taas kerran hallinto-oikeus että pieleen meni
Hallinto-oikeus kumosi kunnanhallituksen päätöksen vuokratalojen pääomituksesta. https://sysmad10.oncloudos.com/cgi/DREQ66854Löydänköhän koskaan
Sunlaista herkkää tunteellista joka jumaloi mua. Tuskin. Siksi harmittaa että asiat meni näin 🥲98819