Zavrieť

Porady

Upraviť

Hlavné

Ďalšie rubriky

EXCEL VBA kod porovnanie hodnot v dvoch stlpcoch

Zdravim potreboval by som VB kod ktory by porovnal hodnoty v stlpci "A" s hodnotami v stplci "B" a pokial by sa nachadzala v stlpci "B" hodnata ktora nieje v stlpci "A" tak sa skopiruje do stlpca "A".


Vopred Dakujem
Pravidlá a tipy
  • Každý móže napísať len 1 odpoveď. Neskor mozete svoju odpoveď vylepšiť.
  • Odpoveď má priniesť riešenie na otázku, vyvarujte sa hodnotenia otázky.
  • Odpoveď má byť viac o faktoch ako o názoroch.
Dalšie pravidla a tipy
Neregistrovaný
    Ak potrebujete v otázke niečo upresniť, najskôr sa spýtajte na podrobnosti.
    Koncept slúži na uloženie rozpracovanej odpovede, koncept sa zobrazuje len Vám, až kým ho nezverejníte.
    Ak máte podobnú otázku, založte Novú otázku alebo Súvisiacu otázku.
    ❤ Buďte priateľskí ❤
    Sme súčasťou jednej komunity, ktorá si chce vzájomne pomáhať, rozdieľnosť je vítaná ak neubližuje!
    Usporiadať podľa času

    E-xcel.expert je offline (nepripojený) E-xcel.expert

    http://e-xcel.expert E-xcel.expert
    V prilohe subor, kde som aplikoval Vase zadanie. A teda kod porovnava Stplec A a B a v pripade ak sa nerovnaju, tak A=B.

    Kod je tu:

    Sub porovnanie()
    Dim lLastRow As Long
    Dim i As Long

    lLastRow = Cells(Rows.Count, 1).End(xlUp).Row

    For i = 1 To lLastRow - 1

    If Cells(i + 1, 1) = Cells(i + 1, 2) Then

    Cells(i + 1, 4) = "ok"

    Else

    Cells(i + 1, 4) = "zmenene"
    Cells(i + 1, 1) = Cells(i + 1, 2)
    End If

    Next i

    Cells(1, 1).Activate

    End Sub
    0

    excel.sk je offline (nepripojený) excel.sk

    Lektor kurzov Excel excel.sk
    Dobrý deň,

    skúste toto (aj v prilohe):

    Code:
    Sub Z_Becka_Do_Acka_Jedinecne()
    Range("B1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    ActiveCell.Offset(0, -1).Range("A1").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Columns("A:A").Select
    ActiveSheet.Range("A:A").RemoveDuplicates Columns:=1, Header:=xlNo
    Range("A1").Select
End Sub
    .
    0

    EXCEL VBA kod porovnanie hodnot v dvoch stlpcoch

    Vieš, kto pozná odpoveď?
    Zdieľaj, možno sa nájde odborník Pozvi odborníka, firmu, inštitúciu atď.

    Porady, ktoré by vás mohli zaujímať

    Prihláste sa a sledujte len tie Porady, ktoré Vás zaujímajú.

    Pridať pochvalu

    Ďakujem Dobre píšes Super rada
    Vtipné Si cool Milé
    Poznámočka