为什么运行会报错呢？

wewes

Sub RandomizeData()
    Dim lastRow As Long
    Dim i As Long
    Dim randNum As Double
   
    lastRow = Cells(Rows.Count, "A").End(xlUp).Row
   
    For i = 2 To lastRow
        randNum = WorksheetFunction.RandBetween(-2000, 2000) / 1000
        Cells(i, "C").Value = Cells(i, "A").Value + randNum
        
        randNum = WorksheetFunction.RandBetween(-2000, 2000) / 1000
        Cells(i, "D").Value = Cells(i, "B").Value + randNum
    Next i
End Sub

zjzyj

Cells(i, "C").Value = Val(Cells(i, "A").Value) + randNum

liulang0808

代码报错以后选择调试，看看具体报错行变量或者单元格内容是什么
        Cells(i, "C").Value = Cells(i, "A").Value + randNum
        
        Cells(i, "D").Value = Cells(i, "B").Value + randNum

以上两个对应让单元格看看内容是什么

如果还有问题建议上传附件

gwjkkkkk

上传附件，便于调试。。。

彼岸归航

Cells(i, "C").Value = Cells(i, "A").Value + randNum
Cells(i, "D").Value = Cells(i, "B").Value + randNum
这两个是算术运算，如果AB列是文本就会报错