エクセルマクロの質問です。文字削除の方法？

質問

エクセルでデータを整理していて、
各セルのデータの前５文字を消したいのですが、
マクロどんなに、
くんだらよいのでしょうか？

因みにC5からK４４まで、データは入っています。
いかがになりますか。ご教授ください。

回答No.2

mu2011

一例です。

Sub sample01()
For Each c In Range("c5:k44")
If Len(c) > 5 Then
Cells(c.Row, c.Column) = Mid(c, 6, Len(c))
End If
Next
End Sub

回答No.1

keithin

どんな内容があるのか不明なので，仮に文字列の生データが入ったセルだけ限定で処理してみます。

sub macro1()
　dim h as range
　on error resume next
　for each h in range("C5:K44").specialcells(xlcelltypeconstants, xltextvalues)
　h = mid(h, 6, len(h))
　next
end sub