横向根据ID提取数据

好牛简历

横向根据ID提取数据
见截图与示例

横向根据ID提取数据.rar (15.47 KB, 下载次数: 9)

2021-8-16 18:30 上传

点击文件名下载附件

xiangbaoan

=VLOOKUP($A2,源!$A$2:$H$22,COLUMN(B:B),)
？？？

sobili

楼主，看下这个符合你的要求吗？ 横向根据ID提取数据.rar (22.55 KB, 下载次数: 6)

2021-8-16 20:44 上传

点击文件名下载附件

rarnma

呃，这个看上去不就是一个vlookup的事吗，楼主要的是不是根据首列往下一拖就把左图的内容都搬过来的那种效果？

好牛简历

xiangbaoan 发表于 2021-8-16 19:29
=VLOOKUP($A2,源!$A$2:$H$22,COLUMN(B:B),)
？？？

可以分享一下您的思路么？

xiangbaoan

好牛简历 发表于 2021-8-17 10:10
可以分享一下您的思路么？

$A2  下拉变成  $A3  $A4  ……   右拉不变
源!$A$2:$H$22  怎么拉都不变
COLUMN(B:B) 是2 右拉 就是 3、4、5……   下拉不变
了解一下相对引用、绝对引用

好牛简历

rarnma 发表于 2021-8-17 00:48
呃，这个看上去不就是一个vlookup的事吗，楼主要的是不是根据首列往下一拖就把左图的内容都搬过来的那种效 ...

大意如此，主要目前这个诉求点，表达上面还需要通俗化

rarnma

那你看一下是不是要的这个效果

好牛简历

sobili 发表于 2021-8-16 20:44
楼主，看下这个符合你的要求吗？

可以先分享一下你的思路么，先谢过^V^

sobili

好牛简历 发表于 2021-8-17 11:29
可以先分享一下你的思路么，先谢过^V^

1. Sub get_data()
   
2. Dim arr, brr '-----------------------------------------------------------定义数组变量为arr,brr
   
3. 
   
4. '------------------------------------------------------------------------关闭屏幕刷新
   
5. Application.ScreenUpdating = False
   
6. 
   
7. '------------------------------------------------------------------------删除sheet2中的旧数据
   
8. Range("b2:h" & Cells(Rows.Count, 1).End(xlUp).Row).ClearContents
   
9. 
   
10. '------------------------------------------------------------------------将Sheet1中的数据区域赋值给arr，将Sheet2中的数据区域赋值给brr
    
11. arr = Sheet1.Range("a2:h" & Sheet1.Cells(Rows.Count, 1).End(xlUp).Row)
    
12. brr = Sheet2.Range("a2:a" & Sheet2.Cells(Rows.Count, 1).End(xlUp).Row)
    
13. 
    
14. '------------------------------------------------------------------------历遍brr中的数据
    
15. For i = LBound(brr) To UBound(brr)
    
16.     '--------------------------------------------------------------------历遍arr中的数据
    
17.     For j = LBound(arr) To UBound(arr)
    
18.         If arr(j, 1) = brr(i, 1) Then '----------------------------------如果 arr中的第j行，第1列 = brr 第i行，第1列，那么执行then后的语句并退出arr的for循环。
    
19.                 Range("b" & i + 1) = arr(j, 2)
    
20.                 Range("c" & i + 1) = arr(j, 3)
    
21.                 Range("d" & i + 1) = arr(j, 4)
    
22.                 Range("e" & i + 1) = arr(j, 5)
    
23.                 Range("f" & i + 1) = arr(j, 6)
    
24.                 Range("g" & i + 1) = arr(j, 7)
    
25.                 Range("h" & i + 1) = arr(j, 8)
    
26.                 Exit For
    
27.         End If
    
28.     Next j
    
29. 
    
30. Next i
    
31. '--------------------------------------------------------------------------调整表格列宽，且活动单元格定位至A1
    
32. Cells.Select
    
33. Cells.Columns.AutoFit
    
34. Range("a1").Select
    
35. '--------------------------------------------------------------------------打开屏幕刷新
    
36. Application.ScreenUpdating = True
    
37. 
    
38. End Sub

复制代码

我这样表达可以吗？