Excel VBA每个乘以自己的数字多行

我试图find一个variables乘以一行数据的最佳方法。 我有这样一张桌子：

我有一个脚本，要求我input分析师在这段时间内工作的天数。

接下来我想要发生的是另一张表格，标题和格式填写上面的数据除以工作天数。 IE让我们说下员工时间下的第一行，24：54：55除以3天工作，所以8小时，改变。

我希望这一切都在代码中，而不是在Excel表中的function。

我尝试使用如下function：

Dim rng As Range For Each rng In Range("G54:R54") rng = (rng / wd1) Next rng 

但是这没有用。 有任何想法吗？

Answer 1

什么是wd1？ 你宣布了​​吗？ 如果不是，则为零，因此除以零误差。 否则代码是好的，在我的电脑上工作。

明确使用选项以避免此类错误。

编辑：计算例如380 * 1000/60确实会引起一个错误，因为所有这些都被认为是整数。 也许它可以相关，尝试使用cdbl（rng）

Answer 2

我在过去使用了以下（dynamic范围，在同一位置粘贴到Sheet2）：

 Sub Paste_Special_Divide() Dim LR As Long Dim LC As Long Dim MsgBoxy As Integer Dim Source As Range Dim Destination As Range LR = Cells(Sheets("Sheet1").Rows.Count, 1).End(xlUp).Row Set Source = Sheets("Sheet1").Range("A1:O" & LR) Set Destination = Sheets("Sheet2").Range("A1:O" & LR) MsgBoxy = Application.InputBox("Enter selection divisor:", Title:="Selection divisor", Default:=10, Type:=1) Source.Copy Destination.PasteSpecial Paste:=xlPasteAll, Operation:=xlDivide Application.CutCopyMode = False End Sub 

希望有帮助！