選択した範囲内の各セルをループします

Question

Excelに名前が付けられていない範囲をループするためにVisual Studioでプロシージャを作成しようとしています。 たとえば、ユーザーは "A1" & "A5" "A94"を選択します。私の手続きではrange.countのprorpertyを値3として見ることができますが、Do Loopを作成すると選択した範囲の2番目のセル値を取ることはできませんが、 "A2"が見つかります。 私の手順はこれである：ここでは

​​

Answer 1

は1にすべての選択したセルの値を設定し、簡単な例のサブです：

Sub EditSelection() 
    Dim rng As Range 

    For Each rng In Selection 
     rng.Value = 1 
    Next rng 
End Sub 

あなたはまだその

後に苦労している場合、私に教えてください