0

誰かが私を助けてくれることを願っています。列 A にアイテムのリストがあり、列 D に別のアイテムのリストがあります。これらはほとんど同じで、列 B にいくつかのアイテムがあります。

Column A     Column B    Column C          Column D
1015          1015          $25               $5
1025          1035          $25               $5
1035          1045          $25               $5
1045          1055          $25               $5

わかりましたので、私がやりたいことは、列 A の項目を使用して、列 B と比較することです。

次に、行を BD から下に移動して、D が A の隣にあり、同じ skus を持つようにします。

Column A     Column B    Column C          Column D
1015          1015          $25               $5
1025          
1035          1035          $25               $5
1045          1045          $25               $5

助けてください！どうもありがとうございました！！！

4

2 に答える 2

0

列 B に一致しない値が存在しないと仮定します。

VBAソリューションの場合、これを試してください：

Sub MatchRows()
  Dim sheet As Worksheet
  Set sheet = ActiveWorkbook.Sheets("Sheet1")

  'First Column
  Dim rngA As Range
  Set rngA = [A1:A10]
  Dim datA As Variant
  datA = rngA
  Dim i As Long

  'Second Column Match
  Dim rngB As Range
  Set rngB = [B1:B10]
  Dim datB As Variant
  datB = rngB
  Dim j As Long

  'Store duplicates
  Dim rngString As String

  'First Column loop
  For i = LBound(datA, 1) To UBound(datA, 1)
    'Second Column Loop
    For j = LBound(datB, 1) To UBound(datB, 1)
        'Check if duplicate
        If datA(i, 1) = datB(j, 1) And i <> j And Not IsEmpty(datB(j, 1)) And Not IsEmpty(datA(i, 1)) Then
            Dim rng As String
            rng = Chr(rngB.Column + 64) & j & ":" & Chr(rngB.Column + 64 + 2) & j
            Range(rng).Select

            For k = 1 To (i - j)
                Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
            Next
        End If
      Next
  Next
End Sub

プッシュ ダウンする列数の範囲とオフセット値 (+2) をハードコーディングしたことに注意してください。

于 2013-09-23T20:46:22.980 に答える