在Excel中将数据从一个表单移动到另一个表单。

Question

我正在尝试在VBA中编写从另一个工作簿获取数据并将其粘贴到正确位置的代码。例如：

在一个工作簿：

123 x 
321 xx 
159 xxx 
235 xxxx 

的X列应被复制并放置在正确的地方结束这样的：

235 xxxx 
321 xx 
123 x 
159 xxx 

我已经设法得到数据，但问题是当我试图把它放在正确的单元格中时; For...Next块中的If声明无法正常工作。这里是我的代码：

Sub copyToWorkbook() 
    Dim arr(32) As String 
    Dim rr(32) As String 
    Dim temp(32) As String 

For k = 1 To 32 
    temp(k) = Cells(k, 1).Value 
Next 
With ActiveSheet 
     .Range("B200:B300").FormulaArray = "='" & "g:" & "\[" & "PPM_et_top_fournisseur.xls" & "]" _ 
        & "PPM officiels" & "'!" & "B12:B43" 
End With 
Dim q As Integer 
For f = 1 To 32 
    q = 199 + f 
    arr(f) = Cells(q, 2).Value 
    Cells(f, 8) = arr(f) 
Next 

With ActiveSheet.Range("C200:C300") 
    .FormulaArray = "='" & "g:" & "\[" & "PPM_et_top_fournisseur.xls" & "]" _ 
        & "PPM officiels" & "'!" & "J12:J43" 
    .Value = .Value 
End With 

Dim w As Integer 

For o = 1 To 32 
    w = 199 + o 
    rr(o) = Cells(w, 3).Value 
    Cells(o, 9) = rr(o) 
Next 
For t = 1 To 32 
    For n = 1 To 32 
     If Cells(20, 1).Value <> arr(n) Then 
      Cells(n, 7) = arr(n) 
      Else: Cells(t, 10) = "nop" 
     End If 
    Next 
Next 
End Sub 

Answer 1

这看起来像你试图使用VLOOKUP。但是，如果你真的想在VBA中完成这个工作，我建议将源书籍加载到一个二维数组中，然后遍历该数组以将其值输出到适当行中的目标工作表。

我回答了类似的问题在本周早些时候在这里：EXCEL VBA Paste from array, change paste order

似乎唯一的区别是，人是用整个数据列和水平，而不是重新垂直排列。

话虽这么说，听起来真是你可以只使用VLOOKUP公式来查找基于第一列的X列值。