Excelとか・・・

３文字目と４文字目の間に改行コードを挿入するマクロ。

**********************************************
Sub 改行コードtest()

　Range("c2") = Left(Range("b2"), 3) & Chr(10) & Mid(Range("b2"), 4)
　Range("c3") = Left(Range("b2"), 3) & Chr(13) & Mid(Range("b2"), 4)
　Range("c4") = Left(Range("b2"), 3) & vbCr & Mid(Range("b2"), 4)
　Range("c5") = Left(Range("b2"), 3) & vbLf & Mid(Range("b2"), 4)
　Range("c6") = Left(Range("b2"), 3) & vbCrLf & Mid(Range("b2"), 4)
End Sub

**********************************************

選択されているセルの改行コードを削除するマクロ。

**********************************************

Sub 改行コード削除()
　Selection.Replace What:="" & Chr(10) & "", Replacement:=""
　Selection.Replace What:="" & Chr(13) & "", Replacement:=""
　Selection.Replace What:="" & vbCr & "", Replacement:=""
　Selection.Replace What:="" & vbLf & "", Replacement:=""
　Selection.Replace What:="" & vbCrLf & "", Replacement:=""

End Sub

**********************************************

​[引用元]
​​​Excelのこととか色々​​​
​※この日記は、私のメインブログ「Excelのこととか色々」で公開したブログのコードのみを記載したものです。

(アウトレット)エレコム トラックボールマウス／親指／5ボタン／有線 M-XT2URBK ブラック 楽天で購入 ​​デスクに据え置きできます。有線なので、電池の交換不要。​​​​