Sütunlardaki sayılar nasıl karşılaştırılır?


1

Gibi libreoffice veri var

ColumnA ColumnB
504231  504109
504109  504201
504201  
504299

çok veri gibi o zaman gibi çıktı istiyorum

ColumnA ColumnB
504231  
504109  504109
504201  504201
504299 

=IF(COUNTIF($B$1:$B$3;A1)>0;A1;"")Dizeleri karşılaştırırken bu formülün çalışmasını denedim . Benzer denedim ama sonuç alamıyorum

Bu çıktıyı elde etmek için lütfen bana bildirin


sorusu bakın düzenlendiği
user3341177

1
OP sorunu çözdü ve çözümü ertesi gün sorulan bir takip sorusuna dahil ettiğinden, bu soruyu konu dışı kapatmak için oy kullanıyorum: superuser.com/questions/731257/…
fixer1234

Yanıtlar:


0

Bu VBa istediğini yapar ...

Sub Button1_Click()

Dim numberOfRows As Integer
numberOfRows = 10            'Update this number from 10 to the number of rows you are using

   For rowNumberB = 1 To numberOfRows
        Dim cellToCheck As String
        valueToCheck = Range("B" & rowNumberB).Value ' get the value from B column
        For rowNumberA = 1 To numberOfRows
            If Range("A" & rowNumberA).Value = valueToCheck Then
                Range("C" & rowNumberA).Value = valueToCheck 'assign the new value to col C on the correct row (has to be on C otherwise we could over write existing values in B
                Range("B" & rowNumberB).Value = "" 'delete the original value from col B
            End If
        Next
    Next

    'Now we have to move everything from col C to B
    For rowNumberC = 1 To numberOfRows
        Range("B" & rowNumberC).Value = Range("C" & rowNumberC).Value ' copy from C to B
        Range("C" & rowNumberC).Value = "" ' Delete the value from C
    Next

End Sub

B sütunundaki maddeler A sütunundaki değerden önce veya sonra gelirse ya da iki sütunda yinelenenlerle ne yapılacağından bahsedemezsiniz. Peki, yukarıdaki kod tüm bunları çözecektir. Aşağıdaki ekran görüntülerine bakın.

Önce

görüntü tanımını buraya girin

Sonra

görüntü tanımını buraya girin


Sitemizi kullandığınızda şunları okuyup anladığınızı kabul etmiş olursunuz: Çerez Politikası ve Gizlilik Politikası.
Licensed under cc by-sa 3.0 with attribution required.