求对数据进行点击生成，并且复制录入到另外一张表中

钵仔糕

求对数据进行点击生成，并且复制录入到另外一张表中

具体可以查看附件

洋务德雷

看不懂00000000000

钵仔糕

对1数据进行点击生成数据，并且复制在图片2中，执行1000遍，数据往下填

WANT-T

祝您生活愉快

小凡、、、

钵仔糕

小凡、、、 发表于 2024-10-15 15:38

能发下代码吗，这边识别代码不能用

钵仔糕

还有人可以帮助一下吗

xiakor

看看下面代码是否需要的？

1. Sub test()
   
2.     Dim ws As Worksheet
   
3.     Dim r As Integer
   
4.     Dim i As Integer
   
5.     Dim R1 As Range
   
6.     Dim R2 As Range
   
7.     Application.ScreenUpdating = False
   
8.     Set ws = Sheets("千遍模拟数据")
   
9.     r = 3
   
10.     For i = 1 To 1000
    
11.         With Sheets("数据")
    
12.             Set R1 = .Range("T5:V20")
    
13.             Set R2 = .Range("T29:V44")
    
14.             R1.Copy
    
15.             ws.Cells(r, "B").PasteSpecial Paste:=-4163
    
16.             ws.Cells(r, "B").PasteSpecial Paste:=-4122
    
17.             R2.Copy
    
18.             ws.Cells(r, "E").PasteSpecial Paste:=-4163
    
19.             ws.Cells(r, "E").PasteSpecial Paste:=-4122
    
20.         End With
    
21.         Application.CutCopyMode = False
    
22.         r = r + 16
    
23.     Next i
    
24.     Application.ScreenUpdating = True
    
25.     MsgBox "ok!"
    
26. End Sub

复制代码