これは私が答えることができない単純な質問です。
Excelには次のような2つの列があります。
Col1 Col2
A C
B I
C E
D D
E A
F F
G B
H
I
次のように、2つの列の同じ行に同じ値が配置されるように2つの列を並べ替えます。
Col1 Col2
A A
B B
C C
D D
E E
F F
G
H
I I
K
これまでのところ、私は次のVBA
コードを試しました:
Sub HighlightDups()
Dim i, LastRowA, LastRowB
LastRowA = Range("A" & Rows.Count).End(xlUp).Row
LastRowB = Range("B" & Rows.Count).End(xlUp).Row
Columns("A:A").Interior.ColorIndex = xlNone
Columns("B:B").Interior.ColorIndex = xlNone
For i = 1 To LastRowA
If Application.CountIf(Range("B:B"), Cells(i, "A")) > 0 Then
Cells(i, "A").Interior.ColorIndex = 36
End If
Next
For i = 1 To LastRowB
If Application.CountIf(Range("A:A"), Cells(i, "B")) > 0 Then
Cells(i, "B").Interior.ColorIndex = 36
End If
Next
End Sub
しかし、このコードは重複を見つけるのに役立ち、2つの列の同じ行に重複を配置することに失敗します。
少し助けてもらえませんか?
どうもありがとう。
VBAなし
=IF(ISNA(MATCH(A1,C:C,0)),"",INDEX(C:C,MATCH(A1,C:C,0)))
を入力してコピーしますVBA内
Sub Macro1()
Dim rng1 As Range
Set rng1 = Range([a1], Cells(Rows.Count, "A").End(xlUp))
rng1.Offset(0, 1).Columns.Insert
With rng1.Offset(0, 1)
.FormulaR1C1 = _
"=IF(ISNA(MATCH(RC[-1],C[1],0)),"""",INDEX(C[1],MATCH(RC[-1],C[1],0)))"
.Value = .Value
End With
End Sub