วิธีเปรียบเทียบตัวเลขในคอลัมน์


1

ฉันมีข้อมูลใน libreoffice เช่น

ColumnA ColumnB
504231  504109
504109  504201
504201  
504299

ชอบข้อมูลมากแล้วฉันต้องการผลลัพธ์เช่น

ColumnA ColumnB
504231  
504109  504109
504201  504201
504299 

ฉันลอง=IF(COUNTIF($B$1:$B$3;A1)>0;A1;"")สูตรนี้ใช้งานได้เมื่อเปรียบเทียบสตริง ฉันพยายามคล้ายกัน แต่ไม่ได้ผลลัพธ์

วิธีการบรรลุผลลัพธ์นี้โปรดแจ้งให้เราทราบ


แก้ไขคำถามแล้วโปรดดู
user3341177

1
ฉันโหวตให้ปิดคำถามนี้เป็นนอกหัวข้อเนื่องจาก OP แก้ไขปัญหาได้แล้วและรวมการแก้ปัญหาไว้ในคำถามติดตามถามในวันถัดไป: superuser.com/questions/731257/ …
fixer1234

คำตอบ:


0

VBa นี้ทำในสิ่งที่คุณต้องการ ...

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 มาก่อนหรือหลังค่าในคอลัมน์ A และจะไม่ทำอะไรกับรายการซ้ำในคอลัมน์ใดคอลัมน์หนึ่ง รหัสข้างต้นจะแก้ปัญหาทั้งหมดได้ ดูภาพหน้าจอด้านล่าง

ก่อน

ป้อนคำอธิบายรูปภาพที่นี่

หลังจาก

ป้อนคำอธิบายรูปภาพที่นี่


โดยการใช้ไซต์ของเรา หมายความว่าคุณได้อ่านและทำความเข้าใจนโยบายคุกกี้และนโยบายความเป็นส่วนตัวของเราแล้ว
Licensed under cc by-sa 3.0 with attribution required.