求助：利用VBA按指定条件导入计划数据，格式有点不一样。

ykcbf1100

一念成佛 发表于 2024-4-11 15:16
根据A2表格导入数据，B表没有月计划号，是空白的，没表达清楚。
我的表格又重新上传了 ，在一楼。 ...

终于明白你的需求了，改好了。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.4.11
   
2.     Set d = CreateObject("Scripting.Dictionary")
   
3.     st = InputBox("请输入月计划号进行查询", "月计划号", "8033")
   
4.     If Len(st) = 0 Then Exit Sub
   
5.     With Sheets("B表")
   
6.         c = 23
   
7.         For j = 2 To c
   
8.             s = .Cells(1, j)
   
9.             If s <> Empty Then d(s) = j - 1
   
10.         Next
    
11.     End With
    
12.     With Sheets("A表")
    
13.         r = .Cells(Rows.Count, 2).End(3).Row
    
14.         arr = .[a1].Resize(r, 17)
    
15.     End With
    
16.     ReDim brr(1 To 1, 1 To 23)
    
17.     For i = 2 To UBound(arr)
    
18.         If CStr(arr(i, 2)) = st Then
    
19.             For j = 2 To 17
    
20.                 s = arr(1, j)
    
21.                 If s <> Empty Then
    
22.                     If d.exists(s) Then
    
23.                         brr(1, d(s)) = arr(i, j)
    
24.                     End If
    
25.                 End If
    
26.             Next
    
27.         End If
    
28.     Next
    
29.     With Sheets("B表")
    
30.         .[b2:w2] = ""
    
31.         .[b2].Resize(1, 22) = brr
    
32.     End With
    
33.     Set d = Nothing
    
34.     MsgBox "OK！"
    
35. End Sub
    

复制代码

一念成佛

ykcbf1100 发表于 2024-4-11 16:12
参与一下。。。

谢谢！

一念成佛

3190496160 发表于 2024-4-11 14:53

老大。再请教一下，如果粘贴到B表第四行，需要修改那几个代码？我改了几个，还是不行。

一念成佛

ykcbf1100 发表于 2024-4-11 16:12
参与一下。。。

老大，B表的第一行数据怎么改到第三行？

ykcbf1100

一念成佛 发表于 2024-4-15 13:45
老大，B表的第一行数据怎么改到第三行？

啥意思？没明白。你的第一行不是标题行吗，要把标题行改到第3行去？

一念成佛

ykcbf1100 发表于 2024-4-15 14:11
啥意思？没明白。你的第一行不是标题行吗，要把标题行改到第3行去？

就是B表在添加两行为空行或者其他内容时，就不能导入计划了。必须把原表头保留。现在要改变第一二行为其他内容，请问改一下哪个代码。

ykcbf1100

一念成佛 发表于 2024-4-16 09:42
就是B表在添加两行为空行或者其他内容时，就不能导入计划了。必须把原表头保留。现在要改变第一二行为其 ...

你直接上传附件吧。

一念成佛

老大有点复杂，拜托了！
每月至少有一百多项的计划需要审核，老眼昏花，只能想些办法缓解一下工作的劳累。
1、添加了负责人一列，需要核对Ⅲ级项目名称、负责人及电话，是否正确。我上传的附件中，红色字体是需要核对的其中几项，其实所有内容都需要核对。
2、怎么整合一下，我弄的太乱。
再次谢谢！！！

一念成佛

需要审核的内容远比这些复杂的多的多。