VBAについて(カッコをとりたい)教えて下さい。

ＶＢＡ初心者です。

こちらで教えて頂きながらマクロを組んでいます。
また１点アドバイスをお願い致します。

Ｎ列に（）の付いた文字列が所々入ります。
その（）だけをとって中の文字列だけを表示したいのですが…
（△△△）→△△△
※カッコ内の文字数は定まっていません。

以下の様なマクロを組みましたが、範囲をＮ列全部、
またはＮ４～Ｎ列最終行までとしたいのですが、
どの様に追記したらよいでしょうか？？？

どなたかご指導をお願い致します。



Sub カッコをとる()

Dim str As String

With ActiveSheet

str = .Range("N11")
.Range("N11").Value = Mid(str, 2, Len(str) - 2)

End With

End Sub

No.1 回答者： myRange 回答日時： 2009/06/10 17:35

方法はいくつかありますが、ひとつ。

Ｎ列４行目から最終行までですね。

Sub Test()
Dim R As Long
For R = 4 To Cells(Rows.Count, "N").End(xlUp).Row
　Cells(R, "N").Value = Replace(Replace(Cells(R, "N").Value, "(", ""), ")", "")
Next R
End Sub
　
以上ここまで

No.2 回答者： hige_082 回答日時： 2009/06/11 00:35

繰り返し処理を理解すれば出来そうですね

Sub カッコをとる()

Dim str As String
Dim i As Long

With ActiveSheet

For i = 4 To .Range("N65536").End(xlUp).Row

str = .Range("N" & i).Value
.Range("N" & i).Value = Mid(str, 2, Len(str) - 2)

Next i

End With

End Sub