Question

vba运行提示类型不匹配

Sheet2.Cells(4, 4) = Sheet2.Cells(4, 4) & Sheet2.Cells(a, 4) & Sheet2.Cells(a, 5)
Sub 按钮41_单击()
Dim a As Integer, b As Integer, c As Integer
For a = 5 To 51
If Sheet2.Cells(a, 4) <> "Y" Then
If Sheet2.Cells(4, 4) <> "" Then
Sheet2.Cells(4, 4) = Sheet2.Cells(a, 4) & Sheet2.Cells(a, 5) & "、"
Else
Sheet2.Cells(4, 4) = Sheet2.Cells(4, 4) & Sheet2.Cells(a, 4) & Sheet2.Cells(a, 5)
End If
End If
Next a
End Sub

If Sheet2.Cells(a, 4) <> "Y" Then
这一步也报错，同样的错误

Answer 1

在对话框中选调试，然后将鼠标放在变量a上，看一下a的值，有可能是空值或非数值值。
===============================
看你的cells(a,4)单元格中的数据是不是字符型，可能是因为这两侧数据类型不匹配。

追问

cells(a,4)是Y或
#N/A

追答

那当值为#N/A，公式肯定出错，所以这个要检查前面的运算。

Answer 2

如果这个单元格里是数字或者日期的话, 和文本"Y"进行比较就会报错

Answer 3

Sheet2.Cells(4, 4).value

Sheet2.Cells(4, 4)是单元格对象，value是单元格的值，后面几个也是加上value