在Excel中比较和移动字段

我有一个奇怪的问题，我希望有人能帮助我。我在A列的项目清单，并在列项D.这些大多是相同的另一份名单有B列只是数个项目在Excel中比较和移动字段

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

请帮忙！非常感谢你！！！

来源

2013-09-23 Deniz Otarsi

您正在寻找一个公式来做到这一点？或者你想让这个在VBA中完成。无论哪种情况，你能告诉我们你有什么尝试，你卡在哪里？ –

假设没有不匹配的值存在在列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-23 20:46:22

假设您的输入位于Sheet1上。然后，在一个新的工作表复制以下公式单元格

A1: =Sheet1!A1 
B1: =IFERROR(VLOOKUP(A1;Sheet1!$B$1:$D$4;1;FALSE);"") 
C1: =IFERROR(VLOOKUP(A1;Sheet1!$B$1:$D$4;2;FALSE);"") 
D1: =IFERROR(VLOOKUP(A1;Sheet1!$B$1:$D$4;3;FALSE);"")

，然后复制的第一行的行2，3和4

来源

2013-09-23 21:03:59

在Excel中比较和移动字段

回答

相关问题