数据选择问题

想飞的鱼888

有两个数据，比如240303424，240303448，每天产生不同数据。怎样实现五天后，自动在固定单元格显示5天前的数据？

补充内容 (2024-3-10 12:39):
已实现，附加在9楼，10楼，发重复了。代码有点丑。

想飞的鱼888

顶上去，看看有没有人能帮上

想飞的鱼888

excel表格的内容，按日期产生
我的思路是，每天把数据按日期的日的行号复制到另一张表中。比如，3月七号，放到第七行。
然后五天后可以按日期取数值了。
用什么公式，或VBA代码可以实现？

cyh3230

鉴于不知具体什么情况, 这里回复下方法:
用函数可以,在数据获取,用today()函数作条件,进行编写,应该可以;
用SQL可以,在where语句后面,条件上写上条件, 比如5天前
用VBA可以,在代码中,加上条件,可以轻松获取
用PQ可以,像 Date.AddDays来作为条件
如果想玩的大点, 用Python也可以
方法超多

想飞的鱼888

cyh3230 发表于 2024-3-7 17:18
鉴于不知具体什么情况, 这里回复下方法:
用函数可以,在数据获取,用today()函数作条件,进行编写,应该可以;
...

帮我看看，具体在楼2

想飞的鱼888

cyh3230 发表于 2024-3-7 17:18
鉴于不知具体什么情况, 这里回复下方法:
用函数可以,在数据获取,用today()函数作条件,进行编写,应该可以;
...

每天只有四个数据，但是五天后重复用到，想实现五天后能自动读取五天前的那四个数据。

Holiday2022

请上传附件！

菜狗一只

today函数计算出今天的日期，然后减去五天求出五天前的日期，filter函数筛选大于等于五天前日期条件的数据

想飞的鱼888

想飞的鱼888 发表于 2024-3-7 17:10
顶上去，看看有没有人能帮上

2天


Sub liangtian()
  Dim position As String
  position = Sheets(3).Range("I1")
  Sheets(2).Select
  Range("I2:L2").Select
  Selection.Copy
  Sheets(3).Select
  Range("A" & position).Select
  Range("A" & position).PasteSpecial Paste:=xlPasteValues
  
End Sub

5天

Sub wutian()
  Dim position As String
  position = Sheets(3).Range("I2")
  Sheets(3).Select
  Range("A" & position).Select
  Selection.Copy
  Sheets(2).Select
  Range("I3").Select
  ActiveSheet.Paste
  
  Sheets(3).Select
  Range("B" & position).Select
  Selection.Copy
  Sheets(2).Select
  Range("J3").Select
  ActiveSheet.Paste
  
Sheets(3).Select
  Range("C" & position).Select
  Selection.Copy
  Sheets(2).Select
  Range("K3").Select
  ActiveSheet.Paste
  
  Sheets(3).Select
  Range("D" & position).Select
  Selection.Copy
  Sheets(2).Select
  Range("L3").Select
  ActiveSheet.Paste
  
End Sub

有变量的单元格怎么多选？

想飞的鱼888

2天
Sub liangtian()
  Dim position As String
  position = Sheets(3).Range("I1")
  Sheets(2).Select
  Range("I2:L2").Select
  Selection.Copy
  Sheets(3).Select
  Range("A" & position).Select
  Range("A" & position).PasteSpecial Paste:=xlPasteValues
  
End Sub
5天
Sub wutian()
  Dim position As String
  position = Sheets(3).Range("I2")
  Sheets(3).Select
  Range("A" & position).Select
  Selection.Copy
  Sheets(2).Select
  Range("I3").Select
  ActiveSheet.Paste
  
  Sheets(3).Select
  Range("B" & position).Select
  Selection.Copy
  Sheets(2).Select
  Range("J3").Select
  ActiveSheet.Paste
  
Sheets(3).Select
  Range("C" & position).Select
  Selection.Copy
  Sheets(2).Select
  Range("K3").Select
  ActiveSheet.Paste
  
  Sheets(3).Select
  Range("D" & position).Select
  Selection.Copy
  Sheets(2).Select
  Range("L3").Select
  ActiveSheet.Paste
  
End Sub