とまと あんらいぷ…

エンジニアの活動記録とかつぶやきとか

GitHub

【Excel-マクロ】選択セルの操作(ループ)

何かと使いそうなので保持!
以下の関数は、Excelにて選択したセルをクルクルと回して
ゴニョゴニョしてる例です。


Sub セル内操作_シングル囲いを自動でやります()
Dim r As Range
Dim celltext As String
Dim idx As Long
idx = 0

'選択セル内の値を「'」で囲います
For Each r In Selection
If Len(Trim(r.text)) > 0 Then
idx = idx + 1
r.Value = "''" + r.Value + "'"
End If
Next
End Sub

次のページ

FC2Ad