助各位大神，选取日期，替换汇总表每日取数单元格，并将取值后移一列，具体见描述....

wangchcm

求助各位大神，每日出库汇总、每日入库汇总这两个工作表中，从第一个工作表（分析表）G3单元格中取日期，替换当日出库统计字样，插入AB列，原AB列会自动向右变为AC列，依次类推，插入后的的图示为 日期是从分析表的G3单元格取得 ，每日入库汇总同每日出库汇总一样的需求，因每日手工贴粘，想请大神出手相助，点击后自动生成，感谢大神出手相助！！！

蓝桥玄霜

“每日出库数”、“每日入库数”的C1单元格里面要有“出库数量11.6日“、“入库数量11.6日”？不能直接用2024-11-6代替吗？

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.11.11
   
2.     Application.ScreenUpdating = False
   
3.     rq = CDate(Sheets("分析表").[g3].Value)
   
4.     For Each sht In Sheets
   
5.         If sht.Name Like "*汇总*" Then
   
6.             With sht
   
7.                 c = .Rows(1).Find("每日").Column
   
8.                 .Columns(c + 1).Insert Shift:=xlToRight
   
9.                 .Cells(1, c + 1) = rq
   
10.             End With
    
11.         End If
    
12.     Next
    
13.     Application.ScreenUpdating = True
    
14.     MsgBox "OK！"
    
15. End Sub
    
16. 
    

复制代码

wangchcm

蓝桥玄霜 发表于 2024-11-11 14:56
“每日出库数”、“每日入库数”的C1单元格里面要有“出库数量11.6日“、“入库数量11.6日”？不能直接用20 ...

可以2024-11-6代替

wangchcm

ykcbf1100 发表于 2024-11-11 15:05
附件供参考。。。

感谢谢大神帮助！ 怪我没有说清楚，想要插入的AB列内容与与AA列完全一致，只是AB1改为了2024-11-6，且AA列的函数公式还是保留着；需要的效果是如果每日出库数工作表变为2024-11-7日的数据，则可AB列则可变为2024-11-7的数据，AC列变为2024-11-6的数据，依次类推。每日入库数据的需求一样，感谢大神！！！

ykcbf1100

wangchcm 发表于 2024-11-11 21:28
感谢谢大神帮助！怪我没有说清楚，想要插入的AB列内容与与AA列完全一致，只是AB1改为了2024-11-6，且AA列 ...

改一下。。。

ykcbf1100

再改一下。。。

1. Sub ykcbf()   '//2024.11.12
   
2.     Application.ScreenUpdating = False
   
3.     rq = CDate(Sheets("分析表").[g3].Value)
   
4.     For Each sht In Sheets
   
5.         If sht.Name Like "*汇总*" Then
   
6.             With sht
   
7.                 r = .Cells(Rows.Count, 1).End(3).Row
   
8.                 c = .Rows(1).Find("每日").Column
   
9.                 .Columns(c + 1).Insert Shift:=xlToRight
   
10.                 .Cells(1, c + 1) = rq
    
11.                 arr = .Cells(2, c).Resize(r - 1, 1)
    
12.                 .Cells(2, c + 1).Resize(UBound(arr), UBound(arr, 2)) = arr
    
13.             End With
    
14.         End If
    
15.     Next
    
16.     Application.ScreenUpdating = True
    
17.     MsgBox "OK！"
    
18. End Sub
    
19. 
    

复制代码

wangchcm

ykcbf1100 发表于 2024-11-12 07:00
改一下。。。

大神，前期已帮忙取得了数据，现在在T列固定从比如固定从AB列（“每日出库汇总”工作表/“每日入库汇总”工作表）取数，取得的数据会因为插入一列，原从AB列取得的数变成了AC列的数据，如何能固定住让我的函数取值时还是取得插入一列后的AB列已变化后的数据，这个可能比较难，我能想的办法是复制AA列到最后一列，再在AB列上重新选择性粘贴，选数字，这样可以解决，T列不需要VBA取上数，因为T列的要设一个函数公式来用，如果没有其他办法，能实现复制AA列到最后一列，再在AB列上重新选择性粘贴（数字），再将“每日出库汇总”工作表/“每日入库汇总”工作表的AB1单元格改为“分析表”工作表中G3单元格的值，来代替直接插入一列也可以，感谢大神再出手相助！！！