如何将台账表中数据导按需要格式导入数据

zuyong2

将台账表中数据导入到2025工作表，具体如下:以当前表B列及第3行为基础，1.查找以当前表B列数据查找为，准台账B列与当前表B列相等所在行，2.查找2025工作表第3行为准，台账2至4行与2025工作表第3行相等对应的列，3. 将对应行与列的数据导入2025表

z865593849

写的啥玩意

3190496160

一个数组+字典匹配的问题，但是，表头结构过于复杂，写起代码来比较麻烦

蓝桥玄霜

导入的例子：

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()    '//2024.12.19
   
2.     Application.ScreenUpdating = False
   
3.     Application.DisplayAlerts = False
   
4.     b = [{1,2,5,11,12,15,39,24,38,30,32,40}]
   
5.     With Sheets("台帐")
   
6.         r = .Cells(Rows.Count, 1).End(3).Row
   
7.         c = .UsedRange.Columns.Count
   
8.         arr = .[a1].Resize(r, c)
   
9.     End With
   
10.     With Sheets("2025")
    
11.         .UsedRange.Offset(2).ClearContents
    
12.         ReDim brr(1 To 10000, 1 To 12)
    
13.         For i = 6 To UBound(arr)
    
14.             If Val(arr(i, 1)) Then
    
15.                 m = m + 1
    
16.                 brr(m, 1) = m
    
17.                 For x = 2 To UBound(b)
    
18.                    brr(m, x) = arr(i, b(x))
    
19.                 Next
    
20.             End If
    
21.         Next
    
22.         .[a3].Resize(m, 12) = brr
    
23.     End With
    
24.     Application.ScreenUpdating = True
    
25.     MsgBox "OK！"
    
26. End Sub
    

复制代码

zuyong2

ykcbf1100 发表于 2024-12-19 10:47
参与一下。。。

能不能直接根据第三行内容自动选择列呢？采用您这种当时，表格变化每次都要修改

ykcbf1100

zuyong2 发表于 2024-12-19 11:04
能不能直接根据第三行内容自动选择列呢？采用您这种当时，表格变化每次都要修改

选不了，你的字段名根本不统一。

zuyong2

ykcbf1100 发表于 2024-12-19 11:08
选不了，你的字段名根本不统一。

可以把第三行的内容改成与台账匹配

ykcbf1100

zuyong2 发表于 2024-12-19 11:16
可以把第三行的内容改成与台账匹配

那你倒是改啊。