ゴリラストロングの雑記帳

月収10万円の広告収入を目指す自称専業ライターのブログです。




【VBA】英数字のデータを半角小文字に統一するマクロを作成してみました。




どうも、ゴリラストロングです。

 

今回はVBAで、英数字のデータを半角小文字に統一するマクロを作成してみました。

 

<元データ>

f:id:gorilla-strong:20200502042511p:plain

 

<マクロ実行後>

f:id:gorilla-strong:20200502042553p:plain

 

ソースコード

Sub main()

Dim ws As Object
Set ws = ThisWorkbook.Worksheets(1)

Dim lastrow As Long
lastrow = ws.Cells(Rows.Count, 1).End(xlUp).Row

For i = 3 To lastrow

ws.Range("C" & i) = WorksheetFunction.Asc(WorksheetFunction.Proper(ws.Range("B" & i)))

Next

End Sub

 

以上、ゴリラストロングでした。