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

再回首-沉默

Sub Macro1()
    Sheets("第一 (2)").Activate
    Sheets("第一").Activate
    Range("A1").CurrentRegion.Select
    Selection.Clear
    Sheets("第一 (2)").Activate
    Range("A1").CurrentRegion.Select
    Selection.Copy
    Sheets("第一").Activate
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlPasteSpecialOperationNone, SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlPasteSpecialOperationNone, SkipBlanks:=False, Transpose:=False
    Sheets("第二 (2)").Activate
    Sheets("第二").Activate
    Range("A1").CurrentRegion.Select
    Selection.Clear
    Sheets("第二 (2)").Activate
    Range("A1").CurrentRegion.Select
    Selection.Copy
    Sheets("第二").Activate
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlPasteSpecialOperationNone, SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlPasteSpecialOperationNone, SkipBlanks:=False, Transpose:=False
    Sheets("第三 (2)").Activate
    Sheets("第三").Activate
    Range("A1").CurrentRegion.Select
    Selection.Clear
    Sheets("第三 (2)").Activate
    Range("A1").CurrentRegion.Select
    Selection.Copy
    Sheets("第三").Activate
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlPasteSpecialOperationNone, SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlPasteSpecialOperationNone, SkipBlanks:=False, Transpose:=False
End Sub





就是运行宏的时候，运行到了第2个区域最前的代码，运行不了，直接跳到下个区域进行运行代码。
再例如，运行第1个区域第一个代码运行不了，跳过，直接运行下一个（第2区域），以此一直运行结束
【每个区域的第一行代码运行不了就运行下个区域】

512008404

参与一下！

再回首-沉默

就是工作簿没有表名的时候，这个区域的代码都不运行，有代码能判定的吗
用of
If sh.name
判断是怎么添加到代码去的

边缘码农

On Error Resume Next

如果出现错误执行下一行

边缘码农

加在代码的最前面。

lingshimizi

Private Function Check_Sheet(ByVal name As String) As Boolean
    Dim i As Long
   
    For i = 1 To Sheets.count
        If Sheets(i).name = name Then
            Check_Sheet = True
            Exit For
        End If
    Next
End Function

feilanga

再回首-沉默 发表于 2024-6-28 17:13
就是工作簿没有表名的时候，这个区域的代码都不运行，有代码能判定的吗
用of
If sh.name

dim sh as worksheet
for each sh in sheets
if sht.name<>"" then
if sht.name<>"某表" then
If InStr(sht.name, "A表") > 0 Then
en fi
end if
end if
next

再回首-沉默

边缘码农 发表于 2024-6-28 17:18
On Error Resume Next

如果出现错误执行下一行

老师，执行下一行的话数据会错，能跳过想要的整个区域吗

再回首-沉默

feilanga 发表于 2024-6-28 17:23
dim sh as worksheet
for each sh in sheets
if sht.name"" then

老师，看着有点看不懂，有空方便能修改到我发的哪个代码里面去吗？文件刚刚也上传了

再回首-沉默

lingshimizi 发表于 2024-6-28 17:20
Private Function Check_Sheet(ByVal name As String) As Boolean
    Dim i As Long
   

大佬，这个添加到原代码哪个位置？能否添加进去发下呢

fxl447098457

你还不如直接提问让别人帮写个优雅一点的代码。这代码又长又没营养。