No.2ベストアンサー
- 回答日時:
Option Explicit
Sub ExtractLine01()
Dim xRange As Range
Dim xLine As Variant
For Each xRange In ActiveSheet.UsedRange
xLine = Split(xRange.Value, vbLf)
If (UBound(xLine) > 0) Then
xRange.Value = Application.WorksheetFunction.Clean(xLine(0))
End If
Debug.Print xRange.Address & ":" & xRange.Value & ":" & UBound(xLine)
Next
End Sub
この回答へのお礼
お礼日時:2013/03/27 15:36
美しいコードですね。vbaを勉強中ですが、たぶん、こんなコードは自分は書けないと思います。動作さ理想どおりの動きです。
ありがとうございました。
No.4
- 回答日時:
改行はVblfですね。
こんな感じです。
wk = Split([a1], vbLf)(0)
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) EXCEL VBA 単語置き換え について質問です ブック名 ぶぶぶ シート名 ししし セル V3〜 3 2023/03/08 01:41
- Excel(エクセル) Excelのマクロで、特定のセルから順番に値を取得したい 5 2022/12/06 15:34
- Visual Basic(VBA) サブフォルダ(データ)にある複数の.xlsxファイルのSheet3のA2セルの値で01から左側をB2 2 2022/08/14 15:46
- Excel(エクセル) VBAで “:” を含むセルの特定 2 2023/05/11 16:30
- その他(データベース) Accessのクエリで1フィールドの抽出条件設定をNullでなく全角半角含む空白のみの文字列でない文 1 2023/04/24 15:20
- Excel(エクセル) 関数EXACT(文字列,文字列)とexcelVBA 3 2022/04/14 15:07
- Excel(エクセル) Excelの空文字判定について 7 2023/01/06 13:25
- Excel(エクセル) Excel>マクロ>特定のセルで同じ情報が登録されている行を1行にまとめたい(文字連結) 6 2023/01/05 16:30
- Excel(エクセル) Indirect関数について、Formulatextで抽出した数式を参照したい。 1 2022/12/15 11:16
- Visual Basic(VBA) VBA 改行コードの取り方 1 2022/03/22 14:14
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
wordの何も書かれていない2ペー...
-
Chr(13)とChr(10)の違いは?
-
wordで均等割り付けをするとき...
-
棒グラフ 横軸の縦書き2列にし...
-
【エクセル】セル最後にある無...
-
PDFの改行URLを有効にす...
-
excelで勝手に改行されます
-
teratermのコマンド入力文字数...
-
Wordで原稿用紙設定の時に、ペ...
-
Tera Term のマクロでの改行コ...
-
WordにURLを載せると
-
バッチで指定ファイルの文末に...
-
エクセルでセル内改行の複数行...
-
VBA フォームのテキストボック...
-
Accessにインポートしようとす...
-
Googleサイトのサイト名改行方法
-
パワーポイントのテキストボックス
-
EXCEL(VBA) 末尾の改行のみ削...
-
ダブルクォーテーション(")で...
-
一太郎(最新)でのエンターに...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
wordの何も書かれていない2ペー...
-
Chr(13)とChr(10)の違いは?
-
【エクセル】セル最後にある無...
-
wordで均等割り付けをするとき...
-
履歴書の志望動機の所で、「ま...
-
PDFの改行URLを有効にす...
-
Accessにインポートしようとす...
-
excelで勝手に改行されます
-
EXCELで"-"で勝手に自動改行し...
-
棒グラフ 横軸の縦書き2列にし...
-
Tera Term のマクロでの改行コ...
-
PCの表示の文書をコピーすると?
-
イミディエイトウインドウの最...
-
EXCEL(VBA) 末尾の改行のみ削...
-
バッチで指定ファイルの文末に...
-
Excel セル内の最初と最後の改...
-
パワーポイントのテキストボックス
-
パワーポイントのリンク管理に...
-
エクセルでセル内改行の複数行...
-
Word 途中で勝手に改行してしま...
おすすめ情報