[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『範囲外の値を空白にしたい』(ぽみぷん)
はじめまして。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.