END SUB本回答被网友采纳
excel 运行宏时总是提示编译错误:缺少 End Sub ,但是VBA编辑器中的代码...
可以测试一下，给A列一组数据，在B32里面输入一个值，会自动查找。
...运行宏时总是提示编译错误:缺少 End Sub 请帮忙看看:
那是因为你不小心打开的录入的宏的代码!把过程结束语End Sub删除了! 你按ALT+F11打开VBE编辑器,打开右边模块,打开你录制的宏的名字.里面有代码,在所有代码后加上End Sub就行了!
excel中添加vba过程,老是不能运行,说是缺少end sub 请高手帮忙_百度知 ...
把最后面的一个END SUB移到第二行下面即可 搞不懂你为什么一个全局变量要那样做呢 修改后应该是这样的 Public Sub reg()Dim ydtext As String '原单元格值 End Sub Private Sub Worksheet_Change(ByVal Target As Range)If Target.Cells.Count = 1 Then Dim mycom As Comment Dim ybzstr As ...
Excel 宏编译错误,缺少:=
Sub PrintAllSheet()Dim a As New Excel.Application a.ActiveWorkbook.PrintOut()End Sub 改改：Sub PrintAllSheet()Dim a As New Workbook Set a = ActiveWorkbook a.PrintOut copies:=1 End Sub
Excel VBA里面编译错误:缺少end sub怎么解决?
看看是否中间有结束的地方，或者是加的end sub在执行时能被跳过去
为什么一个完整Excel的宏命令,总是说缺少End Sub,在线急等,请高手赐...
一段代码里不能同时出现两个sub，请看这里，有两个sub，只要删除一个就可以了。很高兴为你解答，希望能帮到你！
用EXCEL宏编程的,执行时总是少了END Sub
Function pinyin(p As String) As String i = Asc(p) Select Case i Case -20319 To -20284: pinyin = "A" Case -20283 To -19776: pinyin = "B" Case -19775 To -19219: pinyin = "C" Case -19218 To -18711: pinyin = "D" Case -18710 To -18527: piny...
Excel VBA里面编译错误 缺少End Sub 怎么解决
Private Sub Worksheet_Change(ByVal Target As Range)是一个‘表格点选位置改变触发的事件过程’，不需要再增加‘Sub 按名称筛选片段图片()’也不需要写在模块中，Sheet("引用")应写作Sheets("引用")其他类似，没有你的表格，无法测试。
EXCEL运行VB语句报错“编译错误,缺少END SUB”
Private Sub CommandButton1_Click()'''Sub t()'''call t()'''???Dim i, j, arr(2 To 4)For i = 2 To 4Set arr(i) = CreateObject("Scripting.Dictionary")For j = 2 To Sheets(i).[a65536].End(3).Rowarr(i)(Sheets(i).Range("a" & j).Value) = arr(i)(...
Excel 缺少End Sub
If Application.Intersect(Target, [c:c]) Is Nothing ThenIf Application.Intersect(Target, [b:b]) Is Nothing Then Exit SubEndIFEndIF改为上述代码试试，应该是 IF 没有 EndIF 引起的，IF 可以在特定情况不用 EndIF 但有时候书写不注意就容易出错。
