第3个回答 2015-02-09
不知道公式怎么处理呃,应该很难处理
提供一段代码
Sub test()
arr = Sheets(1).UsedRange
For k = 1 To 7
For i = 1 To UBound(arr)
For j = 1 To UBound(arr, 2)
If arr(i, j) = Sheets(2).Cells(k, 1) Then
Sheets(2).Cells(k, 2) = arr(i, j + 1)
End If
Next
Next
Next
End Sub
第4个回答 2015-02-09
删除左侧的空白列
将数据转换成AB两列的形式
在SHEET2的B1中输入或复制粘贴下列公式
=VLOOKUP(A1,SHEET1!A:B,2,)
下拉填充