Sub L_全角英数字の抽出()
Dim Namae, Moji As String
max_gyo1 = Range("c65536").End(xlUp).Row
For i = 1 To max_gyo1
If i > max_gyo1 Then
Exit For
End If
If Right(i, 2) = 0 Then
waitTime = Now + TimeValue("0:00:01")
Application.Wait waitTime
End If
Namae = Range("C" & i).Value
For j = 1 To Len(Namae)
Moji = Asc(Mid(Namae, j, 1))
If Moji <= -32102 And Moji >= -32177 Then '全角英数字
Range("C" & i).Select
With Selection.Interior
.Color = 65535
End With
End If
Next j
Application.StatusBar = "アルバム名チェック処理実行中....(現在 " & i & "/" & max_gyo1 & "件)"
Next i
Application.StatusBar = False
max_gyo1 = Range("D65536").End(xlUp).Row
For i = 1 To max_gyo1
If i > max_gyo1 Then
Exit For
End If
If Right(i, 2) = 0 Then
waitTime = Now + TimeValue("0:00:01")
Application.Wait waitTime
End If
Namae = Range("D" & i).Value
For j = 1 To Len(Namae)
Moji = Asc(Mid(Namae, j, 1))
If Moji <= -32102 And Moji >= -32177 Then '全角英数字
Range("D" & i).Select
With Selection.Interior
.Color = 65535
End With
End If
Next j
Application.StatusBar = "曲名処理実行中....(現在 " & i & "/" & max_gyo1 & "件)"
Next i
Application.StatusBar = False
MsgBox ("終了")
End Sub






」「『お勧めのポーズ』でお願いします。」「じゃあ、ハートで」










