新手求解，判断和循环语句的结合

thxjob

我本来想做的功能是
首先定义了5个函数
接着x做为单元格的序号
当a"x"单元格含有深圳或西安时，
a"x"，b"x"，c"x"单元格复制到zb，xm，drbc这三个变量上
当a1单元格和c1单元格为空值时
zb，xm，drbc这三个变量复制到a"x"，b"x"，c"x"上
当a1单元格为空且c1单元格不为空时
结束循环
并将该行及该行以下14行内的内容删除。
但一执行就死机，我也不晓得到底哪出问题，能帮忙看看么

thxjob

图好像不是特别清晰，单位的电脑有限制，无法上外网且无法传输数据，我晚上回去手打一份发上来

thxjob

看下这个照片能看清不

thxjob

前两天有点忙
刚手机打出来的
sub 填充()
dim x as integer,n as integer,zb as string,xm as string,drbc as string
x=1
n=1
do while n=1
select case n=1
case(range("a"&x&"")like"深圳*"or range("a"&x&"")like"西安*")=1
zb=range("a"&x&"")
xm=range("b"&x&"")
drbc=range("c"&x&"")
x=x+1
case(range("a"&x&"")=""and range("c"&x&"")="")=1
range("a"&x&"")=zb
range("b"&x&"")=xm
range("c"&x&"")=drbc
x=x+1
case(range("a"&x&"")=""and range("c"&x&""<>"")="1"
n=n+1
end select
loop
end sub

thxjob

已解决，但没明白这个代码的意思!()
班表填充()

Sub a()
Sheets(1).Cells.Copy Sheets(2).[a1]
With Sheets(2)
.Rows("1:114").Delete
er = .Cells.Find("每页行数").Row
For i = 2 To er
If .Cells(i, 1) <> "" Then
arr = Split(.Cells(i, 1), "，")
.Cells(i, 1) = arr(0)
If UBound(arr) > 0 Then
.Cells(i, 2) = arr(1)
End If
Else
For j = 1 To 3
.Cells(i, j) = .Cells(i - 1, j)
Next
End If
Next
.Rows(er).Resize(10000).Delete
For i = er To 2 Step -1
If .Cells(i, 1) = "姓名" Then
.Rows(i).Delete
End If
Next
End With
End Sub