これは、EXCEL Visual Basic マクロ用です。
列 C に英数字のみが含まれるように、すべての列 B のデータを変更する必要があります。
私のコードは 1 つのセルに対してのみ機能します。アクティブなセルごとにこのコードをループしたい。誰でもこれについて私を助けることができますか?
Sub macroalphanum()
Dim a$, b$, c$, i As Integer
a$ = Range("C1").Value
For i = 1 To Len(a$)
b$ = Mid(a$, i, 1)
If b$ Like "[A-Z,a-z,0-9, ]" Then
c$ = c$ & b$
End If
Next i
Range("D1").Value = c$
End Sub