请解释一下这段“合并当前工作簿下的所有工作表”的<em>VBA</em>-excel vba 合

代码如下：

Option Explicit
Sub 把所有工作表内容合并到最后一个e79fa5e98193e4b893e5b19e335工作表中()
    Dim i, n, st As Worksheet
    For i =  Sheets.Count to 1 Step -1
        If i = Sheets.Count Then
            Set st = Sheets(i)
            If st.UsedRange.Cells.Count = 1 And st.Cells(1, 1) = "" Then
                n = 1 '下一次添加内容的行
            Else
                n = st.UsedRange.Rows.Count + 1
            End If
        Else
            Sheets(i).UsedRange.Copy st.Cells(n, 2)
            st.Cells(n, 1).resize(Sheets(i).UsedRange.Rows.Count,1)=sheets(i).name
            n = st.UsedRange.Rows.Count + 1            
        End If
    Next i
End Sub

操作中遇到问题，请百度云联系。

估计是太简单了没有愿意回答。。。。

Sub 合并当前工作簿下的所有工作表()
Application.ScreenUpdating = False          '关闭刷新
For j = 1 To Sheets.Count                   'Sheets.Count为当前工作簿下的工作表个数
    If Sheets(j).Name <> ActiveSheet.Name Then  '如果第j个工作表的表名 不等于 当前工作表的表名
        X = Range("A65536").End(xlUp).Row + 1       '活动工作表的A列末行数据的下一行 的行号
        Sheets(j).UsedRange.Copy Cells(X, 1)        '将第j个工作表使用的区域 复制到 A列第X行
    End If
Next
Range("B1").Select                          '光标移至当前工作表的B1单元格
Application.ScreenUpdating = True           '打开刷新
MsgBox "当前工作簿下的全部工e79fa5e98193e59b9ee7ad94338作表已经合并完毕！", vbInformation, "提示"      '弹出提示窗口，窗口内显示"当前工作簿下的全部工作表已经合并完毕！"
End Sub

可能是宏代码有问题，贴出你的代码，大家帮你出注意修改。
或者【百度云盘】（一个使用百度帐号登录的可以对话和传文件的应用软件）私下传文件，为你修正后回复。

正常的啊

Sub 合并当前工作簿百下的所有度工作表()

Application.ScreenUpdating = False
For j = 1 To Sheets.Count
If Sheets(j).Name <> ActiveSheet.Name Then
X = Range("A65536").End(xlUp).Row + 1
Sheets(j).UsedRange.Copy Cells(X, 1)
End If
Next
Range("B1").Select
Application.ScreenUpdating = True
MsgBox "当前工作簿下的全部工版作表已经合并完毕！权", vbInformation, "提示"
End Sub
'你复制这个再试试