求助 一张log批量插入同一个位置表格至少有200个

探索123

探索123

至少有200张表格，少打了一个字，只是用几张表格代表一下，求助高手。

autohotey

意思就是把表1 复制 200个表对吧？

1. Sub Copy()
   
2.     Dim i As Integer
   
3.     For i = 1 To 2
   
4.         Sheets("Sheet1").Copy After:=Sheets(Sheets.count)
   
5.         ActiveSheet.Name = "Sheet1 Copy " & i
   
6.     Next i
   
7. End Sub

复制代码

autohotey

意思就是把表1 复制200份对吧？

Sub Copy()
    Dim i As Integer
    For i = 1 To 2
        Sheets("Sheet1").Copy After:=Sheets(Sheets.count)
        ActiveSheet.Name = "Sheet1 Copy " & i
    Next i
End Sub

autohotey

如果已经存在200张表且有内容了。那只能插入图片
设置单元格和图片宽高的代码如不需要可删除。

1. Sub cr()
   
2.     Dim ws As Worksheet
   
3.     Dim picObj As Shape
   
4.     Dim picPath As String
   
5.     picPath = "" ' 图片路径和文件名
   
6.    
   
7.     For Each ws In ThisWorkbook.Worksheets
   
8.         Set picObj = ws.Shapes.AddPicture(picPath, msoFalse, msoTrue, ws.Range("A1").Left, ws.Range("A1").Top, ws.Range("A1").Width, ws.Range("A1").Height)
   
9.         '更改A1单元格长宽
   
10.         With ws.Range("A1")
    
11.            .ColumnWidth = 20
    
12.            .RowHeight = 50
    
13.         End With
    
14.         '更改图片长宽，并居中
    
15.         With picObj
    
16.            .LockAspectRatio = msoFalse
    
17.            .Width = 35
    
18.            .Height = 35
    
19.            .Left = (ws.Range("A1").Width - .Width) / 2 + ws.Range("A1").Left
    
20.            .Top = (ws.Range("A1").Height - .Height) / 2 + ws.Range("A1").Top
    
21.         End With
    
22.     Next ws
    
23. End Sub
    

复制代码

wp231957

探索123 发表于 2024-10-10 10:00
至少有200张表格，少打了一个字，只是用几张表格代表一下，求助高手。

外部脚本试一下

探索123

autohotey 发表于 2024-10-10 10:18
意思就是把表1 复制 200个表对吧？

谢谢您的建议！

探索123

autohotey 发表于 2024-10-10 10:36
如果已经存在200张表且有内容了。那只能插入图片
设置单元格和图片宽高的代码如不需要可删除。

谢谢您的建议！