根据名称提取数据

tiantao186

根据名称提取数据，把合并单元格中的数据复制出来

蓝桥玄霜

查询的例子：

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.8.2
   
2.     Application.ScreenUpdating = False
   
3.     Set sh = ThisWorkbook.Sheets("结果表")
   
4.     st = sh.[a2].Value
   
5.     sh.[b:z].Clear
   
6.     With Sheets("原数据")
   
7.         r = .Cells(Rows.Count, "f").End(3).Row
   
8.         For i = 2 To r
   
9.             Set Rng = .Cells(i, "c")
   
10.             If Rng.Value = st Then
    
11.                 If Rng.MergeCells = True Then
    
12.                     n = n + 1
    
13.                     m = Rng.MergeArea.Count
    
14.                     If n = 1 Then
    
15.                         .Cells(i, 1).Resize(m, 12).Copy sh.[b2]
    
16.                     Else
    
17.                         r = sh.Cells(Rows.Count, "g").End(3).Row
    
18.                         .Cells(i, 1).Resize(m, 12).Copy sh.Cells(r + 1, 2)
    
19.                     End If
    
20.                     i = i + m - 1
    
21.                 End If
    
22.             End If
    
23.         Next
    
24.     End With
    
25.     Application.ScreenUpdating = True
    
26.     MsgBox "OK！"
    
27. End Sub
    
28. 
    

复制代码