求大神进一步帮忙

bao205540

求大神帮忙 “车牌号”那个表里的项目 按需求填写到“总表”里 并按车牌号生成 另一个新的总表 也就是说有多少车牌号 就有多少 车牌号命名的总表

又有加项了 新加的加油升数 和金额

bao205540

之前的整合完了  就差往总表里填了

chxw68

1. Sub test()
   
2.     Dim r%, i%
   
3.     Dim arr, brr
   
4.     Application.ScreenUpdating = False
   
5.     Application.DisplayAlerts = False
   
6.     With Worksheets("1")
   
7.         r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
8.         arr = .Range("a2:j" & r)
   
9.     End With
   
10.     With Worksheets("2022年1-8月公车维修台账")
    
11.         For i = 1 To UBound(arr)
    
12.             .Range("b2") = arr(i, 7)
    
13.             .Range("j2") = arr(i, 4)
    
14.             .Range("n2") = arr(i, 9)
    
15.             .Range("r2") = arr(i, 6)
    
16.             .Copy
    
17.             With ActiveWorkbook
    
18.                 .SaveAs Filename:=ThisWorkbook.Path & "" & arr(i, 4)
    
19.                 .Close False
    
20.             End With
    
21.         Next
    
22.     End With
    
23.             
    
24. End Sub
    

复制代码

chxw68

详见附件。

bao205540

chxw68 发表于 2023-2-26 09:25
详见附件。

谢谢大神 不过 内容也得 填到下面的项目里 不能只填到表头上面

wxxydl

你的数据有问题？日期不全  如644行 2022年8 月日   没有具体日期怎么填？，多行如此。

wxxydl

先把数据处理完整再传附件

wxxydl

我给你做了一个 看一下  是这样吧 （有些日期不全的，我随便补了一下  以你实际的 为准）

wxxydl

可以运行  自动提示  哪些错误

鄂龙蒙

【填写台帐】.rar (27 KB, 下载次数: 6)

2023-2-26 11:33 上传

点击文件名下载附件