求助大神，从近20日最高、最低销售工作表中取出最高值及对应日期，最低值及对应日期

shiruiqiang

ykcbf1100 发表于 2024-11-13 19:11
你是要10个日期的数据呢，还是日期连着10天？

ykcbf1100老师，令堂身体应该安康了吧

ykcbf1100

shiruiqiang 发表于 2024-11-13 19:18
ykcbf1100老师，令堂身体应该安康了吧

正在住院呢，情况不太好。周六我要过去看看。

shiruiqiang

祝令堂身体安康，早点恢复

ykcbf1100

shiruiqiang 发表于 2024-11-13 19:40
祝令堂身体安康，早点恢复

谢谢，谢谢。

wangchcm

ykcbf1100 发表于 2024-11-13 19:11
你是要10个日期的数据呢，还是日期连着10天？

大神，向右取相连的10个日期，日期中间断了或忽略，只要相联的10个单元格数据，感谢！！！

wangchcm

ykcbf1100 发表于 2024-11-13 20:13
谢谢，谢谢。

大神无私助人，积善之人天必佑之！祝令堂早日康复！！！

ykcbf1100

wangchcm 发表于 2024-11-14 08:56
大神，向右取相连的10个日期，日期中间断了或忽略，只要相联的10个单元格数据，感谢！！！

附件无法下载，请重新上传

wangchcm

ykcbf1100 发表于 2024-11-14 09:09
附件无法下载，请重新上传

大神，附件已上传

ykcbf1100

wangchcm 发表于 2024-11-14 09:47
大神，附件已上传

附件供参考。。。

ykcbf1100

增加需求。

1. Sub ykcbf2()  '//2024.11.14
   
2.     Application.ScreenUpdating = False
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     bt = [{"高","低"}]
   
5.     For x = 1 To UBound(bt)
   
6.         With Sheets("每日最" & bt(x) & "(公)")
   
7.             r = .Cells(Rows.Count, 2).End(3).Row
   
8.             c = .Cells(1, Columns.Count).End(1).Column
   
9.             .[k2].Resize(r, 4) = ClearContents
   
10.             arr = .[a1].Resize(r, c)
    
11.         End With
    
12.         For i = 2 To UBound(arr)
    
13.             s = arr(i, 2) & bt(x)
    
14.             n = 0
    
15.             For j = IIf(x = 1, 27, 28) To UBound(arr, 2)   '//日期超始列号自A列开始数的第27列（最高值）、第28列（最低值）
    
16.                 If arr(i, j) <> Empty Then
    
17.                     n = n + 1
    
18.                     If Not d.exists(s) Then
    
19.                         d(s) = Array(arr(i, j), arr(1, j), arr(i, j), arr(1, j))
    
20.                     Else
    
21.                         t = d(s)
    
22.                         t(0) = IIf(IIf(x = 1, t(0) > arr(i, j), t(0) < arr(i, j)), t(0), arr(i, j))
    
23.                         t(1) = IIf(IIf(x = 1, t(0) > arr(i, j), t(0) < arr(i, j)), t(1), arr(1, j))
    
24.                         t(2) = IIf(n <= 10, IIf(IIf(x = 1, t(2) > arr(i, j), t(2) < arr(i, j)), t(2), arr(i, j)), t(2))
    
25.                         t(3) = IIf(n <= 10, IIf(IIf(x = 1, t(2) > arr(i, j), t(2) < arr(i, j)), t(3), arr(1, j)), t(3))
    
26.                         d(s) = t
    
27.                     End If
    
28.                 End If
    
29.             Next
    
30.         Next
    
31.     Next
    
32.     With Sheets("1判每日取数判断（公）")
    
33.         r = .Cells(Rows.Count, 1).End(3).Row
    
34.         arr = .[a1].Resize(r, 18)
    
35.         For x = 1 To UBound(bt)
    
36.             For i = 2 To UBound(arr)
    
37.                 s = arr(i, 2) & bt(x)
    
38.                 If d.exists(s) Then
    
39.                     arr(i, IIf(x = 1, 11, 13)) = d(s)(0)      '//日期超始列号最高值金额在自A列开始数的第11列，最高值日期在13列
    
40.                     arr(i, IIf(x = 1, 12, 14)) = d(s)(1)      '//日期超始列号最低值金额在自A列开始数第12列，最高值日期在14列
    
41.                     arr(i, IIf(x = 1, 15, 17)) = d(s)(2)      '//10日内,日期超始列号最高值金额在自A列开始数的第15列，最高值日期在17列
    
42.                     arr(i, IIf(x = 1, 16, 18)) = d(s)(3)      '//10日内,日期超始列号最低值金额在自A列开始数第16列，最高值日期在18列
    
43.                 End If
    
44.             Next
    
45.         Next
    
46.         .Columns(2).NumberFormatLocal = "@"
    
47.         .[a1].Resize(r, 18) = arr
    
48.     End With
    
49.     Set d = Nothing
    
50.     Application.ScreenUpdating = True
    
51.     MsgBox "OK！"
    
52. End Sub
    
53. 
    

复制代码