0

隣接していない 2 つの列、列 A と列 C には文字列が含まれており、列 E (再び隣接していない) には列 A と列 C の間の重複した文字列が含まれている必要があります。

私の主な問題は、列 A と C の長さが異なり、重複自体が同じ行にないことです。

VBA を使用しない場合、次の入力列 E は空欄を除いた解を示します。

=IF(ISERROR(MATCH(A1,$C:$C,0)),"",A1)

例:
列 A
じゃがいも
トマト
ブロッコリー
ピーマン
マッシュルーム

C列
きのこ
きゅうり
ブロッコリー
塩
フェンネル

E列は
きのこ
ブロッコリー

これは私がこれまでに見つけたものですが、非常に間違っています。問題を分解することができないことに気づきました。 

Sub Duplicates()
  Dim duplicates As Range
  Set duplicates = Columns("A", "C")
  activesheet.duplicates.Copy Destination:=activesheet.Range("E1")
End Sub
4

1 に答える 1

1

... これを試して：

  Sub PopulateColE()

     Dim cl As Range
     Dim CurrentRow As Integer: CurrentRow = 1

     On Error Resume Next

     For Each cl In Intersect(ActiveSheet.UsedRange, ActiveSheet.Range("C:C"))
        Application.WorksheetFunction.Match cl.Value, Range("A:A"), 0

        If Err.Number = 0 Then
           Range("E" & CurrentRow).Value = cl.Value
           CurrentRow = CurrentRow + 1
        End If

        Err.Clear
     Next cl
  End Sub
于 2012-11-26T17:11:42.160 に答える