如何使用 VBA 增加 Excel 中的单元格值？错误：类型不匹配答案

【问题标题】：How do I Increase cell value in Excel using VBA? Error: Type mismatch如何使用 VBA 增加 Excel 中的单元格值？错误：类型不匹配
【发布时间】：2010-05-30 00:16:09
【问题描述】：

我正在编写一个宏，但是因为我是第一次在 vb 中工作，所以我遇到了问题。

我的代码：

Cells (1, 1).Select
Dim tempvar As Integer
tempvar = Val(Selection.Value) // error
Selection.Value = tempvar + 1

我的代码应该是什么：

Cells(1,1).Value+=1

我收到错误“类型不匹配”。我该如何做到这一点？

编辑：第 1 行，第 1 单元格被合并。它由 4 列组成，因此它是第 1 行，一列中的单元格 1、2、3、4。如果单元格没有合并，则没有问题。

【问题讨论】：

cell(1,1) 持有什么值？还有，哪一行有类型不匹配的错误？
值为0，我记下错误发生的地方“//error”。

标签： excel vba

【解决方案1】：

这个怎么样：

Cells(1,1).Value = Cells(1,1).Value + 1

在 VBA 中选择单元格和范围以使用它们不是必需的（而且速度要慢得多），您可以直接引用它们。如果 Cells(1,1) 的值为“hello”或不是数字，我实际上并不肯定上面会做什么，但如果它有效，它将起作用。如果您想确定单元格中的值，可以使用 IsNumeric()。

如果有帮助，请告诉我！

【讨论】：