请求大佬帮助下 >>> 关于数据读取

heshushan

*** 请求大佬帮助下 ***

根据M1关键字琵琶腿

查找出A24到A99999中

出现琵琶腿所有的销售日期

以及对应的单价规格

显示再参考数据中


（带附件） --- 需要Excel函数写，不用VBA（手机操作不了VBA） 非常感谢

dysvip

有个笨方法，加个辅助列，可以做到，你的表加密了

heshushan

dysvip 发表于 2020-2-19 17:19
有个笨方法，加个辅助列，可以做到，你的表加密了

我重新上传一个表

dysvip

每个日期下会有重复名称吗

lsdongjh

1. Option Explicit
   
2. 
   
3. 
   
4. Sub Test()
   
5.     Dim strFind As String, arr As Variant
   
6.    
   
7. '    strFind = "咸鸭边腿"
   
8.     strFind = "琵琶腿"
   
9.     arr = FindByArr(strFind)
   
10.    
    
11.     If Not IsArray(arr) Then Exit Sub
    
12.    
    
13.     Sheet2.Range("M4:P19").ClearContents
    
14.     Sheets("测试表1").Range("M4").Resize(UBound(arr), 3) = arr
    
15.    
    
16. End Sub
    
17. 
    
18. Function FindByArr(strFind As String) As Variant
    
19.     Dim arrList As Variant, arrFind As Variant
    
20.     Dim strSplit() As String, lngRow As Long
    
21.    
    
22.     If GetValArr(arrList) = True Then
    
23.         strFind = "|" & Trim(strFind) & "|" '精准查找
    
24.         arrList = Filter(arrList, strFind)
    
25.     End If
    
26.    
    
27.     If IsArray(arrList) Then
    
28.         ReDim arrFind(1 To UBound(arrList) + 1, 1 To 3)
    
29.         For lngRow = LBound(arrList) To UBound(arrList)
    
30.             strSplit = Split(arrList(lngRow), "|")
    
31.             arrFind(lngRow + 1, 1) = strSplit(2)
    
32.             arrFind(lngRow + 1, 2) = strSplit(3)
    
33.             arrFind(lngRow + 1, 3) = strSplit(4)
    
34.         Next
    
35.     End If
    
36.     FindByArr = arrFind
    
37. End Function
    
38. 
    
39. '获取原始信息
    
40. Function GetValArr(ArrVal As Variant) As Boolean
    
41.     Dim sh As Worksheet, lngRow As Long, arrData As Variant
    
42.     Dim intID As Integer, strDate As String
    
43.    
    
44.     Set sh = Sheets("测试表1")
    
45.     lngRow = sh.Range("A" & Rows.Count).End(xlUp).Row
    
46.    
    
47.     If lngRow < 25 Then
    
48.         GetValArr = False
    
49.         Exit Function
    
50.     End If
    
51.    
    
52.     arrData = sh.Range("A24:F" & lngRow)
    
53.    
    
54.     ReDim ArrVal(LBound(arrData) To UBound(arrData))
    
55.     intID = 1
    
56.    
    
57.     For lngRow = LBound(arrData) To UBound(arrData)
    
58.         If arrData(lngRow, 2) = "" Then
    
59.             strDate = arrData(lngRow, 1)
    
60.         Else
    
61.             ArrVal(intID) = "|" & arrData(lngRow, 1) & "|" & strDate & "|" & arrData(lngRow, 3) & "|" & arrData(lngRow, 4)
    
62.             intID = intID + 1
    
63.         End If
    
64.     Next
    
65.    
    
66.     ReDim Preserve ArrVal(1 To intID)
    
67.     GetValArr = True
    
68. End Function
    
69. 
    

复制代码