已解决问题
谷歌pamel_a用户在2015.01.19提交了关于“夏至未至Excel VBA 简单的问题”的提问，欢迎大家涌跃发表自己的观点。目前共有1个回答，最后更新于2025-01-04T22:58:44。大神帮忙看一下程序哪里有问题，调试总提示LOOP没有DO
Sub保存()
Dima%,b%,c%,d%,e%,f%,g%
a=b=c=d=e=f=g=3
Do
IfCells(5,2)="住宅"Then
Sheet3.Range(1&"a")=Cells(1,2)
a=a+1
ElseIfCells(5,2)="商业"Then
Sheet4.Range(1&"b")=Cells(1,2)
b=b+1
ElseIfCells(5,2)="办公"Then
Sheet5.Range(1&"c")=Cells(1,2)
c=c+1
ElseIfCells(5,2)="酒店"Then
Sheet6.Range(1&"d")=Cells(1,2)
d=d+1
ElseIfCells(5,2)="**业园"Then
Sheet7.Range(1&"e")=Cells(1,2)
e=e+1
ElseIfCells(5,2)="文教卫"Then
Sheet8.Range(1&"f")=Cells(1,2)
f=f+1
ElseIfCells(5,2)="城市综合体"Then
Sheet9.Range(1&"g")=Cells(1,2)
g=g+1
Else
MsgBox"项目分类出错"
Loop
EndSub
详细问题描述及疑问：
大神帮忙看一下程序哪里有问题，调试总提示LOOP没有DO
Sub保存()
Dima%,b%,c%,d%,e%,f%,g%
a=b=c=d=e=f=g=3
Do
IfCells(5,2)="住宅"Then
Sheet3.Range(1&"a")=Cells(1,2)
a=a+1
ElseIfCells(5,2)="商业"Then
Sheet4.Range(1&"b")=Cells(1,2)
b=b+1
ElseIfCells(5,2)="办公"Then
Sheet5.Range(1&"c")=Cells(1,2)
c=c+1
ElseIfCells(5,2)="酒店"Then
Sheet6.Range(1&"d")=Cells(1,2)
d=d+1
ElseIfCells(5,2)="**业园"Then
Sheet7.Range(1&"e")=Cells(1,2)
e=e+1
ElseIfCells(5,2)="文教卫"Then
Sheet8.Range(1&"f")=Cells(1,2)
f=f+1
ElseIfCells(5,2)="城市综合体"Then
Sheet9.Range(1&"g")=Cells(1,2)
g=g+1
Else
MsgBox"项目分类出错"
Loop
EndSub