こんにちは脇村です。僕のブログでは、本業での実務上のＥＸＣＥＬ、ＡＣＣＥＳＳマクロ＆ＶＢＡの使えそうなコードの紹介、コールドリーディングの実践例、日常のつぶやき－脇村、今の時代を生き抜くために－脇村、電話占い師の現場、最近読んでいいなと思った本等について、主に発信していきたいと思っています。
今回はＥＸＣＥＬＶＢＡについて発信したいと思います。 こういったプログラム系統は何を実現したいかを強く頭に描くことが実現への第一歩につながると思います。 少しずつ発信していってその手助けができれば幸いだと思っています。 今回は改行を削除するＶＢＡについてです。
Sub 改行削除する()
Dim 行 As Integer
*********改行削除する**********
For 行 = 7 To ActiveSheet.Range(“H65535”).End(xlUp).Row ①
If InStr(ActiveSheet.Range(“B” & 行).Value, Chr(10)) > 0 Then ②
ActiveSheet.Range(“B” & 行).Formula = WorksheetFunction.Clean(ActiveSheet.Range(“B” & 行).Value) ③
End If
Next
End Sub
①は7行目からＨ列の最終行まで処理をします
②はB列にChr(10)（改行）が入っていたら処理をします。
③はB列をWorksheetFunction.Clean関数で改行を削除します。
以上、今回は改行削除するＶＢＡでした。次回もまたよろしくお願いします。
楽器買取専門店【楽器の買取屋さん】最短30分の無料の出張見積もり
https://px.a8.net/svt/ejp?a8mat=3NCRO4+E1H1DE+3EMG+BWVTE
商品リンクの飛び先URLはhttp://gakkikaitori.jp/lp_afi2
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
ありきたりの開運グッズで願望達成出来ますか？
心願成就は陰陽師が作る護符・霊符で叶えます。
⇒ https://px.a8.net/svt/ejp?a8mat=3NCU0H+A7CH0Y+1S10+C03K3
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
関連記事
Excel VBA 数字を四捨五入するＶＢＡ
Excel VBA エラー値を含んでいたらフラグを立てるＶＢＡ
Excel VBA 列の最終列を設定するＶＢＡ
Excel VBA 列の幅を設定するＶＢＡと最終行の指定の仕方のＶＢＡ
Excel VBA 自動で最終行までオートフィルをかけるＶＢＡについて
Excel VBA 改ページの設定をするマクロについて
Excel VBA 全セル番地が,(カンマ)を含んでいるかを調べるＶＢＡについて
Excel VBA ある文字列を含んだら処理をするマクロについて
Excel VBA 行の表示非表示マクロについて
Excel VBA ある列の文字列を空欄に変換するマクロについて
Excel VBA 重複レコードを削除するマクロについて
Excel VBA sheetに保護をかけるのと保護を解除するマクロについて
Excel VBA フィルタモードじゃない時の処理について
Excel VBA 重複削除について
Excel VBA 貼付けマクロについて
Excel VBA 五十音順に並び替えのマクロについて
Excel VBA For Each ○○ In Selectionを使ったマクロについて
Excel VBA For～nextを使ったマクロについて
Excel VBA 印刷エリアの設定マクロについて
Excel VBA 印刷マクロについて