我编写了一些 vba 代码,从工作簿中选择一个范围并将其复制到另一个工作簿中的单元格。我的雇主希望第二个工作簿能够自动化,这样就不会出现手动输入的问题。我需要将我的数字四舍五入到最接近的千位,例如,我的数字是-2,218,387,我需要它读取-2,218,但目前它显示为-2,218,000。这完全抛弃了自动化工作簿并给我带来了很多问题。下面是复制范围的代码;
Public Sub InvoicedInstallments2()
Dim rng1 As range
Dim rng2 As range
Set rng1 = Workbooks("201209TB.xlsm").Worksheets("excel").range("F295")
Set rng2 = Workbooks("201210DB1.xlsm").Worksheets("UK monthly dashboard").range("AD49")
rng2.Value = rng1.Value
End Sub