|
りん さん
早速の回答ありがとうございます!!
これで日が暮れずに済みました!
早速使わせていただきました!
本当にありがとうございます!
Help Me! さん、おはようございます。
>>>私は3000〜3999をすべて機械部品 に置換したいのです。
>
>>Sub Test()
> Application.ScreenUpdating = False
>> Dim II% 'as Integer
>> 'AからC列を置換する場合。
>> For II% = 3000 To 3999
>> Columns("A:C").Replace What:=II%, Replacement:="機械部品", LookAt:=xlWhole
>> Next
> Application.ScreenUpdating = True
>>End Sub
>
>ループの回数が少ない分処理が速くなりました。
>Sub test()
> Application.ScreenUpdating = False
> Dim r1 As Range, c1 As Range
> On Error Resume Next
> '編集→ジャンプ→セル選択→定数:数値と文字
> '文字列として数値が入っていても処理するように
> Set r1 = Columns("A:C").SpecialCells(xlCellTypeConstants, 3)
> On Error GoTo 0
> '該当セルがあればループ処理
> If Not r1 Is Nothing Then
> For Each c1 In r1
> With c1
> If IsNumeric(.Value) Then
> Select Case .Value
> Case 3000 To 3999
> .Value = "機械部品"
> End Select
> End If
> End With
> Next
> End If
> Set r1 = Nothing
> Application.ScreenUpdating = True
>End Sub
|
|