|
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
|
|