Question

我有一个小问题，可能是通过简单的改变解决的。我有一些代码，基本上是在每个点插入一些数据。但是当我将内插值粘贴到新的单元格集中时，我发现所使用的两个单元组合而不是相加，即单元格（1,1）= 1＆amp;单元格（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

我从＆＃34; String＆＃34;更改了A1和A2的变量类型。到＆＃34; Double＆＃34;代码现在按预期工作新代码见下文

    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

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

2 个答案: