Question

excel中关于数据类型的一个简单问题

单元格内为仅粘帖数值格式，然后如下代码为何运行不过去呢
Sub shuliangtongji()
Dim i As Integer
Dim maxr As Integer
maxr= Application.WorksheetFunction.CountA(ThisWorkbook.Worksheets("sheet1").Range("A:A"))
Dim lh1y As Integer
xk1y = 0
With Sheet1
For i = 2 To maxr

If .Cells(i, 6).Value= "2月" Then
xk1y = xk1y + 1
End If
Next
End With
MsgBox xk1y
End Sub

If .Cells(i, 6).Value= "2月" 老是提示类型不匹配怎么回师呢
2月不是日期啊，应该是文本，一楼的不管用啊，能否在指导以下
关键是类型不匹配啊，

Answer 1

不是很明白哟。
"2月"是不是文本的呀？要是判断2月，用日期的不成吗？

关于问题补充：
我的意思是，把条件后面的"2月"，变成日期型的不成吗？

Answer 2

if 后面的“.” 去掉就可以了

Answer 3

With Sheet1改为With worksheets("Sheet1")然后再试试！