关于语句跳转问题

釜底抽薪

Sub 多表合并3()
    Dim RMax As Integer, CMax As Integer
    Dim sht As Worksheet, ShtR As Integer
   
    For Each sht In Worksheets
      If sht.Name = "汇总" Then Worksheets("汇总").Cells.Delete
         GoSub 100
         Next sht
         Sheets.Add.Name = "汇总"
100:
      For Each sht In Worksheets
        If sht.Name <> "汇总" Then
            With sht.Range("A1")
                ShtR = Sheets("汇总").UsedRange.Rows.Count
                RMax = .End(4).Row - 1
                CMax = .End(2).Column
                If ShtR = 1 Then .EntireRow.Copy Sheets("汇总").Cells(ShtR)
                .Offset(1).Resize(RMax, CMax).Copy Sheets("汇总").Cells(ShtR + 1, 1)
            End With
        End If
     Next sht
    Sheets("汇总").Cells.EntireColumn.AutoFit
End Sub

以上代码中，我加了句红色的代码，不管条件成不成立，就运行  GoSub  跳转了，
  求大神改进下

砂海

了解一下

if    then
..
else
...
end if

釜底抽薪

感谢，GosSub得下句加个Eed If 就行

釜底抽薪

砂海 发表于 2019-8-3 17:54
了解一下

if    then

感谢，发现问提了，还是出在IF语句里面
GosSub得下句加个Eed If 就行