“Excel VBA Wielokomórka wartość komórkowa” Kod odpowiedzi

Excel VBA Wielokomórka wartość komórkowa

Sub Multiply_a_range_of_cells_by_same_number()
'declare variables
Dim ws As Worksheet
Dim rng As Range
Dim myVal As Range
Set ws = Worksheets("Analysis")
Set rng = ws.Range("B3:C7")
For Each myVal In rng
myVal = myVal.Value * ws.Range("E3")
Next myVal

End Sub