全角ハイフン/マイナス(-)の数を統一するマクロ

2017–11–02 (Thu) 09:44
Sub ハイフン統一()
'ハイフンの数を一つに統一します

Dim MaxRow As Long
Dim MaxCol As Long
On Error Resume Next
Dim ws As Worksheet
Set ws = ActiveSheet
With ws.UsedRange
MaxRow = .Find("*", , xlFormulas, , xlByRows, xlPrevious).Row
MaxCol = .Find("*", , xlFormulas, , xlByColumns, xlPrevious).Column
End With

Dim ken As Variant
ken = ws.Range(Cells(1, 1), Cells(MaxRow, MaxCol))
Dim x As Long, y As Long, j As Long, t As Long
For x = 1 To MaxRow
For y = 1 To MaxCol
If InStr(ken(x, y), "-") <> 0 Then
If ken(x, y) = "-" Then
Else
t = 0
For j = 1 To Len(ken(x, y))
If Mid(ken(x, y), j, 1) = "-" Then t = t + 1
Next
If t = Len(ken(x, y)) Then
ken(x, y) = "-"
End If
End If
End If
Next
Next
ws.Range(Cells(1, 1), Cells(MaxRow, MaxCol)) = ken
On Error GoTo 0
End Sub
スポンサーサイト

« ハイフン前・ハイフン後の文字列を抽出する | HOME |  日付の表示を変更する »

コメント

コメントの投稿

 
管理者にだけ表示

 | HOME | 

プロフィール

あゆみ

Author:あゆみ
FC2ブログへようこそ!

最新記事

最新コメント

フリーエリア

月別アーカイブ

カテゴリ

ブロとも申請フォーム

検索フォーム

RSSリンクの表示

リンク