[[20171212014918]] 『範囲外の値を空白にしたい』(ぽみぷん) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『範囲外の値を空白にしたい』(ぽみぷん)

はじめまして。VBA初心者なのですが、ある範囲(A2〜A300)にあるデーターにたいして5未満なら空白、5以上なら元の値というコードに苦戦していおります。以下コードを記載いたします。

Sub Trial()

Dim Sample As Variant
Dim i As Long

Sample = Cells(2, 1).CurrentRegion.Resize(, 2)
For i = 2 To UBound(Sample)
If Sample(i, 1) < 5 Then
Sample(i, 1) = ""
End If
Next

Range(Cells(2, 1), Cells(UBound(Sample), 1)).Value = Sample
End Sub

これ以外にもこんなコードの方が効率がいい、もっと簡単に書けるというものがありましたら教えて頂けますと幸いです。よろしくお願いいたします。

< 使用 Excel:Excel2013、使用 OS:Windows8 >


 Sub main()
     Dim r
     For Each r In Cells(2, 1).CurrentRegion
         If r.Value < 5 Then r.Value = ""
     Next
 End Sub

とか

はずしてまいたら、すみません。

m(_ _)m

(隠居じーさん) 2017/12/12(火) 07:48


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.