Range(" D14 ")粘贴了两次，分别是D14和D15。

Question

由于某些原因，它被插入到两个单元格中，而它应该只是一个。

它不只是将值粘贴到D14中，它还将相同的值粘贴到D15中。

我在这里的最终目标是读取整个列，并获得该列中的所有唯一值，减去标题，并获得速度。因此，它可能有1 Gpbs，或200 Mbps。如果是1G，我想把“gbps”去掉，把1变成1000。数据基本上是一堆带有字母数字速度值的空行。在这种情况下，只有一个行值存在。因此，下面的数据是它在工作表中的形式。

Dim Clb As Range
Dim lAnswer3 As Variant
With CreateObject("scripting.dictionary")
    For Each Clb In wbFrom.Sheets("Sheet0").Range("Z9", Range("Z" & Rows.Count).End(xlUp))

        Clb.Value = Replace(Clb.Value, " Mbps", "")
        Clb.Value = Replace(Clb.Value, " Gbps", "")

       If Clb.Value = 1 Then
            Clb = Clb * 1000
        End If


        If Not .exists(Clb.Value) Then
        .Add Clb.Value, Nothing
        End If
    Next Clb

 lAnswer3 = wbFrom.Sheets("Sheet0").Evaluate("SUMPRODUCT(--z9:z50000)")

 wbTo.Sheets("Sheet1").Range("D14").Resize(.Count).Value = lAnswer3  'D14 and D15 get populated

End With

数据：

NetSpeed
<blank row>
<blank row>
<blank row>
<blank row>
<blank row>
1 Gbps
<blank row>
<blank row>

Answer 1

在这种情况下，对我来说，最终的解决方案是Cybernetic.Nomad的评论。

我变了

wbTo.Sheets("Sheet1").Range("D14").Resize(.Count).Value = lAnswer3  'D14 and D15 get populated

至

wbTo.Sheets("Sheet1").Range("D14").Value = lAnswer3  'D14 and D15 get populated

我的复制问题也解决了。