ふりがなをはずすマクロ (VBA)
2019.01.04
カテゴリ:PC
ふりがなをはずすマクロ (VBA)
連載中の源氏物語の日本語本文から
( )にはいったふりがなを外すマクロです。
(Microsoft Excel - VBA)
Aカラムに原文をおき、
結果をBカラムに書き出します。
マクロはこれ。
Sub ふりがな取り() '2019-01-04 01:40 完成 (c)belmonto '1行目から書いた文の( )とその中の文字を消去する '行数は最大30行とする。30行までにデータのあるセル内容は消去する '結果はBカラムに表示する Let 行数 = 30 For 縦 = 1 To 行数 Let 行 = Cells(縦, 1) Let 開始位置 = 0 Let 終了位置 = 0 Let 左側 = "" Let 開始位置 = InStr(行, "(") If 開始位置 > 0 Then While 開始位置 > 0 Let 終了位置 = InStr(開始位置 + 1, 行, ")") Let 左側 = 左側 & Left(行, 開始位置 - 1) Let 行 = Mid(行, 終了位置 + 1) Let 開始位置 = InStr(行, "(") Wend Let Cells(縦, 2) = 左側 & 行 Else Let Cells(縦, 2) = 行 End If Next End Sub