excel - 在选定单元格上使用 For 循环

Question

这是来自波士顿的莫妮克。
我创建了一个在一行上运行良好的 VBA 脚本。现在我想让它发生在所有选定的行上。

例如。

Sub AutoButton_click()
   Dim a As Range, b As Range

   Set a = Selection

   For Each b In a.Rows
      Dim SellPrice As Double, CostPrice As Double
      CostPrice = Range("C" & a).Value    
      SellPrice = CostPrice + 20    
      Range("D" & a).Value = SellPrice
   Next
End Sub

但我不断收到类型不匹配错误。
我究竟做错了什么？
请帮我。

太感谢了。 X。

Answer 1

更直接

Sub AutoButton_click()
   Dim rng1 As Range
   For Each rng1 In Selection.Cells
       Cells(rng1.Row, "D").Value = Cells(rng1.Row, "c") + 20
   Next
End Sub

如果速度很重要，请使用变体数组代替