运行时错误’9’：下标越界 能添加代码当报错的时候跳过这块区域的代码吗？

再回首-沉默

fxl447098457 发表于 2024-6-28 18:06
你还不如直接提问让别人帮写个优雅一点的代码。这代码又长又没营养。

大佬提过了，别人说表多，太复杂搞不了，搞不出来想要的效果
要不大佬你帮忙看下我发的帖子，点我头像下面有个主题，进去后主题名是【工作簿进行数据的粘贴数值跟格式可以用vba实现吗】

再回首-沉默

fxl447098457 发表于 2024-6-28 18:06
你还不如直接提问让别人帮写个优雅一点的代码。这代码又长又没营养。

这代码是我用录制宏操作的，后面还要搞很长呢，技术不行就是这样，要套80多个表名，也就是现在发的代码还得翻26倍

lingshimizi

bilibili有很多教程，你随便看一个入门的，用一天时间，这些都不是事儿

lingshimizi

再回首-沉默 发表于 2024-6-28 18:12
大佬提过了，别人说表多，太复杂搞不了，搞不出来想要的效果
要不大佬你帮忙看下我发的帖子，点我头像下 ...

你这个本来的问题是不是把两个工作簿中，相同名称的工作表合并到第三个工作簿，是这个意思吧，我看了一下，那个人说太复杂是因为你没有把问题表述清楚，人家以为你要把不同结构的表格合并到一起

512008404

参与一下！

边缘码农

再回首-沉默 发表于 2024-6-28 18:13
这代码是我用录制宏操作的，后面还要搞很长呢，技术不行就是这样，要套80多个表名，也就是现在发的代码还 ...

这80多个表的表名是确定的？操作是一样的?

边缘码农

1. Sub Macro2()
   
2.    
   
3.     On Error Resume Next
   
4.     Sheets("第一 (2)").Activate
   
5.     If Err.Number = 0 Then
   
6.         Sheets("第一").Activate
   
7.         Range("A1").CurrentRegion.Select
   
8.         Selection.Clear
   
9.         Sheets("第一 (2)").Activate
   
10.         Range("A1").CurrentRegion.Select
    
11.         Selection.Copy
    
12.         Sheets("第一").Activate
    
13.         Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlPasteSpecialOperationNone, SkipBlanks:=False, Transpose:=False
    
14.         Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlPasteSpecialOperationNone, SkipBlanks:=False, Transpose:=False
    
15.     End If
    
16.     Err.Clear
    
17. 
    
18.     Sheets("第二 (2)").Activate
    
19.     If Err.Number = 0 Then
    
20.         Err.Clear
    
21.         Sheets("第二").Activate
    
22.         Range("A1").CurrentRegion.Select
    
23.         Selection.Clear
    
24.         Sheets("第二 (2)").Activate
    
25.         Range("A1").CurrentRegion.Select
    
26.         Selection.Copy
    
27.         Sheets("第二").Activate
    
28.         Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlPasteSpecialOperationNone, SkipBlanks:=False, Transpose:=False
    
29.         Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlPasteSpecialOperationNone, SkipBlanks:=False, Transpose:=False
    
30.     End If
    
31.     Err.Clear
    
32. 
    
33.     Sheets("第三 (2)").Activate
    
34.     If Err.Number = 0 Then
    
35.         Err.Clear
    
36.         Sheets("第三").Activate
    
37.         Range("A1").CurrentRegion.Select
    
38.         Selection.Clear
    
39.         Sheets("第三 (2)").Activate
    
40.         Range("A1").CurrentRegion.Select
    
41.         Selection.Copy
    
42.         Sheets("第三").Activate
    
43.         Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlPasteSpecialOperationNone, SkipBlanks:=False, Transpose:=False
    
44.         Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlPasteSpecialOperationNone, SkipBlanks:=False, Transpose:=False
    
45.     End If
    
46.     Err.Clear
    
47. End Sub

复制代码

再回首-沉默

看了，确实是之前发表的问题太乱了，我重新整理了问题，到了主题为    【某表（2） 数据替换到 某表】  麻烦有空的大佬帮我看下，还能优化的不，现在自己搞出来的，1k行代码