000886 ランダム
 HOME | DIARY | PROFILE 【フォローする】 【ログイン】

Excelとか・・・

Excelとか・・・

【毎日開催】
15記事にいいね!で1ポイント
10秒滞在
いいね! --/--
おめでとうございます!
ミッションを達成しました。
※「ポイントを獲得する」ボタンを押すと広告が表示されます。
x

PR

Free Space

にほんブログ村 その他生活ブログ 日課・生活習慣へ にほんブログ村 家族ブログ 家族情報へ にほんブログ村 その他生活ブログ 買い物・お使いへ

Profile

tuna725

tuna725

Archives

2024/06
2024/05
2024/04
2024/03
2024/02
2024/01/23
XML
カテゴリ:Excel





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


**********************************************
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のこととか色々」で公開したブログのコードのみを記載したものです。




​​デスクに据え置きできます。有線なので、電池の交換不要。​​






お気に入りの記事を「いいね!」で応援しよう

Last updated  2024/01/23 09:59:55 AM
コメント(0) | コメントを書く



© Rakuten Group, Inc.