使用VBA將匹配值放在另一列中的匹配旁邊的一列中

Question

我想從列A中取值，並將它們剪切並粘貼到列B中，每個值恰好位於其對應匹配項左側的一個單元格中來自C列的值。這是我希望完成的事情之前和之後。基本上，從列A中的每個值認定其匹配在列C和被複制，然後直接粘貼到它的匹配的左側在列B

Column A  Column C 
10    1 
9    2 
8    3 
7    4 
6    5 
5    6 
4    7 
3    8 
2    9 
1    10 

Column B  Column C 
1    1 
2    2 
3    3 
4    4 
5    5 
6    6 
7    7 
8    8 
9    9 
10    10 

這是我曾嘗試：

Sub arrange() 
Cells(1, 1).Activate 

Do 

If IsEmpty(ActiveCell) Then Exit Do 
If ActiveCell.Offset(0, 2).Value = ActiveCell.Value Then 
ActiveCell.Select 
Selection.Copy 
ActiveCell.Offset(0, 1).Select 
ActiveSheet.Paste 
ActiveCell.Offset(1, -1).Activate 
Else 
ActiveCell.Offset(1, 0).Activate 


End If 

Loop 

End Sub 

這種方法的問題是它只能在同一行中找到匹配的值。我希望它能夠搜索整個列並將值放在匹配的旁邊，無論匹配是否在同一行中。

Answer 1

你需要做的是循環遍歷列A和檢查，看看是否每個值可以在列C.發現如果是複製到B列

Sub arrange() 

Dim Wbk As Workbook 

Set Wbk = ActiveWorkbook 

Dim row As Integer 
Dim col As Integer 
Dim currentA As Integer 

Dim numRows As Integer 

Worksheets("chicoexcel").Activate 
numRows = Wbk.Worksheets("chicoexcel").Range("A2", Range("A2").End(xlDown)).Rows.Count 

For a = 1 To numRows + 1 'start at 1 because it is the first row. This will loop through Column A 

    currentA = Sheets("chicoexcel").Cells(a, "A").Value 'Save the current value in column A 

    For c = 1 To numRows + 1 'start at 1 because it is the first row. This will loop through Column C 

     If (Sheets("chicoexcel").Cells(c, "C").Value = currentA) Then 'Check if the col C value is equal to the current col A value. 
      Sheets("chicoexcel").Cells(c, "B") = Sheets("chicoexcel").Cells(c, "C").Value 'If so copy to column B 
      Sheets("chicoexcel").Cells(a, "A") = Null 'Remove the value from col A 
     End If 

    Next c 

Next a 


End Sub 

我以爲所有的值是整數，並且數據從第1行開始。

這不是最有效的解決方案，但您可以使用調試器查看正在發生的情況。你可以包含FIND功能來加快速度。我會讓你自己弄清楚。