[已解决]EXCEL2007中按程序不能填充（含附件）

向前650809

各位网友好，有下面一段程序，想填充第4列，但运行后不能填充，
Sub ìî3ä()
m = Sheets("本科").Range("a100000").End(xlUp).Row
For i = 2 To m
  If Left(Sheets("本科").Cells(i, 3), 1) = "1" Then
    Sheets("本科").Cells(i, 4) = "本科提前批"
  ElseIf Left(Sheets("本科").Cells(i, 3), 1) = "2" Then
    Sheets("本科").Cells(i, 4) = "本科一批"
  End If
Next i
MsgBox "填充完毕"
End Sub
给看看问题在哪里，如何改正

谢谢

最佳答案

月排行榜 / 总排行榜

望帝春心

2017-1-4 14:52

1. Sub 填充()
   
2.     m = Sheets("本科").Range("a100000").End(xlUp).Row
   
3.     For i = 2 To m
   
4.         If Left(Sheets("本科").Cells(i, 5), 2) = 1 Then
   
5.             Sheets("本科").Cells(i, 6) = "本科提前批"
   
6.         ElseIf Left(Sheets("本科").Cells(i, 5), 2) = 2 Then
   
7.             Sheets("本科").Cells(i, 6) = "本科一批"
   
8.         End If
   
9.     Next i
   
10.     MsgBox "批次填充完毕！"
    
11. End Sub

复制代码

跳转到最佳答案楼层

grf1973

你的数据E列里面有其他不可见字符，所以用1，2 判断不出来。

1. Sub 填充()
   
2.     With Sheets("本科")
   
3.         m = .Range("a100000").End(xlUp).Row
   
4.         For i = 2 To m
   
5.             x = Val(.Cells(i, 5))
   
6.             .Cells(i, 6) = IIf(x = 1, "本科提前批", IIf(x = 2, "本科一批", ""))
   
7.         Next i
   
8.         MsgBox "批次填充完毕！"
   
9.     End With
   
10. End Sub

复制代码

grf1973

另外原代码里的列数都不对。

望帝春心

1. Sub 填充()
   
2.     m = Sheets("本科").Range("a100000").End(xlUp).Row
   
3.     For i = 2 To m
   
4.         If Left(Sheets("本科").Cells(i, 5), 2) = 1 Then
   
5.             Sheets("本科").Cells(i, 6) = "本科提前批"
   
6.         ElseIf Left(Sheets("本科").Cells(i, 5), 2) = 2 Then
   
7.             Sheets("本科").Cells(i, 6) = "本科一批"
   
8.         End If
   
9.     Next i
   
10.     MsgBox "批次填充完毕！"
    
11. End Sub

复制代码

sandorn

到处挖坑

望帝春心

两个问题，一列对不上号，二有不可见字符

向前650809

如何消除不可见字符，代码如何写出
谢谢

向前650809

cells(rows.count,1)
rows.count
怎么解释
谢谢