在多个工作表中增加1列序号

APPLE123

在多个工作表中增加1列序号和一个单元格

1、一个工作簿内有多个工作表，每个工作表各有若干数据，行数不等
2、想在工作表名称中含有“数据源”的表格中，增加一列数据“序号”，作为这些工作表的第1列，即A列，序号按顺序填列，直到最后一行。
3、想在工作表名称中含有“数据源”的表格的第一行的最后一列增加一个字段名称“核对结果”。
如当前数据第一行为AR的“注销日期”，在增加一列数据“序号”在A列后，原先AR的“注销日期”就变为AS的“注销日期”，将第一行的最后一列AT命名为“核对结果”。

效果详见《在多个工作表中增加1列序号效果表.xlsx》

请大神帮帮忙，希望vba获取相应数据，谢谢！

gwjkkkkk

Sub test()
    Dim ar, i&, wks As Worksheet
    For Each wks In Worksheets
        If wks.Name Like "*数据源*" Then
            With Range(wks.[A1], wks.Cells(Rows.Count, "A").End(3))
                 .EntireColumn.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
                 ar = .Value
                 ar(1, 1) = "序号"
                 For i = 2 To UBound(ar)
                     ar(i, 1) = i - 1
                 Next
            End With
            wks.[A1].Resize(UBound(ar)) = ar
        End If
    Next
End Sub

gwjkkkkk

请参考附件。。。

APPLE123

gwjkkkkk 发表于 2023-6-8 20:26
Sub test()
    Dim ar, i&, wks As Worksheet
    For Each wks In Worksheets

谢谢老师帮助！
再请教老师，想在第一行的最后一列AT列增加一列“核对结果”，该如何修改代码？
麻烦老师再帮帮忙，谢谢！

吴中泉

APPLE123 发表于 2023-6-9 07:15
谢谢老师帮助！
再请教老师，想在第一行的最后一列AT列增加一列“核对结果”，该如何修改代码？
麻烦老 ...

站在巨人的肩膀上帮你弄了一下

吴中泉

1. Sub test()
   
2.     Dim ar, i&, wks As Worksheet
   
3.     For Each wks In Worksheets
   
4.         If wks.Name Like "*数据源*" And wks.[A1] <> "序号" Then
   
5.             With Range(wks.[A1], wks.Cells(Rows.Count, "A").End(3))
   
6.                  .EntireColumn.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
   
7.                  ar = .Value
   
8.                  ar(1, 1) = "序号"
   
9.                  For i = 2 To UBound(ar)
   
10.                      ar(i, 1) = i - 1
    
11.                  Next
    
12.             End With
    
13.             wks.[A1].Resize(UBound(ar)) = ar
    
14.             wks.Cells(1, Columns.Count).End(xlToLeft).Offset(0, 1) = "核对结果"
    
15.         End If
    
16.     Next
    
17. End Sub
    

复制代码

APPLE123

吴中泉 发表于 2023-6-9 14:52

谢谢老师帮助