左侧插入日期列

yikesi69

数据文件, 原来没有日期, 合并之后就乱了, 所以必须每个表都要插入日期列, 这个日期就是表的名字
麻烦老师给解决一下

LIUZHU

JSA代码

1. function 添加日期列(){
   
2.         [...Sheets].forEach(sh=>{
   
3.                 let mydate=[[0,4],[4,6],[6,8]].map(([a,b])=>sh.Name.slice(a,b)).join("-");
   
4.                 let arr=sh.Range("a1").CurrentRegion.Value2.map(([a,b])=>[mydate,a,b]);
   
5.                 sh.Range("a1").Resize(arr.length,arr[0].length).Value2=arr;
   
6.         });
   
7. }

复制代码

LIUZHU

WPS测试即可

Jaofuan

1. Sub jaofuan()
   
2.     Dim ST As Worksheet, ROW As Long
   
3.     For Each ST In Worksheets
   
4.         ROW = ST.Cells(Rows.Count, "A").End(xlUp).ROW
   
5.         ST.Columns("A").Insert
   
6.         ST.Range("a1:a" & ROW) = ST.Name
   
7.     Next
   
8. End Sub
   

复制代码

LIUZHU

Jaofuan 发表于 2024-3-26 09:01

ST.Name应该要转换成“yyyy-m-d”的格式的日期

swl4561255

1. Sub test()
   
2. Dim sht As Worksheet
   
3.   For i = 1 To ThisWorkbook.Worksheets.Count
   
4.     Worksheets(i).Activate
   
5.     With ActiveSheet
   
6.     ar = .Range("A1").End(4).Row
   
7.     riqi = Format(Format(.Name, "0-00-00"), "yyyy/m/d")
   
8.     .Columns("A:A").Insert shift:=xlRight
   
9.       For j = 1 To ar
   
10.         .Range("A1:A" & ar) = riqi
    
11.       Next
    
12.     End With
    
13.   Next
    
14. End Sub
    

复制代码

Jaofuan

LIUZHU 发表于 2024-3-26 09:24
ST.Name应该要转换成“yyyy-m-d”的格式的日期

我只会拆分
DateSerial(Left(ST.Name, 4), Mid(ST.Name, 5, 2), Right(ST.Name, 2))

LIUZHU

Jaofuan 发表于 2024-3-26 10:00
我只会拆分
DateSerial(Left(ST.Name, 4), Mid(ST.Name, 5, 2), Right(ST.Name, 2))

我也是用的拆分，因为JSA对日期的处理不如VBA方便，6楼提供的转换方案和很不错，Format(Format(.Name, "0-00-00"), "yyyy/m/d")

阿xia

Sub asdfasdfa()

Dim i As Worksheet, row As Long


For Each i In Worksheets


    i.Columns("A").Insert
   
   
    i.Range("A1").Resize(i.Range("B65536").End(xlUp).row, 1).Value = Format(Format(i.Name, "0-00-00"), "yyyy/mm/d")

Next i


End Sub