20/05/31 18:34:56.03 Gn3uBA4V.net
>>425
選択した範囲が処理の起点なので、、
Dim r As Range
For Each r In Selection
If r.colunm < 5 Then GoTo nextLoop
If r.Value = "" Then GoTo nextLoop
r.Value = r.Value * 1.1
nextLoop:
Next
こんな感じ？
行全体を対象にしたいみたいだけど、その時はFor文の前に
Selection.EntireRow.Select
を差し込めばいい。
１万列処理されるけど、、、