“case else不能在select case之外”

[Flowing_Dream]

代码出现““case else不能在select case之外”问题，不知道该如何修改，请教各位~

sub clarifysb()
Dim l As Integer
Dim helpsb as String
ReDim sb(l) as string
Sheets(project).select
selection.autofilter field:=14, criterial="=SB*", Operator: =xlAnd
activesheet.range("N1").select
selction.end(xldonw).select
l=0
do until activecell.value="Remark"
    helpsb= activecell.value
    select case helpsb
        case is="SB*"
        if activecell.offset(0,-9).value="x" then
            for l=0 to ubound(sb)
                if sb(l)=helpsb then
                    activecell.offset(-1,9).select
                    go to here2     '也问一下，这里有什么方法可以直接结束select语句进行下一个循环
                end if
            next l
            redim preserve sb(l)
            sb(l)=helpsb
            activecell.offset(-1,0).select
        if activecell.offset(0,-9).value<>"x" then
            activecell.offset(-1,-9).select
        end if
    case else   '这里显示“case else不能在select case 之外”
        activecell.offset(-1,0).select
end select
here2:
Loop
end sub

[神马被哪个妞占用了呢]

do until activecell.value="Remark"
    helpsb= activecell.value
    select case helpsb
        case is="SB*"
        if activecell.offset(0,-9).value="x" then
            for l=0 to ubound(sb)
                if sb(l)=helpsb then
                    activecell.offset(-1,9).select
                    go to here2     '也问一下，这里有什么方法可以直接结束select语句进行下一个循环
                end if
            next l
            redim preserve sb(l)
            sb(l)=helpsb
            activecell.offset(-1,0).select
        if activecell.offset(0,-9).value<>"x" then
            activecell.offset(-1,-9).select
        end if

    endif

    case else   '这里显示“case else不能在select case 之外”
        activecell.offset(-1,0).select
end select
here2:
Loop
end sub

少了一个endif啊

[神马都能聊]

select case helpsb
case is="SB*"
if activecell.offset(0,-9).value="x" then
for l=0 to ubound(sb)
if sb(l)=helpsb then
activecell.offset(-1,9).select
go to here2 '也问一下，这里有什么方法可以直接结束select语句进行下一个循环
end if
next l
redim preserve sb(l)
sb(l)=helpsb
activecell.offset(-1,0).select
if activecell.offset(0,-9).value<>"x" then
activecell.offset(-1,-9).select
end if
case else '这里显示“case else不能在select case 之外”
activecell.offset(-1,0).select
end select



if没有闭合，缺少一个end if。

你的代码风格不好，缩进很诡异，于是就出了这样的错误。

[Flowing_Dream]

明白了，谢谢~
[Quote=引用 1 楼 yiguangqiang88 的回复:]
VB code
do until activecell.value="Remark"
helpsb= activecell.value
select case helpsb
case is="SB*"
if activecell.offset(0,-9).value="x" then
for l=0 to ubou……
[/Quote]

[神马都能聊]

[Quote=引用 1 楼 yiguangqiang88 的回复:]
VB code
do until activecell.value="Remark"
helpsb= activecell.value
select case helpsb
case is="SB*"
if activecell.offset(0,-9).value="x" then
for l=0 to ubou……
[/Quote]
你的end if放错地方了，楼主的原意被改变了。

[神马被哪个妞占用了呢]

[Quote=引用 4 楼 aisac 的回复:]
你的end if放错地方了，楼主的原意被改变了[/Quote]
嘿嘿，仅仅不要它出错而已，没看代码的，只看了下闭合

[Flowing_Dream]

谢谢哈，之前没注意看，1楼的提醒下我就知道该怎么改了。
[Quote=引用 4 楼 aisac 的回复:]
引用 1 楼 yiguangqiang88 的回复:
VB code
do until activecell.value="Remark"
helpsb= activecell.value
select case helpsb
case is="SB*"
if activecell.offset(0,-9).value="x" then
for l=0 to ubou……

你的……
[/Quote]