添加单元格值而不是合并单元格值

我有一个小问题，可能通过简单的改变解决。 我有一些代码，基本上是在每个点上插入一些数据。 但是，当我去将插值粘贴到新的单元格集合中时，我发现所使用的两个单元格已经组合而不是添加了，即单元格（1,1）= 1和单元格（1,2）= 2 A3 = 12而不是A3 = 3这是一个快速修复？ 代码如下。 DataColumn和newDataColumn是在代码的前一部分中定义的，如果我分别将它们分别用于“A”和“B”，则没有区别。

  Dim i2 As Long i2 = 2 For i2 = i2 To TotalNumber - 1 Dim A1 As String Dim A2 As String Dim A3 As Double Dim A4 As Double A1 = Cells(i2, DataColumn).Value A2 = Cells(i2 + 1, DataColumn).Value A3 = A1 + A2 A4 = A3 / 2 Cells((i2 * 2), newDataColumn) = A4 Next i2 End Sub 

感谢你给与我的帮助

标记

Answer 1

一个小小的变化

 A3 = CDbl(A1) + CDbl(A2) 

Answer 2

我将A1和A2的variablestypes从“string”更改为“双倍”。现在，代码正常工作，新代码可以在下面看到

  Dim i2 As Long i2 = 2 For i2 = i2 To TotalNumber - 1 Dim A1 As Double Dim A2 As Double Dim A3 As Double Dim A4 As Double A1 = Cells(i2, DataColumn).Value A2 = Cells(i2 + 1, DataColumn).Value A3 = A1 + A2 A4 = A3 / 2 Cells((i2 * 2), newDataColumn) = A4 Next i2 End Sub