vba功能达到了 运行错误13 类型不匹配怎样解决，哪位大神帮忙看看？

Question

Private Sub CommandButton1_Click()

Set 单元格 = Cells(Rows.Count, 2).End(xlUp).Activate()

End Sub

Answer 1

错误13类型不匹配通常出现在变量类型错误的情况下，这可能是因为在代码中使用了不兼容的数据类型。在这种情况下，出现这种错误的原因可能是使用了不能作为对象的数据类型，如数字、字符串、布尔值等。

在你提供的代码中，错误出现在第二行，具体原因是你正在将一个Range对象赋值给一个变量，这样的操作是不兼容的。

下面是一个修改后的代码，它将最后一个单元格作为字符串存储在变量"cell"中，以避免类型不匹配的错误：

Private Sub CommandButton1_Click()

Dim 单元格 As String
单元格 = Cells(Rows.Count, 2).End(xlUp).Address

End Sub

这里，我们将单元格地址作为字符串存储在变量"cell"中，避免了Range对象赋值给变量的不兼容问题。

Answer 2

Private Sub CommandButton1_Click()
dim 单元格 as range
Set 单元格 = Cells(Rows.Count, 2).End(xlUp)

End Sub
最好有定义语句，培养好习惯。