提示缺少End Sub

软件 2024-04-16

明明有EndSub，excel宏提示缺少end sub？

代码没问题，你是复制代码时，分错行了，按下图分行：

Private Sub 分拆工作表()

Dim sht As Worksheet

Dim MyBook As Workbook

Set MyBook = ActiveWorkbook

For Each sht In MyBook.Sheets

sht.Copy

ActiveWorkbook.SaveAs Filename:=MyBook.Path & "\" & sht.Name, FileFormat:=xlNormal '将工作簿

'另存为EXCEL默认格式

ActiveWorkbook.Close

MsgBox "文件已经被分拆完毕!"

End Sub

Vba 编程出错，老是说我缺少End Sub。。。求助大神！！

第一个删除这条 Sub 阶乘函数() 上面已经有sub，不能再里面再出现另外一个过程第二个 If score >= 85 And score <= 100 Then MsgBox (score & "分的等级是A"), vbOKOnly, "学生成绩转换" 前面四条，像这样改成同一行或者，或者添加End if语句第三个： Private Sub ToggleButton5_Click() Sub 计算圆面积() '把这句删掉还是跟第一个一样，不要重复SUB语句 Private Sub ToggleButton5_Click()这句已经声明了一个事件的过程，不要再去声明Sub 计算圆面

excel 运行宏时总是提示编译错误:缺少 End Sub

For j = 1 To Range("xdf1").End(xlToLeft).Column 这一行，Range("xdf1")不存在，应该是Range("vf1")吧。这个代码应该是在列A里面搜索和单元格B32内容一致的表格，并且把表格地址和内容在C32以后打印出来。可以测试一下，给A列一组数据，在B32里面输入一个值，会自动查找。

你好，我有一个关于excel的问题，运行宏时总是提示编译错误：缺少 End Sub 请帮忙看看：

那是因为你不小心打开的录入的宏的代码!把过程结束语End Sub删除了! 你按ALT+F11打开VBE编辑器,打开右边模块,打开你录制的宏的名字.里面有代码,在所有代码后加上End Sub就行了!

VB程序中一直提示缺少end sub

PrivateSubCommand1_Click()
EndSub
FunctionsReplace(SearchLineAsString,SearchForAsString,ReplaceWithAsString)
DimvSearchLineAsString,foundAsInteger
found=InStr(SearchLine,SearchFor):vSearchLine=SearchLine
Iffound<>0Then
vSearchLine=""
Iffound>1ThenvSearchLine=Left(SearchLine,found-1)
vSearchLine=vSearchLine+ReplaceWith
Iffound+Len(SearchFor)-1vSearchLine=vSearchLine+Right$(SearchLine,Len(SearchLine)-found-Len(SearchFor)+1)
EndIf
sReplace=vSearchLine
EndFunction

sReplace是自定义过程不能将整个过程内容写到按钮事件里需要调用只需要写

Private Sub Command1_Click()

sReplace("参数1","参数2","参数3")

End Sub

根据实际修改参数内容

标签：信息技术 sub end 编程 MicrosoftOffice