VBA中的乘法

我有这样的数据

50  3.3
50  3.3
50  3.3
50  3.3
50  3.3

我想要以下格式的数据

-50 3300
-50 3300
-50 3300
-50 3300
-50 3300

我正在使用代码

Sub main()
    Dim data As Variant
    Dim iData As Long, datum As Long, iRow As Long
    On Error Resume Next
    With Range("A2", Cells(Rows.Count, 1).End(xlUp))
        data = .Resize(, 4).Value
        iData = LBound(data)

                .Cells(iRow).Offset(, 3).Value = .Cells(iRow).Offset(, 3).Value * 1000
                .Cells(iRow, UBound(data, 2) - 1).Value = WorksheetFunction.Min(50, datum)
                datum = datum - 50
            Loop
            iData = iData + 1
        Loop While iData <= UBound(data)
        .Resize(1, 4).Copy
        .Resize(iRow, 4).PasteSpecial xlPasteFormats
        Application.CutCopyMode = False
    End With
End Sub

Sub-main（）
作为变量的Dim数据
尺寸和长度一样，基准面和长度一样，iRow和长度一样
出错时继续下一步
带范围（“A2”，单元格（行数，1）。结束（xlUp））
数据=.Resize（，4）.Value
iData=LBound（数据）
.Cells（iRow）.Offset（，3）.Value=.Cells（iRow）.Offset（，3）.Value*1000
.单元格（iRow，UBound（数据，2）-1）.值=工作表函数.Min（50，基准）
基准=基准-50
环
iData=iData+1
循环而iData我假设这不是VB.Net-我删除了标记，但如果它实际上是VB.Net而不是看起来的VBA，您可以重新添加它。您的代码看起来不完整（在
iData=LBound（data）
和
.Cells（iRow）.Offset（，3）。Value=.Cells（iRow）。Offset（，3）。Value*1000
）-请检查以确保您已将所有内容复制到问题中。