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

一念成佛

3190496160 发表于 2024-4-11 10:43
Sub 查询()
Application.ScreenUpdating = False
Dim ar As Variant, br As Variant

还有复制时，只清除B表内"B2-T2"一行之间的数据，其他的单元格数据不清除，我还有其它数据。

ykcbf1100

凑个热闹吧，附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.4.11
   
2.     Set d = CreateObject("Scripting.Dictionary")
   
3.     With Sheets("B表")
   
4.         c = .UsedRange.Columns.Count
   
5.         For j = 1 To c
   
6.             s = .Cells(1, j)
   
7.             If s <> Empty Then d(s) = j
   
8.         Next
   
9.     End With
   
10.     With Sheets("A表")
    
11.         r = .Cells(Rows.Count, 1).End(3).Row
    
12.         arr = .[a1].Resize(r, c)
    
13.     End With
    
14.     ReDim brr(1 To UBound(arr), 1 To 17)
    
15.     For i = 2 To UBound(arr)
    
16.         m = m + 1
    
17.         For j = 1 To UBound(arr, 2)
    
18.             s = arr(1, j)
    
19.             If d.exists(s) Then
    
20.                 brr(m, d(s)) = arr(i, j)
    
21.             End If
    
22.         Next
    
23.     Next
    
24.     With Sheets("B表")
    
25.         .UsedRange.Offset(1) = ""
    
26.         .[a2].Resize(m, c) = brr
    
27.         .[a2].Resize(m, c).Borders.LineStyle = 1
    
28.     End With
    
29.     Set d = Nothing
    
30.     MsgBox "OK！"
    
31. End Sub
    
32. 
    

复制代码

一念成佛

ykcbf1100 发表于 2024-4-11 14:20
凑个热闹吧，附件供参考。。。

大神凑完热闹，我更不会了
需求：
1、只复制一行数据，且从B表的B2开始到T2。
2、清除B表的数据只清除B2-T2，其它单元格的数据都不能动，还有重要数据。
3、注意B表有合并单元格。
4、A、B表以后使用时需要更换为其它工作表名称。
A表以后会有很多数据。所以只能凭借月计划号查询导入相应的数据。

3190496160

一念成佛 发表于 2024-4-11 14:17
还有复制时，只清除B表内"B2-T2"一行之间的数据，其他的单元格数据不清除，我还有其它数据。

3190496160

一念成佛 发表于 2024-4-11 14:09
你好，大神，能不能再麻烦您小小的改进一下，怎么样不导入A表的A2数据“1”、“4”，从b2开始复制，再一 ...

日期的问题，自己设置一下单元格格式就行了

ykcbf1100

一念成佛 发表于 2024-4-11 14:49
大神凑完热闹，我更不会了
需求：
1、只复制一行数据，且从B表的B2 ...

你说的我不是完全明白。
你B表只取一行数据，那你是根据[b2]单元格中的月计划号进行查询写入吗？如果真是这样，那代码得重新写入了。

一念成佛

ykcbf1100 发表于 2024-4-11 14:58
你说的我不是完全明白。
你B表只取一行数据，那你是根据单元格中的月计划号进行查询写入吗？如果真是这 ...

根据A2表格导入数据，B表没有月计划号，是空白的，没表达清楚。
我的表格又重新上传了 ，在一楼。麻烦再给看一下，我是老白，懂得太少了。

一念成佛

3190496160 发表于 2024-4-11 14:55
日期的问题，自己设置一下单元格格式就行了

嗯，好的，改为文本格式就好了

一念成佛

已解决，我再找个清除B表B2-W2内容的代码就，更完美了。谢谢各位老师。